blob: 7feaeaa22ccfc3f57a4eb557265c8e81b0515e26 (
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
|
-- File: LevelListEntity.cdl
-- Created: Tue Apr 7 16:00:09 1992
-- Author: Christian CAILLET
-- <cky@phobox>
---Copyright: Matra Datavision 1992
deferred class LevelListEntity from IGESData inherits IGESEntity
---Purpose : defines required type for LevelList in directory part
-- an effective LevelList entity must inherits it
uses Boolean, Integer
raises OutOfRange
is
NbLevelNumbers (me) returns Integer is deferred;
---Purpose : Must return the count of levels
LevelNumber (me; num : Integer) returns Integer
raises OutOfRange is deferred;
---Purpose : returns the Level Number of <me>, indicated by <num>
-- raises an exception if num is out of range
HasLevelNumber (me; level : Integer) returns Boolean;
---Purpose : returns True if <level> is in the list
end LevelListEntity;
|
