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
|
-- File: Extrema_GLocateExtCC.cdl
-- Created: Wed Jul 6 15:37:56 1994
-- Author: Laurent PAINNOT
-- <lpa@metrox>
---Copyright: Matra Datavision 1994
generic class GLocateExtCC from Extrema (Curve1 as any;
Tool1 as any;
Curve2 as any;
Tool2 as any)
---Purpose: It calculates the distance between two curves with
-- a close point; these distances can be maximum or
-- minimum.
uses POnCurv from Extrema,
Pnt from gp,
HArray1OfPnt from TColgp
raises DomainError from Standard,
NotDone from StdFail
class LCCache instantiates CurveCache from Extrema (Curve1, Pnt from gp, HArray1OfPnt from TColgp);
class ELCC instantiates GenExtCC from Extrema
(Curve1,
Tool1,
Curve2,
Tool2,
LCCache,
HArray1OfPnt from TColgp,
POnCurv,
Pnt,
Vec);
class LocECC instantiates GenLocateExtCC from Extrema
(Curve1,
Tool1,
Curve2,
Tool2,
POnCurv,
Pnt,
Vec);
is
Create (C1: Curve1; C2: Curve2; U0,V0: Real)
returns GLocateExtCC
---Purpose: Calculates the distance with a close point. The
-- close point is defined by a parameter value on each
-- curve.
-- The function F(u,v)=distance(C1(u),C2(v)) has an
-- extremun when gradient(f)=0. The algorithm searchs
-- the zero near the close point.
raises DomainError;
-- if U0 and V0 are outside the definition ranges of the
-- curves.
IsDone (me) returns Boolean
---Purpose: Returns True if the distance is found.
is static;
SquareDistance (me) returns Real
---Purpose: Returns the value of the extremum square distance.
raises NotDone from StdFail
-- if IsDone(me)=False.
is static;
Point (me; P1,P2: out POnCurv)
---Purpose: Returns the points of the extremum distance.
-- P1 is on the first curve, P2 on the second one.
raises NotDone from StdFail
-- if IsDone(me)=False.
is static;
fields
myDone : Boolean;
mySqDist: Real;
myPoint1: POnCurv;
myPoint2: POnCurv;
end GLocateExtCC;
|
