blob: 6981d46d802b2940321f4c5317b0f3111bccc2fb (
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
|
-- File: StepSelect_STEPGSCurves.cdl
-- Created: Mon Mar 22 17:55:38 1999
-- Author: data exchange team
-- <det@friendox.nnov.matra-dtv.fr>
---Copyright: Matra Datavision 1999
class SelectGSCurves from STEPSelections inherits SelectExplore from IFSelect
---Purpose: This selection returns "curves in the geometric_set (except composite curves)"
uses
AsciiString from TCollection,
Transient,
EntityIterator,
Graph
is
Create returns mutable SelectGSCurves;
Explore(me; level: Integer; ent: Transient; G: Graph;
explored: in out EntityIterator)
returns Boolean;
---Purpose:
ExploreLabel (me) returns AsciiString from TCollection;
---Purpose : Returns a text defining the criterium : "Curves"
end SelectGSCurves;
|