blob: ceb38a1d83396b92a176d96ebbc1a85f181636b7 (
plain)
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
-- File: IntPolyPolyGen.cdl
-- Created: Mon Oct 19 12:03:29 1992
-- Author: Laurent BUCHARD
-- <lbr@sdsun2>
---Copyright: Matra Datavision 1992
generic class IntPolyPolyGen from IntCurve (
TheCurve as any;
TheCurveTool as any; -- as CurveTool from IntCurve (TheCurve)
TheProjPCur as any) -- as ProjPCurGen from IntCurve
inherits Intersection from IntRes2d
---Level: Internal
uses Domain from IntRes2d
class ThePolygon2d instantiates Polygon2dGen from IntCurve
(TheCurve,
TheCurveTool);
class ThePolygon2dTool instantiates ToolPolygon from IntCurve
(Pnt2d from gp,
ThePolygon2d,
Box2d from Bnd);
class InterferencePoly2d instantiates InterferencePolygon2d from Intf
(ThePolygon2d,
ThePolygon2dTool,
ThePolygon2d,
ThePolygon2dTool);
class TheDistBetweenPCurves instantiates DistBetweenPCurvesGen
(TheCurve,
TheCurveTool);
class ExactIntersectionPoint
uses Vector from math ,
ThePolygon2d from IntCurve
is
Create ( C1 : TheCurve;
C2 : TheCurve;
Tol : Real from Standard )
returns ExactIntersectionPoint from IntCurve ;
Perform ( me: in out ;
Poly1 : ThePolygon2d from IntCurve ;
Poly2 : ThePolygon2d from IntCurve ;
NumSegOn1 : out Integer from Standard ;
NumSegOn2 : out Integer from Standard ;
ParamOnSeg1 : out Real from Standard ;
ParamOnSeg2 : out Real from Standard );
Perform ( me: in out ;
Uo : Real from Standard ;
Vo : Real from Standard ;
UInf : Real from Standard ;
VInf : Real from Standard ;
USup : Real from Standard ;
VSup : Real from Standard );
NbRoots ( me )
returns Integer from Standard ;
Roots ( me : in out ;
U : out Real from Standard ;
V : out Real from Standard ) ;
MathPerform ( me : in out ) is private ;
AnErrorOccurred ( me )
returns Boolean from Standard ;
fields
done : Boolean from Standard ;
nbroots : Integer from Standard ;
myTol : Real from Standard ;
FctDist : TheDistBetweenPCurves from IntCurve ;
ToleranceVector : Vector from math ;
BInfVector : Vector from math ;
BSupVector : Vector from math ;
StartingPoint : Vector from math ;
Root : Vector from math ;
anErrorOccurred : Boolean from Standard ;
end ExactIntersectionPoint from IntCurve;
is
Create
returns IntPolyPolyGen from IntCurve;
Perform(me: in out;
Curve1 : TheCurve;
Domain1: Domain from IntRes2d;
Curve2 : TheCurve;
Domain2: Domain from IntRes2d;
TolConf: Real from Standard;
Tol : Real from Standard)
is static;
Perform(me: in out;
Curve1 : TheCurve;
Domain1: Domain from IntRes2d;
TolConf: Real from Standard;
Tol : Real from Standard)
is static;
Perform(me: in out;
Curve1 : TheCurve;
Domain1: Domain from IntRes2d;
Curve2 : TheCurve;
Domain2: Domain from IntRes2d;
TolConf: Real from Standard;
Tol : Real from Standard;
NbIter : Integer from Standard;
DeltaU : Real from Standard;
DeltaV : Real from Standard)
is static protected;
Perform(me: in out;
Curve1 : TheCurve;
Domain1: Domain from IntRes2d;
TolConf: Real from Standard;
Tol : Real from Standard;
NbIter : Integer from Standard;
DeltaU : Real from Standard;
DeltaV : Real from Standard)
is static protected;
fields
DomainOnCurve1 : Domain from IntRes2d;
DomainOnCurve2 : Domain from IntRes2d;
end IntPolyPolyGen;
|
