7fd59977 |
1 | -- File : MeshVS_SensitivePolyhedron.cdl |
2 | -- Created : 21 January 2005 |
3 | -- Author : Alexander SOLOVYOV |
4 | ---Copyright: Open CASCADE 2005 |
5 | |
6 | class SensitivePolyhedron from MeshVS inherits SensitiveEntity from Select3D |
7 | |
8 | uses |
9 | EntityOwner from SelectBasics, |
10 | Projector from Select3D, |
11 | Location from TopLoc, |
12 | Real from Standard, |
13 | Boolean from Standard, |
14 | Array1OfPnt2d from TColgp, |
15 | SequenceOfInteger from TColStd, |
16 | Box2d from Bnd, |
17 | Lin from gp, |
18 | ListOfBox2d from SelectBasics, |
19 | Array1OfPnt from TColgp, |
20 | HArray1OfPnt from TColgp, |
21 | HArray1OfPnt2d from TColgp, |
22 | HArray1OfSequenceOfInteger from MeshVS, |
23 | XY from gp |
24 | |
25 | is |
26 | Create( Owner : EntityOwner from SelectBasics; |
27 | Nodes : Array1OfPnt from TColgp; |
28 | Topo : HArray1OfSequenceOfInteger from MeshVS ) returns mutable SensitivePolyhedron from MeshVS; |
29 | |
30 | Project( me:mutable; aProjector: Projector from Select3D ) is redefined; |
31 | |
32 | GetConnected( me:mutable; aLocation: Location from TopLoc ) returns SensitiveEntity from Select3D |
33 | is redefined; |
34 | |
35 | Matches( me : mutable; |
36 | X,Y : Real from Standard; |
37 | aTol : Real from Standard; |
38 | DMin : out Real from Standard ) returns Boolean is redefined; |
39 | |
40 | Matches( me : mutable; |
41 | XMin,YMin,XMax,YMax : Real from Standard; |
42 | aTol : Real from Standard ) returns Boolean from Standard is redefined; |
43 | |
44 | Matches( me : mutable; |
45 | Polyline : Array1OfPnt2d from TColgp; |
46 | aBox : Box2d from Bnd; |
47 | aTol : Real from Standard ) returns Boolean from Standard is redefined; |
48 | |
49 | GetBox2d( me; aBox : out Box2d from Bnd ) is protected; |
50 | |
51 | FindIntersection( me; NodesIndices : SequenceOfInteger from TColStd; |
52 | EyeLine : Lin from gp ) returns Real is protected; |
53 | |
54 | ComputeDepth( me; EyeLine: Lin from gp ) returns Real from Standard is redefined; |
55 | |
56 | -- ComputeSize( me ) returns Real from Standard is redefined; |
57 | |
58 | Areas( me: mutable; aResult : in out ListOfBox2d from SelectBasics ) is redefined; |
59 | |
60 | fields |
61 | myNodes : HArray1OfPnt from TColgp; |
62 | myNodes2d : HArray1OfPnt2d from TColgp; |
63 | myTopo : HArray1OfSequenceOfInteger from MeshVS; |
64 | myCenter : XY from gp; |
65 | |
66 | end SensitiveEntity; |
67 | |