blob: 7dca1c8ea7e64db2fff198bf011bf31f10b128c6 (
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
82
83
84
85
|
-- File: Aspect_CircularGrid.cdl
-- Created: Fri Mar 17 08:21:04 1995
-- Author: Mister rmi
-- <rmi@pernox>
---Copyright: Matra Datavision 1995
class CircularGrid from Aspect
inherits Grid from Aspect
uses
PlaneAngle, Length from Quantity
raises
NegativeValue,NullValue,NumericError from Standard
is
Create(aRadiusStep: Length from Quantity;
aDivisionNumber: Integer from Standard;
XOrigin: Length from Quantity = 0;
anYOrigin: Length from Quantity = 0;
aRotationAngle: PlaneAngle from Quantity = 0)
returns mutable CircularGrid from Aspect;
---Purpose: creates a new grid. By default this grid is not
-- active.
---Category: grid definition methods
SetRadiusStep(me: mutable; aStep: Length from Quantity)
---Purpose: defines the x step of the grid.
raises NegativeValue,NullValue from Standard
---Warning: raises an exception if <aStep> is not strictly positive.
is static;
SetDivisionNumber(me: mutable; aNumber: Integer from Standard)
---Purpose: defines the step of the grid.
raises NegativeValue,NullValue from Standard
---Warning: raises an exception if <aNumber> is not strictly positive.
is static;
SetGridValues(me: mutable; XOrigin, YOrigin: Length from Quantity;
RadiusStep: Length from Quantity;
DivisionNumber: Integer from Standard;
RotationAngle: PlaneAngle from Quantity)
raises NegativeValue,NullValue from Standard
---Warning: raises an exception if <RadiusStep> is not strictly positive.
---Warning: raises an exception if <DivisionNumber> is not strictly positive.
is static;
---Category: Pick methods
--
Compute(me; X,Y: Length from Quantity; gridX, gridY : out Length from Quantity)
---Purpose: returns the point of the grid the closest to the point X,Y
is static;
---Category: inquire methods
RadiusStep(me) returns Length from Quantity
---Purpose: returns the x step of the grid.
is static;
DivisionNumber(me) returns Integer from Standard
---Purpose: returns the x step of the grid.
is static;
---Category: private methods.
Init(me: mutable)
is redefined static;
fields
myRadiusStep: Length from Quantity;
myDivisionNumber: Integer from Standard;
myAlpha: Real from Standard;
myA1,myB1: Real from Standard;
end CircularGrid from Aspect;
|
