blob: d98f16ac8c116b927a76fec04bc3583e3afffe25 (
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
-- File: BooleanOperand.cdl
-- Created: Fri Dec 1 11:11:10 1995
-- Author: EXPRESS->CDL V0.2 Translator
-- Copyright: Matra-Datavision 1993
class BooleanOperand from StepShape
-- inherits SelectType from StepData
-- <BooleanOperand> is an EXPRESS Select Type construct translation.
-- it gathers : SolidModel, HalfSpaceSolid, CsgPrimitive, BooleanResult
uses
SolidModel,
HalfSpaceSolid,
CsgPrimitive,
BooleanResult
is
Create returns BooleanOperand;
---Purpose : Returns a BooleanOperand SelectType
SetTypeOfContent(me : in out; aTypeOfContent : Integer);
TypeOfContent(me) returns Integer;
-- 1 : SolidModel,
-- 2 : HalfSpaceSolid,
-- 3 : CsgPrimitive,
-- 4 : BooleanResult
SolidModel (me) returns any SolidModel;
---Purpose : returns Value as a SolidModel (Null if another
-- type)
SetSolidModel(me : in out;
aSolidModel : SolidModel from StepShape);
HalfSpaceSolid (me) returns any HalfSpaceSolid;
---Purpose : returns Value as a HalfSpaceSolid (Null if
-- another type)
SetHalfSpaceSolid(me : in out;
aHalfSpaceSolid : HalfSpaceSolid from StepShape);
CsgPrimitive (me) returns CsgPrimitive;
---Purpose : returns Value as a CsgPrimitive (Null if another
-- type)
-- CsgPrimitive is another Select Type
SetCsgPrimitive(me : in out;
aCsgPrimitive : CsgPrimitive from StepShape);
BooleanResult (me) returns any BooleanResult;
---Purpose : returns Value as a BooleanResult (Null if another
-- type)
SetBooleanResult(me:in out;
aBooleanResult : BooleanResult from StepShape);
fields
theSolidModel : SolidModel from StepShape;
theHalfSpaceSolid : HalfSpaceSolid from StepShape;
theCsgPrimitive : CsgPrimitive from StepShape; -- Select Type
theBooleanResult : BooleanResult from StepShape;
theTypeOfContent : Integer from Standard;
end BooleanOperand;
|
