blob: ba7f17ee870202b0dcb46af3c10604eca51616c2 (
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
|
-- File: ExtPElS.cdl
-- Created: Thu Feb 21 18:36:35 1991
-- Author: Isabelle GRIGNON
-- <isg@topsn3>
---Copyright: Matra Datavision 1991
class ExtPElS from Extrema
---Purpose: It calculates all the extremum distances
-- between a point and a surface.
-- These distances can be minimum or maximum.
uses POnSurf from Extrema,
Cone from gp,
Pln from gp,
Cylinder from gp,
Pnt from gp,
Sphere from gp,
Torus from gp
raises NotDone from StdFail,
OutOfRange
is
Create returns ExtPElS;
Create (P: Pnt; S: Cylinder; Tol: Real) returns ExtPElS;
---Purpose: It calculates all the distances between a point
-- and a cylinder from gp.
-- Tol is used to test if the point is on the axis.
Perform(me: in out; P: Pnt; S: Cylinder; Tol: Real)
is static;
Create (P: Pnt; S: Pln; Tol: Real) returns ExtPElS;
---Purpose: It calculates all the distances between a point
-- and a plane from gp.
-- Tol is used to test if the point is on the plane.
Perform(me: in out; P: Pnt; S: Pln; Tol: Real)
is static;
Create (P: Pnt; S: Cone; Tol: Real) returns ExtPElS;
---Purpose: It calculates all the distances between a point
-- and a cone from gp.
-- Tol is used to test if the point is at the apex or
-- on the axis.
Perform(me: in out;P: Pnt; S: Cone; Tol: Real)
is static;
Create (P: Pnt; S: Torus; Tol: Real) returns ExtPElS;
---Purpose: It calculates all the distances between a point
-- and a torus from gp.
-- Tol is used to test if the point is on the axis.
Perform(me: in out; P: Pnt; S: Torus; Tol: Real)
is static;
Create (P: Pnt; S: Sphere; Tol: Real) returns ExtPElS;
---Purpose: It calculates all the distances between a point
-- and a sphere from gp.
-- Tol is used to test if the point is at the center.
Perform(me: in out; P: Pnt; S: Sphere; Tol: Real)
is static;
IsDone (me) returns Boolean
---Purpose: Returns True if the distances are found.
is static;
NbExt (me) returns Integer
---Purpose: Returns the number of extremum distances.
raises NotDone from StdFail
-- if IsDone(me)=False.
is static;
SquareDistance (me; N: Integer) returns Real
---Purpose: Returns the value of the Nth resulting square distance.
raises NotDone from StdFail,
-- if IsDone(me)=False.
OutOfRange
-- if N < 1 or N > NbPoints(me).
is static;
Point (me; N: Integer) returns POnSurf
---Purpose: Returns the point of the Nth resulting distance.
raises NotDone from StdFail,
-- if IsDone(me)=False.
OutOfRange
-- if N < 1 or N > NbPoints(me).
is static;
fields
myDone : Boolean;
myNbExt: Integer;
mySqDist: Real [4];
myPoint: POnSurf from Extrema [4];
end ExtPElS;
|
