7fd59977 |
1 | -- File: PresentationStyleSelect.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 PresentationStyleSelect from StepVisual inherits SelectType from StepData |
9 | |
10 | -- <PresentationStyleSelect> is an EXPRESS Select Type construct translation. |
11 | -- it gathers : PointStyle, CurveStyle, SurfaceStyleUsage, SymbolStyle, FillAreaStyle, TextStyle |
12 | -- Rev4 : only remain PointStyle, CurveStyle, SurfaceStyleUsage |
13 | |
14 | uses |
15 | |
16 | PointStyle, |
17 | CurveStyle, |
18 | SurfaceStyleUsage |
19 | -- SymbolStyle, |
20 | -- FillAreaStyle, |
21 | -- TextStyle |
22 | is |
23 | |
24 | Create returns PresentationStyleSelect; |
25 | ---Purpose : Returns a PresentationStyleSelect SelectType |
26 | |
27 | CaseNum (me; ent : Transient) returns Integer; |
28 | ---Purpose: Recognizes a PresentationStyleSelect Kind Entity that is : |
29 | -- 1 -> PointStyle |
30 | -- 2 -> CurveStyle |
31 | -- 3 -> SurfaceStyleUsage |
32 | -- 4 -> SymbolStyle |
33 | -- 5 -> FillAreaStyle |
34 | -- 6 -> TextStyle |
35 | -- 0 else |
36 | |
37 | PointStyle (me) returns any PointStyle; |
38 | ---Purpose : returns Value as a PointStyle (Null if another type) |
39 | |
40 | CurveStyle (me) returns any CurveStyle; |
41 | ---Purpose : returns Value as a CurveStyle (Null if another type) |
42 | |
43 | SurfaceStyleUsage (me) returns any SurfaceStyleUsage; |
44 | ---Purpose : returns Value as a SurfaceStyleUsage (Null if another type) |
45 | |
46 | end PresentationStyleSelect; |
47 | |