blob: 575d102a54c393a123cb7c4e91001b6b3fa5736d (
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
|
-- File: PathPointTool.cdl
-- Created: Mon Mar 9 16:55:09 1992
-- Author: Isabelle GRIGNON
-- <isg@phobox>
---Copyright: Matra Datavision 1992
deferred generic class PathPointTool from IntWalk
(PathPoint as any)
---Purpose: Template class to describe the necessary ressources
-- for a point used as a starting point for a marching
-- algorithm.
-- The 'marching algorithm' determines the intersection
-- between an implicit surface and a parametrized surface.
-- these points are necessary on an arc of the surface
uses Pnt from gp,
Vec from gp,
Dir2d from gp
raises OutOfRange from Standard,
UndefinedDerivative from StdFail
is
Value3d(myclass; PStart: PathPoint)
---Purpose: Returns the 3d coordinates of the starting point.
returns Pnt from gp;
Value2d(myclass; PStart: PathPoint; U, V: out Real from Standard);
---Purpose: Returns the <U, V> parameters which are associated
-- with <P>
-- it's the parameters which start the marching algorithm
IsPassingPnt(myclass; PStart: PathPoint)
---Purpose: Returns True if the point is a point on a non-oriented
-- arc, which means that the intersection line does not
-- stop at such a point but just go through such a point.
-- IsPassingPnt is True when IsOnArc is True
returns Boolean from Standard;
IsTangent(myclass; PStart: PathPoint )
---Purpose: Returns True if the surfaces are tangent at this point.
-- IsTangent can be True when IsOnArc is True
-- if IsPassingPnt is True and IsTangent is True,this point
-- is a stopped point.
returns Boolean from Standard;
Direction3d(myclass; PStart: PathPoint)
---Purpose: returns the tangent at the intersection in 3d space
-- associated to <P>
-- an exception is raised if IsTangent is true.
returns Vec from gp
raises UndefinedDerivative from StdFail;
Direction2d(myclass; PStart: PathPoint)
---Purpose: returns the tangent at the intersection in the
-- parametric space of the parametrized surface.This tangent
-- is associated to the value2d
-- la tangente a un sens signifiant (indique le sens de chemin
-- ement)
-- an exception is raised if IsTangent is true.
returns Dir2d from gp
raises UndefinedDerivative from StdFail;
Multiplicity(myclass; PStart: PathPoint)
---Purpose: Returns the multiplicity of the point i-e
-- the number of auxillar parameters associated to the
-- point which the principal parameters are given by Value2d
returns Integer from Standard;
Parameters(myclass; PStart: PathPoint;
Mult: Integer from Standard;
U, V: out Real from Standard)
---Purpose: Parametric coordinates associated to the multiplicity.
-- An exception is raised if Mult<=0 or Mult>multiplicity.
raises OutOfRange from Standard;
end PathPointTool;
|
