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
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
-- File: Geom_CylindricalSurface.cdl
-- Created: Wed Mar 10 09:36:50 1993
-- Author: JCV
-- <fid@phylox>
-- Copyright: Matra Datavision 1993
class CylindricalSurface from Geom inherits ElementarySurface from Geom
---Purpose : This class defines the infinite cylindrical surface.
--
-- The local coordinate system of the CylindricalSurface is defined
-- with an axis placement (see class ElementarySurface).
--
-- The "ZAxis" is the symmetry axis of the CylindricalSurface,
-- it gives the direction of increasing parametric value V.
--
-- The parametrization range is :
-- U [0, 2*PI], V ]- infinite, + infinite[
--
-- The "XAxis" and the "YAxis" define the placement plane of the
-- surface (Z = 0, and parametric value V = 0) perpendicular to
-- the symmetry axis. The "XAxis" defines the origin of the
-- parameter U = 0. The trigonometric sense gives the positive
-- orientation for the parameter U.
--
-- When you create a CylindricalSurface the U and V directions of
-- parametrization are such that at each point of the surface the
-- normal is oriented towards the "outside region".
--
-- The methods UReverse VReverse change the orientation of the
-- surface.
uses Ax3 from gp,
Cylinder from gp,
Pnt from gp,
Trsf from gp,
GTrsf2d from gp,
Vec from gp,
Curve from Geom,
Geometry from Geom
raises ConstructionError from Standard,
RangeError from Standard
is
Create (A3 : Ax3; Radius : Real) returns mutable CylindricalSurface
---Purpose :
-- A3 defines the local coordinate system of the cylindrical surface.
-- The "ZDirection" of A3 defines the direction of the surface's
-- axis of symmetry.
-- At the creation the parametrization of the surface is defined
-- such that the normal Vector (N = D1U ^ D1V) is oriented towards
-- the "outside region" of the surface.
--- Warnings :
-- It is not forbidden to create a cylindrical surface with
-- Radius = 0.0
raises ConstructionError;
---Purpose : Raised if Radius < 0.0
Create (C : Cylinder) returns mutable CylindricalSurface;
---Purpose :
-- Creates a CylindricalSurface from a non transient Cylinder
-- from package gp.
SetCylinder (me : mutable; C : Cylinder);
---Purpose :
-- Set <me> so that <me> has the same geometric properties as C.
SetRadius (me : mutable; R : Real)
---Purpose : Changes the radius of the cylinder.
raises ConstructionError;
---Purpose : Raised if R < 0.0
Cylinder (me) returns Cylinder;
---Purpose :
-- returns a non transient cylinder with the same geometric
-- properties as <me>.
UReversedParameter (me; U : Real) returns Real;
---Purpose: Return the parameter on the Ureversed surface for
-- the point of parameter U on <me>.
-- Return 2.PI - U.
VReversedParameter (me; V : Real) returns Real;
---Purpose: Return the parameter on the Vreversed surface for
-- the point of parameter V on <me>.
-- Return -V
TransformParameters(me; U,V : in out Real; T : Trsf from gp)
---Purpose: Computes the parameters on the transformed surface for
-- the transform of the point of parameters U,V on <me>.
-- me->Transformed(T)->Value(U',V')
-- is the same point as
-- me->Value(U,V).Transformed(T)
-- Where U',V' are the new values of U,V after calling
-- me->TranformParameters(U,V,T)
-- This methods multiplies V by T.ScaleFactor()
is redefined;
ParametricTransformation(me; T : Trsf from gp) returns GTrsf2d from gp
---Purpose: Returns a 2d transformation used to find the new
-- parameters of a point on the transformed surface.
-- me->Transformed(T)->Value(U',V')
-- is the same point as
-- me->Value(U,V).Transformed(T)
-- Where U',V' are obtained by transforming U,V with
-- th 2d transformation returned by
-- me->ParametricTransformation(T)
-- This methods returns a scale centered on the
-- U axis with T.ScaleFactor
is redefined;
Bounds (me; U1, U2, V1, V2 : out Real);
---Purpose :
-- The CylindricalSurface is infinite in the V direction so
-- V1 = Realfirst, V2 = RealLast from package Standard.
-- U1 = 0 and U2 = 2*PI.
Coefficients (me; A1, A2, A3, B1, B2, B3, C1, C2, C3, D : out Real);
---Purpose :
-- Returns the coefficients of the implicit equation of the quadric
-- in the absolute cartesian coordinate system :
-- These coefficients are normalized.
-- A1.X**2 + A2.Y**2 + A3.Z**2 + 2.(B1.X.Y + B2.X.Z + B3.Y.Z) +
-- 2.(C1.X + C2.Y + C3.Z) + D = 0.0
Radius (me) returns Real;
---Purpose: Returns the radius of this cylinder.
IsUClosed (me) returns Boolean;
---Purpose : Returns True.
IsVClosed (me) returns Boolean;
---Purpose : Returns False.
IsUPeriodic (me) returns Boolean;
---Purpose : Returns True.
IsVPeriodic (me) returns Boolean;
---Purpose : Returns False.
UIso (me; U : Real) returns mutable Curve;
---Purpose :
-- The UIso curve is a Line. The location point of this line is
-- on the placement plane (XAxis, YAxis) of the surface.
-- This line is parallel to the axis of symmetry of the surface.
VIso (me; V : Real) returns mutable Curve;
---Purpose :
-- The VIso curve is a circle. The start point of this circle
-- (U = 0) is defined with the "XAxis" of the surface.
-- The center of the circle is on the symmetry axis.
D0 (me; U, V : Real; P : out Pnt);
---Purpose :
-- Computes the point P (U, V) on the surface.
-- P (U, V) = Loc + Radius * (cos (U) * XDir + sin (U) * YDir) +
-- V * ZDir
-- where Loc is the origin of the placement plane (XAxis, YAxis)
-- XDir is the direction of the XAxis and YDir the direction of
-- the YAxis.
D1 (me; U, V : Real; P : out Pnt; D1U, D1V : out Vec);
---Purpose :
-- Computes the current point and the first derivatives in the
-- directions U and V.
D2 (me; U, V : Real; P : out Pnt; D1U, D1V, D2U, D2V, D2UV : out Vec);
---Purpose :
-- Computes the current point, the first and the second derivatives
-- in the directions U and V.
D3 (me; U, V : Real; P : out Pnt;
D1U, D1V, D2U, D2V, D2UV, D3U, D3V, D3UUV, D3UVV : out Vec);
---Purpose :
-- Computes the current point, the first, the second and the
-- third derivatives in the directions U and V.
DN (me; U, V : Real; Nu, Nv : Integer) returns Vec
---Purpose :
-- Computes the derivative of order Nu in the direction u and Nv
-- in the direction v.
raises RangeError;
---Purpose : Raised if Nu + Nv < 1 or Nu < 0 or Nv < 0.
Transform (me : mutable; T : Trsf);
---Purpose: Applies the transformation T to this cylinder.
Copy (me) returns mutable like me;
---Purpose: Creates a new object which is a copy of this cylinder.
fields
radius : Real;
end;
|
