blob: cc7ec893b68e85acbc16eccd22e74cb03ef8d7b6 (
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
|
-- File: Intersection2d.cdl
-- Created: Tue Nov 17 12:24:18 1992
-- Author: Remi LEQUETTE
-- <rle@phylox>
---Copyright: Matra Datavision 1992
deferred generic class Intersection2d from TopClass
(TheEdge as any) inherits Intersection from IntRes2d
---Purpose: Template class for the intersection algorithm
-- required by the 2D classifications.
--
-- The results should be expressed as the result of
-- Intersection from IntRes2d. The class used to
-- instantiate the Classifier2d can be inherited from
-- the Intersection algorithms inherited from
-- Intersection from IntRes2d.
--
-- It is not necesary to return all the Intersection
-- points, the point with the smallest parameter
-- value on the segment is enough.
uses
Lin2d from gp,
Dir2d from gp
is
Initialize;
---Purpose: An empty constructor is required.
Perform(me : in out; L : Lin2d from gp; P : Real; Tol : Real; E : TheEdge)
---Purpose: Performs the intersection between the 2d line
-- segment (<L>, <P>) and the Edge <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 deferred;
LocalGeometry(me; E : TheEdge; U : Real;
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 deferred;
end Intersection2d;
|
