blob: 9142cb5757a99aaf204075ab0fe801359e39b069 (
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
|
-- File: CsgPrimitive.cdl
-- Created: Fri Dec 1 11:11:10 1995
-- Author: EXPRESS->CDL V0.2 Translator
-- Copyright: Matra-Datavision 1993
class CsgPrimitive from StepShape inherits SelectType from StepData
-- <CsgPrimitive> is an EXPRESS Select Type construct translation.
-- it gathers : Sphere, Block, RightAngularWedge, Torus, RightCircularCone, RightCircularCylinder
uses
Sphere,
Block,
RightAngularWedge,
Torus,
RightCircularCone,
RightCircularCylinder
is
Create returns CsgPrimitive;
---Purpose : Returns a CsgPrimitive SelectType
CaseNum (me; ent : Transient) returns Integer;
---Purpose: Recognizes a CsgPrimitive Kind Entity that is :
-- 1 -> Sphere
-- 2 -> Block
-- 3 -> RightAngularWedge
-- 4 -> Torus
-- 5 -> RightCircularCone
-- 6 -> RightCircularCylinder
-- 0 else
Sphere (me) returns any Sphere;
---Purpose : returns Value as a Sphere (Null if another type)
Block (me) returns any Block;
---Purpose : returns Value as a Block (Null if another type)
RightAngularWedge (me) returns any RightAngularWedge;
---Purpose : returns Value as a RightAngularWedge (Null if another type)
Torus (me) returns any Torus;
---Purpose : returns Value as a Torus (Null if another type)
RightCircularCone (me) returns any RightCircularCone;
---Purpose : returns Value as a RightCircularCone (Null if another type)
RightCircularCylinder (me) returns any RightCircularCylinder;
---Purpose : returns Value as a RightCircularCylinder (Null if another type)
end CsgPrimitive;
|
