blob: 8cd90cb2765c3cc4b03aebd7909e9e84cbe0dafb (
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
|
-- File: MAT2d_SketchExplorer.cdl
-- Created: Mon Jul 12 12:07:58 1993
-- Author: Yves FRICAUD
-- <yfr@phylox>
---Copyright: Matra Datavision 1993
deferred class SketchExplorer from MAT2d
---Purpose: SketchExplorer is an iterator on a sketch. A
-- sketch is a set of contours, each contour is a set
-- of curves from Geom2d.
uses
Curve from Geom2d
is
NumberOfContours(me)
--- Purpose : Returns the number of contours in the figure.
returns Integer;
Init(me : in out ; ContourIndex : Integer );
--- Purpose : Initializes the curves explorer on the contour
-- of range <ContourIndex>.
More(me) returns Boolean from Standard;
--- Purpose: Returns False if there is no more curves on the
-- current contour.
Next(me : in out);
--- Purpose : Moves to the next curve of the current contour.
Value(me) returns Curve from Geom2d;
--- Purpose : Returns the current curve on the current contour.
end SketchExplorer;
|
