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
106
107
108
109
110
111
112
113
114
115
116
|
-- File: LocOpe_LinearForm.cdl
-- Created: Mon Apr 14 15:31:54 1997
-- Author: Olga PILLOT
-- <opt@langdox.paris1.matra-dtv.fr>
---Copyright: Matra Datavision 1997
class LinearForm from LocOpe
---Purpose: Defines a linear form (using Prism from BRepSweep)
-- with modifications provided for the LinearForm feature.
uses DataMapOfShapeListOfShape from TopTools,
Edge from TopoDS,
Prism from BRepSweep,
Shape from TopoDS,
Face from TopoDS,
SequenceOfCurve from TColGeom,
ListOfShape from TopTools,
Curve from Geom,
Vec from gp,
Dir from gp,
Plane from Geom,
Pnt from gp
raises NoSuchObject from Standard,
NotDone from StdFail
is
Create
returns LinearForm from LocOpe;
---C++: inline
Create (Base : Shape from TopoDS;
V : Vec from gp;
Pnt1 : Pnt from gp;
Pnt2 : Pnt from gp)
---C++: inline
returns LinearForm from LocOpe;
Create (Base : Shape from TopoDS;
V : Vec from gp;
Vectra: Vec from gp;
Pnt1 : Pnt from gp;
Pnt2 : Pnt from gp)
---C++: inline
returns LinearForm from LocOpe;
Perform(me: in out; Base : Shape from TopoDS;
V : Vec from gp;
Pnt1 : Pnt from gp;
Pnt2 : Pnt from gp)
is static;
Perform(me: in out; Base : Shape from TopoDS;
V : Vec from gp;
Vectra: Vec from gp;
Pnt1 : Pnt from gp;
Pnt2 : Pnt from gp)
is static;
FirstShape(me)
returns Shape from TopoDS
---C++: return const &
is static;
LastShape(me)
returns Shape from TopoDS
---C++: return const &
is static;
Shape(me)
returns Shape from TopoDS
raises NotDone from StdFail
---C++: return const &
is static;
Shapes(me; S: Shape from TopoDS)
returns ListOfShape from TopTools
---C++: return const &
raises NoSuchObject from Standard
-- The exception is raised if S is not a subshape of the profile
is static;
IntPerf(me: in out)
is static private;
fields
myBase : Shape from TopoDS;
myVec : Vec from gp;
myTra : Vec from gp;
myDone : Boolean from Standard;
myIsTrans : Boolean from Standard;
myRes : Shape from TopoDS;
myFirstShape : Shape from TopoDS;
myLastShape : Shape from TopoDS;
myMap : DataMapOfShapeListOfShape from TopTools;
myPnt1 : Pnt from gp;
myPnt2 : Pnt from gp;
end LinearForm;
|
