blob: 087dbeee9ed33de003be17383b3950a1eb14dcc0 (
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
|
-- File: BOPTools_Curve.cdl
-- Created: Tue May 8 13:07:58 2001
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2001
class Curve from BOPTools
---Purpose:
-- Class holds the structure for storing information about
--- intersection curve and set of paves on it
---
uses
ListOfInteger from TColStd,
Curve from IntTools,
PaveSet from BOPTools,
PaveBlock from BOPTools,
ListOfPaveBlock from BOPTools
is
Create
returns Curve from BOPTools;
---Purpose:
--- Empty constructor
---
Create (aIC:Curve from IntTools)
returns Curve from BOPTools;
---Purpose:
--- Constructor
---
SetCurve(me:out;
aIC:Curve from IntTools);
---Purpose:
--- Modifier
---
Curve(me)
returns Curve from IntTools;
---C++: return const &
---Purpose:
--- Selector
---
Set(me:out)
returns PaveSet from BOPTools;
---C++: return &
---Purpose:
--- Selector
---
AppendNewBlock(me:out;
aPB:PaveBlock from BOPTools);
---Purpose:
--- Adds the PaveBlock <aPB> to the pave set
---
NewPaveBlocks(me)
returns ListOfPaveBlock from BOPTools;
---C++: return const &
---Purpose:
--- Returns the PaveBlock-s attached to the curve
---
TechnoVertices (me:out)
returns ListOfInteger from TColStd;
---C++: return &
---Purpose:
--- Returns indices TechnoVertices attached to the curve
---
fields
myCurve : Curve from IntTools;
myPaveSet: PaveSet from BOPTools;
myNewPBs : ListOfPaveBlock from BOPTools;
myTechnoVertices : ListOfInteger from TColStd;
end Curve;
|
