1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
-- File: IntPoly_PlaneSection.cdl
-- Created: Mon Jul 17 10:30:44 1995
-- Author: Stagiaire Alain JOURDAIN
-- <ajo@phobox>
---Copyright: Matra Datavision 1995
class PlaneSection from IntPoly
---Purpose: determines the section of a triangulated shape by a plane.
-- The section is a set of edges.
uses Real from Standard,
Integer from Standard,
Boolean from Standard,
Shape from TopoDS,
Edge from TopoDS,
Trsf from gp,
Pln from gp,
Pnt from gp,
Pnt2d from gp,
SequenceOfPnt2d from TColgp,
SequenceOfSequenceOfPnt2d from IntPoly,
IndexedMapOfPnt2d from IntPoly,
Pnt2dHasher from IntPoly
is Create
returns PlaneSection from IntPoly;
Create (S : Shape from TopoDS;
P : Pln from gp)
returns PlaneSection from IntPoly;
Section (me : in out)
is static;
Intersect (me : in out; Point1 : Pnt from gp;
Point2 : Pnt from gp;
Point3 : Pnt from gp;
OutPoint1 : out Pnt2d from gp;
OutPoint2 : out Pnt2d from gp)
---Purpose: determines the 2 2D-points resulting of the intersection
-- of the triangle (Point1,Point2,Point3) by the plane
returns Boolean from Standard;
Insert (me : in out; OldPnt : Pnt2d from gp;
ComPnt : Pnt2d from gp;
NewPnt : Pnt2d from gp)
---Purpose: sees whether OldPnt and NewPnt begins or ends a section
-- created before and adds the 2 others points.
-- If not, creates a section
is static;
Concat (me : in out; BegPnt : Pnt2d from gp;
EndPnt : Pnt2d from gp;
OutPnt : out Pnt2d from gp)
---Purpose: sees whether BegPnt or EndPnt begins or ends a section
-- created before, and returns the other point to continue
-- the construction
-- Returns 2 if the construction is 'Forward'
-- Returns 1 if the construction is 'Previous'
-- Returns 0 if not and creates a section
returns Integer from Standard;
ConcatSection (me : in out; Section : in out SequenceOfPnt2d from TColgp;
NbSection : Integer from Standard;
Index : Integer from Standard)
---Purpose: sees whether Section begins or ends another one in mySection,
-- from the rank 'Index' to the last one 'NbSection'
is static;
ForwConstruction (me : in out; Point : Pnt2d from gp)
---Purpose: builds a section from Point in this way
-- ___ ___ ___ ___
-- Point--/__/--/__/--/__/--/__/--->
is static;
PrevConstruction (me : in out; Point : Pnt2d from gp)
---Purpose: builds a section from Point in this way
-- ___ ___ ___ ___
-- <---/__/--/__/--/__/--/__/--Point
is static;
NbEdges (me : in out)
returns Integer from Standard;
Edge (me : in out; Index : Integer from Standard)
---Purpose: builds an edge from a sequence of Pnt2d
-- this is a part of the section
returns Edge from TopoDS;
fields
myShape : Shape from TopoDS;
myTransform : Trsf from gp;
myBackTransform : Trsf from gp;
mySection : SequenceOfSequenceOfPnt2d from IntPoly;
myMapBegPoints : IndexedMapOfPnt2d from IntPoly;
myMapEndPoints : IndexedMapOfPnt2d from IntPoly;
myCpt : Integer from Standard;
myIndex : Integer from Standard;
myNbEdges : Integer from Standard;
end PlaneSection;
|
