blob: b96aaa8a9cb59682587690c80b79e6ec3240c981 (
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
73
74
75
76
77
78
79
80
81
|
-- File: MgtPoly.cdl
-- Created: Tue Oct 24 15:24:53 1995
-- Author: Mister rmi
-- <rmi@pronox>
---Copyright: Matra Datavision 1995
package MgtPoly
---Purpose: This package provides methods to translate
-- transient objects from Poly to persistent objects
-- from PPoly and vice-versa.
-- As far as objects can be shared (just as Geometry),
-- a map is given as translate argument.
uses Poly,
PPoly,
PTColStd
is
-- Triangle (Storable)
Translate(POjb: Triangle from PPoly)
returns Triangle from Poly;
---Purpose: translates Transient -> Persistent
Translate(TObj: Triangle from Poly)
returns Triangle from PPoly;
---Purpose: translates Persistent -> Transient
-- Triangulation
Translate(PObj : Triangulation from PPoly;
aMap : in out PersistentTransientMap from PTColStd)
returns Triangulation from Poly;
---Purpose: translates Persistent -> Transient
Translate(TObj : Triangulation from Poly;
aMap : in out TransientPersistentMap from PTColStd)
returns Triangulation from PPoly;
---Purpose: translates Transient -> Persistent
-- Polygon3D
Translate(PObj : Polygon3D from PPoly;
aMap : in out PersistentTransientMap from PTColStd)
returns Polygon3D from Poly;
---Purpose: translates Persistent -> Transient
Translate(TObj : Polygon3D from Poly;
aMap : in out TransientPersistentMap from PTColStd)
returns Polygon3D from PPoly;
---Purpose: translates Transient -> Persistent
-- Polygon2D
Translate(PObj : Polygon2D from PPoly;
aMap : in out PersistentTransientMap from PTColStd)
returns Polygon2D from Poly;
---Purpose: translates Persistent -> Transient
Translate(TObj : Polygon2D from Poly;
aMap : in out TransientPersistentMap from PTColStd)
returns Polygon2D from PPoly;
---Purpose: translates Transient -> Persistent
-- PolygonOnTriangulation
Translate(PObj : PolygonOnTriangulation from PPoly;
aMap : in out PersistentTransientMap from PTColStd)
returns PolygonOnTriangulation from Poly;
---Purpose: translates Persistent -> Transient
Translate(TObj : PolygonOnTriangulation from Poly;
aMap : in out TransientPersistentMap from PTColStd)
returns PolygonOnTriangulation from PPoly;
---Purpose: translates Transient -> Persistent
end MgtPoly;
|
