blob: ea8647d9ca2652d6ceec992cce14698339322f9a (
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
|
-- File: Line.cdl
-- Created: Tue Aug 18 19:56:50 1992
-- Author: Modelistation
-- <model@phylox>
---Copyright: Matra Datavision 1992
private class Line from Hatch
---Purpose: Stores a Line in the Hatcher. Represented by :
--
-- * A Lin2d from gp, the geometry of the line.
--
-- * Bounding parameters for the line.
--
-- * A sorted List of Parameters, the intersections
-- on the line.
uses
Real from Standard,
Integer from Standard,
Boolean from Standard,
Lin2d from gp,
LineForm from Hatch,
SequenceOfParameter from Hatch
is
Create;
Create(L : Lin2d from gp; T : LineForm from Hatch)
returns Line from Hatch;
AddIntersection(me : in out;
Par1 : Real from Standard;
Start : Boolean from Standard;
Index : Integer from Standard;
Par2 : Real from Standard;
theToler : Real from Standard)
---Purpose: Insert a new intersection in the sorted list.
is static;
fields
myLin : Lin2d from gp;
myForm : LineForm from Hatch;
myInters : SequenceOfParameter from Hatch;
friends
class Hatcher from Hatch
end Line;
|