blob: f6bf3f592d5eb29962f20b15b7d1c676cd646fe0 (
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
|
-- File: PTopLoc_Location.cdl
-- Created: Wed Mar 3 16:39:18 1993
-- Author: Remi LEQUETTE
-- <rle@phobox>
---Copyright: Matra Datavision 1993
class Location from PTopLoc inherits Storable
---Purpose: A Storable composed local coordinate system. Made
-- with local coordinate systems raised to power
-- elevation.
--
-- A Location is either :
--
-- * The Identity.
--
-- * The product of a Datum3D raised to a power and
-- an other Location called the next Location.
uses
Datum3D from PTopLoc,
ItemLocation from PTopLoc
raises
NoSuchObject from Standard
is
Create returns Location from PTopLoc;
---Purpose: Creates an Identity Location.
---Level: Internal
Create(D : Datum3D from PTopLoc;
P : Integer from Standard;
N : Location from PTopLoc)
returns Location from PTopLoc;
---Purpose: Creates a location being the product.
-- N * D ^ P
---Level: Internal
IsIdentity(me) returns Boolean from Standard
---Purpose: True when the location is an identity.
---Level: Internal
is static;
Datum3D(me) returns Datum3D from PTopLoc
---Purpose: Returns the first Datum. An error is raised if the
-- location is an identity.
---Level: Internal
raises NoSuchObject from Standard
is static;
Power(me) returns Integer from Standard
---Purpose: Returns the power elevation of the first datum. An
-- error is raised if the location is an identity.
---Level: Internal
raises NoSuchObject from Standard
is static;
Next(me) returns Location from PTopLoc
---Purpose: Returns next Location. An error is raised if the
-- location is an identity.
---Level: Internal
raises NoSuchObject from Standard
is static;
fields
myData : ItemLocation from PTopLoc;
end Location;
|
