1 -- File: HLRAlgo_PolyAlgo.cdl
2 -- Created: Tue Feb 18 10:36:07 1992
3 -- Author: Christophe MARION
4 ---Copyright: Matra Datavision 1992
6 class PolyAlgo from HLRAlgo inherits TShared from MMgt
8 ---Purpose: to remove Hidden lines on Triangulations.
11 Address from Standard,
12 Boolean from Standard,
13 Integer from Standard,
15 HArray1OfTransient from TColStd,
16 Array1OfTransient from TColStd,
17 ListIteratorOfListOfBPoint from HLRAlgo,
18 EdgeStatus from HLRAlgo
22 returns mutable PolyAlgo from HLRAlgo;
24 Init(me : mutable; HShell : HArray1OfTransient from TColStd)
27 PolyShell(me) returns Array1OfTransient from TColStd
36 ---Purpose: Prepare all the data to process the algo.
39 InitHide(me : mutable)
43 MoreHide(me) returns Boolean from Standard
47 NextHide(me : mutable)
50 Hide(me : mutable; Coordinates : out Address from Standard;
51 status : out EdgeStatus from HLRAlgo;
52 Index : out Integer from Standard;
53 reg1,regn : out Boolean from Standard;
54 outl,intl : out Boolean from Standard)
55 ---Purpose: process hiding between <Pt1> and <Pt2>.
58 InitShow(me : mutable)
62 MoreShow(me) returns Boolean from Standard
66 NextShow(me : mutable)
69 Show(me : mutable; Coordinates : out Address from Standard;
70 Index : out Integer from Standard;
71 reg1,regn : out Boolean from Standard;
72 outl,intl : out Boolean from Standard)
73 ---Purpose: process hiding between <Pt1> and <Pt2>.
77 myHShell : HArray1OfTransient from TColStd;
78 myRealPtr : Real from Standard[10];
79 mySegListIt : ListIteratorOfListOfBPoint from HLRAlgo;
80 myNbrShell : Integer from Standard;
81 myCurShell : Integer from Standard;
82 myFound : Boolean from Standard;