blob: 32278f7d3fe6f9f25fc8efc907dc08381b1a55ec (
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
|
-- File: MgtTopLoc.cdl
-- Created: Wed Mar 3 18:39:33 1993
-- Author: Remi LEQUETTE
-- <rle@phobox>
-- Update: Frederic MAUPAS
-- <fma@pronox>
---Copyright: Matra Datavision 1993
package MgtTopLoc
---Purpose: The package MgtTopLoc provides methods to store
-- and retrieve local coordinate systems. i.e.
-- translationg them from Persistent to Transient and
-- vice-versa.
--
-- * Persistent local coordinate systems are provided
-- by the package PTopLoc.
--
-- * Transient local coordinate systems are provided
-- by the package TopLoc.
--
-- This package keeps track of previous translations
-- to preserve the incremental feature of coordinate
-- systems. i.e. once a data has been translated,
-- translating it back will give the original data.
--
-- Two kinds of objects are managed :
--
-- * Datum3D : A Datum3D is an elementary local
-- coordinate system handled by reference.
--
-- * Location : A Location is a complex local
-- coordinate system made by linking elementary
-- coordinate systems (Datum3D). If a Location is
-- translated twice only the local coordinate systems
-- will be the same. This is not a problem as the
-- comparison of Locations is based on the comparison
-- of local coordinate systems.
uses
TopLoc,
PTopLoc,
PTColStd
is
Translate(D : Datum3D from TopLoc;
M : in out TransientPersistentMap from PTColStd)
returns Datum3D from PTopLoc;
---Purpose: Translate a transient Datum3D to a persistant
-- Datum3D.
---Level: Internal
Translate(D : Datum3D from PTopLoc;
M : in out PersistentTransientMap from PTColStd)
returns Datum3D from TopLoc;
---Purpose: Translate a persistant Datum3D to a transient
-- Datum3D.
---Level: Internal
Translate(L : Location from TopLoc;
M : in out TransientPersistentMap from PTColStd)
returns Location from PTopLoc;
---Purpose: Translate a non storable Location to a storable
-- Location.
---Level: Internal
Translate(L : Location from PTopLoc;
M : in out PersistentTransientMap from PTColStd)
returns Location from TopLoc;
---Purpose: Translate a storable Location to a non storable
-- Location.
---Level: Internal
end MgtTopLoc;
|
