7fd59977 |
1 | -- File: Shell.cdl |
2 | -- Created: Fri Dec 1 11:11:11 1995 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | |
8 | class Shell from StepShape inherits SelectType from StepData |
9 | |
10 | -- <Shell> is an EXPRESS Select Type construct translation. |
11 | -- it gathers : OpenShell, ClosedShell |
12 | |
13 | uses |
14 | |
15 | OpenShell, |
16 | ClosedShell |
17 | is |
18 | |
19 | Create returns Shell; |
20 | ---Purpose : Returns a Shell SelectType |
21 | |
22 | CaseNum (me; ent : Transient) returns Integer; |
23 | ---Purpose: Recognizes a Shell Kind Entity that is : |
24 | -- 1 -> OpenShell |
25 | -- 2 -> ClosedShell |
26 | -- 0 else |
27 | |
28 | OpenShell (me) returns any OpenShell; |
29 | ---Purpose : returns Value as a OpenShell (Null if another type) |
30 | |
31 | ClosedShell (me) returns any ClosedShell; |
32 | ---Purpose : returns Value as a ClosedShell (Null if another type) |
33 | |
34 | |
35 | end Shell; |
36 | |