blob: b33b1099e9ec37d90f5290c6666675f66a5337bc (
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
|
-- File: HatchGen_Intersector.cdl
-- Created: Mon Mar 21 16:53:32 1994
-- Author: Jean Marc LACHAUME
-- <jml@phobox>
-- Copyright: Matra Datavision 1994
deferred generic class Intersector from HatchGen
(TheCurveH as any ; -- as Curve from Geom2dAdaptor
TheCurveE as any ) -- as Curve from Geom2dAdaptor
inherits Intersection from IntRes2d
uses
Lin2d from gp,
Dir2d from gp
is
Initialize
---Purpose: Creates an empty intersector
is protected ;
Initialize(Confusion : Real from Standard ;
Tangency : Real from Standard)
---Purpose: Creates an intersector.
is protected ;
ConfusionTolerance (me)
---Purpose: Returns the confusion tolerance of the
-- intersector.
returns Real from Standard
is static ;
SetConfusionTolerance (me : in out ;
Confusion : Real from Standard)
---Purpose: Sets the confusion tolerance of the intersector.
is static ;
TangencyTolerance (me)
---Purpose: Returns the tangency tolerance of the
-- intersector.
returns Real from Standard
is static ;
SetTangencyTolerance (me : in out ;
Tangency : Real from Standard)
---Purpose: Sets the tangency tolerance of the intersector.
is static ;
Intersect (me : in out ; C1 : in out TheCurveE ;
C2 : in out TheCurveH )
---Purpose: Intersects the curves C1 and C2.
-- The results are retreived by the usual methods
-- described in IntRes2d_Intersection.
is static ;
-------------------------------------------------------------------------
---- M e t h o d s u s e d b y t h e C l a s s i f i e r 2 d ---
-------------------------------------------------------------------------
Perform(me : in out;
L : Lin2d from gp;
P : Real from Standard;
Tol : Real from Standard;
E : TheCurveE)
---Purpose: Performs the intersection between the 2d line
-- segment (<L>, <P>) and the Curve <E>. The line
-- segment is the part of the 2d line <L> of
-- parameter range [0, <P>] (P is positive and can be
-- RealLast()). Tol is the Tolerance on the segment.
-- The order is relevant, the first argument is the
-- segment, the second the Edge.
is static;
LocalGeometry(me;
E : TheCurveE ;
U : Real from Standard;
T : out Dir2d from gp;
N : out Dir2d from gp;
C : out Real)
---Purpose: Returns in <T>, <N> and <C> the tangent, normal
-- and curvature of the edge <E> at parameter value
-- <U>.
is static;
end Intersector from HatchGen ;
|