blob: c2b759637954c0b63b30d612e88052c102e111d0 (
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
|
-- File: BOPTools_PaveBlockIterator.cdl
-- Created: Wed Mar 7 15:59:24 2001
-- Author: Peter KURNEV
-- <pkv@irinox>
---Copyright: Matra Datavision 2001
class PaveBlockIterator from BOPTools
---Purpose:
--- class providing iterations for PaveSet to
--- have the right order of paves along the edge
---
uses
PaveSet from BOPTools,
CArray1OfPave from BOPTools,
PaveBlock from BOPTools
is
Create
returns PaveBlockIterator from BOPTools;
---Purpose:
--- Empty constructor
---
Create (aEdge : Integer from Standard;
aPaveSet: PaveSet from BOPTools)
returns PaveBlockIterator from BOPTools;
---Purpose:
--- Constructor
--- aEdge - DS-index of the edge
--- aPaveSet - a set of paves for the edge
---
Initialize(me:out;aEdge : Integer from Standard;
aPaveSet: PaveSet from BOPTools);
---Purpose:
--- Resets the iterator on the PaveSet <aPaveSet>
---
More(me)
returns Boolean from Standard;
---Purpose:
--- Returns True if there is a current Pave in
--- the iteration.
---
Next(me:out);
---Purpose:
--- Moves to the next Pave in the PaveSet
---
Value(me:out)
returns PaveBlock from BOPTools;
---C++: return &
---Purpose:
--- Returns the current Pave
---
fields
myEdge : Integer from Standard;
myIndex : Integer from Standard;
myPaveSet : PaveSet from BOPTools;
myPaves : CArray1OfPave from BOPTools;
myPaveBlock: PaveBlock from BOPTools;
end PaveBlockIterator;
|