blob: a4edc28d2217f544ba6cc47ab967ffbd503a583a (
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
|
-- File: HShape.cdl
-- Created: Tue Dec 11 16:55:01 1990
-- Author: Remi Lequette
-- <rle@topsn3>
-- Update: Frederic Maupas
---Copyright: Matra Datavision 1990, 1992
class HShape from PTopoDS inherits ExternShareable from ObjMgt
---Purpose: The PTopoDS_HShape is the Persistent view of a TopoDS_Shape.
-- This can be a vertex, an edge, a wire, a face, a shell, a solid and so on.
-- It can be shared by other objects.
-- a HShape contains :
--
-- - a reference to a TShape.
--
-- - a Location to put the TShape in a local coordinate
-- system.
--
-- - an Orientation.
--
-- It inherits from ExternShareable, so that it can be shared
-- by other objects located outside the container.
uses
Orientation from TopAbs,
TShape from PTopoDS,
Location from PTopLoc
is
Create returns mutable HShape from PTopoDS;
---Level: Internal
TShape(me) returns any TShape from PTopoDS
---Level: Internal
is static;
TShape(me : mutable; T : TShape from PTopoDS)
---Level: Internal
is static;
Location(me) returns Location from PTopLoc
---Level: Internal
is static;
Location(me : mutable; L : Location from PTopLoc)
---Level: Internal
is static;
Orientation(me) returns Orientation from TopAbs
---Level: Internal
is static;
Orientation(me: mutable; O : Orientation from TopAbs)
---Level: Internal
is static;
fields
myTShape : TShape from PTopoDS;
myLocation : Location from PTopLoc;
myOrient : Orientation from TopAbs;
end HShape;
|