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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
-- File: Geom_Circle.cdl
-- Created: Wed Mar 10 09:29:19 1993
-- Author: JCV
-- <fid@phylox>
-- Copyright: Matra Datavision 1993
class Circle from Geom inherits Conic from Geom
---Purpose : Describes a circle in 3D space.
-- A circle is defined by its radius and, as with any conic
-- curve, is positioned in space with a right-handed
-- coordinate system (gp_Ax2 object) where:
-- - the origin is the center of the circle, and
-- - the origin, "X Direction" and "Y Direction" define the
-- plane of the circle.
-- This coordinate system is the local coordinate
-- system of the circle.
-- The "main Direction" of this coordinate system is the
-- vector normal to the plane of the circle. The axis, of
-- which the origin and unit vector are respectively the
-- origin and "main Direction" of the local coordinate
-- system, is termed the "Axis" or "main Axis" of the circle.
-- The "main Direction" of the local coordinate system
-- gives an explicit orientation to the circle (definition of
-- the trigonometric sense), determining the direction in
-- which the parameter increases along the circle.
-- The Geom_Circle circle is parameterized by an angle:
-- P(U) = O + R*Cos(U)*XDir + R*Sin(U)*YDir, where:
-- - P is the point of parameter U,
-- - O, XDir and YDir are respectively the origin, "X
-- Direction" and "Y Direction" of its local coordinate system,
-- - R is the radius of the circle.
-- The "X Axis" of the local coordinate system therefore
-- defines the origin of the parameter of the circle. The
-- parameter is the angle with this "X Direction".
-- A circle is a closed and periodic curve. The period is
-- 2.*Pi and the parameter range is [ 0, 2.*Pi [.
uses Ax2 from gp,
Circ from gp,
Pnt from gp,
Trsf from gp,
Vec from gp,
Geometry from Geom
raises ConstructionError from Standard,
RangeError from Standard
is
Create (C : Circ) returns mutable Circle;
---Purpose : Constructs a circle by conversion of the gp_Circ circle C.
Create (A2 : Ax2; Radius : Real) returns mutable Circle
---Purpose : Constructs a circle of radius Radius, where A2 locates the circle and
-- defines its orientation in 3D space such that:
-- - the center of the circle is the origin of A2,
-- - the origin, "X Direction" and "Y Direction" of A2
-- define the plane of the circle,
-- - A2 is the local coordinate system of the circle.
-- Note: It is possible to create a circle where Radius is equal to 0.0.
raises ConstructionError;
---Purpose : raised if Radius < 0.
SetCirc (me : mutable; C : Circ)
---Purpose :
-- Set <me> so that <me> has the same geometric properties as C.
is static;
SetRadius (me : mutable; R : Real)
---Purpose: Assigns the value R to the radius of this circle.
-- Note: it is possible to have a circle with a radius equal to 0.0.
-- Exceptions - Standard_ConstructionError if R is negative.
raises ConstructionError
is static;
Circ (me) returns Circ
---Purpose :
-- returns the non transient circle from gp with the same
-- geometric properties as <me>.
is static;
Radius(me) returns Real
is static;
---Purpose: Returns the radius of this circle.
ReversedParameter(me; U : Real) returns Real is redefined static;
---Purpose: Computes the parameter on the reversed circle for
-- the point of parameter U on this circle.
-- For a circle, the returned value is: 2.*Pi - U.
Eccentricity (me) returns Real is redefined static;
---Purpose : Returns the eccentricity e = 0 for a circle.
FirstParameter (me) returns Real is redefined static;
---Purpose : Returns the value of the first parameter of this
-- circle. This is 0.0, which gives the start point of this circle, or
-- The start point and end point of a circle are coincident.
LastParameter (me) returns Real is redefined static;
---Purpose : Returns the value of the last parameter of this
-- circle. This is 2.*Pi, which gives the end point of this circle.
-- The start point and end point of a circle are coincident.
IsClosed (me) returns Boolean is redefined static;
---Purpose : returns True.
IsPeriodic (me) returns Boolean is redefined static;
---Purpose : returns True.
D0(me; U : Real; P : out Pnt) is redefined static;
---Purpose: Returns in P the point of parameter U.
-- P = C + R * Cos (U) * XDir + R * Sin (U) * YDir
-- where C is the center of the circle , XDir the XDirection and
-- YDir the YDirection of the circle's local coordinate system.
D1 (me; U : Real; P : out Pnt; V1 : out Vec) is redefined static;
---Purpose :
-- Returns the point P of parameter U and the first derivative V1.
D2 (me; U : Real; P : out Pnt; V1, V2 : out Vec) is redefined static;
---Purpose :
-- Returns the point P of parameter U, the first and second
-- derivatives V1 and V2.
D3 (me; U : Real; P : out Pnt; V1, V2, V3 : out Vec) is redefined static;
---Purpose :
-- Returns the point P of parameter u, the first second and third
-- derivatives V1 V2 and V3.
DN (me; U : Real; N : Integer) returns Vec
---Purpose :
-- The returned vector gives the value of the derivative for the
-- order of derivation N.
raises RangeError
is redefined static;
---Purpose : Raised if N < 1.
Transform (me : mutable; T : Trsf) is redefined static;
---Purpose: Applies the transformation T to this circle.
Copy (me) returns mutable like me
is redefined static;
---Purpose: Creates a new object which is a copy of this circle.
fields
radius : Real;
end;
|
