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
|
-- File: Geom2d_Conic.cdl
-- Created: Wed Mar 24 17:59:38 1993
-- Author: JCV
-- <fid@sdsun2>
-- Copyright: Matra Datavision 1993
---Copyright: Matra Datavision 1991
deferred class Conic from Geom2d inherits Curve from Geom2d
--- Purpose : The abstract class Conic describes the common
-- behavior of conic curves in 2D space and, in
-- particular, their general characteristics. The Geom2d
-- package provides four specific classes of conics:
-- Geom2d_Circle, Geom2d_Ellipse,
-- Geom2d_Hyperbola and Geom2d_Parabola.
-- A conic is positioned in the plane with a coordinate
-- system (gp_Ax22d object), where the origin is the
-- center of the conic (or the apex in case of a parabola).
-- This coordinate system is the local coordinate
-- system of the conic. It gives the conic an explicit
-- orientation, determining the direction in which the
-- parameter increases along the conic. The "X Axis" of
-- the local coordinate system also defines the origin of
-- the parameter of the conic.
uses Ax2d from gp,
Ax22d from gp,
Pnt2d from gp,
Vec2d from gp,
Shape from GeomAbs
raises ConstructionError from Standard,
DomainError from Standard
is
SetAxis (me: mutable; A: Ax22d);
---Purpose: Modifies this conic, redefining its local coordinate system
-- partially, by assigning P as its origin
SetXAxis (me : mutable; A : Ax2d);
SetYAxis (me : mutable; A : Ax2d);
---Purpose: Assigns the origin and unit vector of axis A to the
-- origin of the local coordinate system of this conic and either:
-- - its "X Direction", or
-- - its "Y Direction".
-- The other unit vector of the local coordinate system
-- of this conic is recomputed normal to A, without
-- changing the orientation of the local coordinate
-- system (right-handed or left-handed).
SetLocation (me : mutable; P : Pnt2d);
--- Purpose : Modifies this conic, redefining its local coordinate
-- system fully, by assigning A as this coordinate system.
XAxis (me) returns Ax2d;
--- Purpose :
-- Returns the "XAxis" of the conic.
-- This axis defines the origin of parametrization of the conic.
-- This axis and the "Yaxis" define the local coordinate system
-- of the conic.
-- -C++: return const&
YAxis (me) returns Ax2d;
--- Purpose :
-- Returns the "YAxis" of the conic.
-- The "YAxis" is perpendicular to the "Xaxis".
Eccentricity (me) returns Real
--- Purpose :
-- returns the eccentricity value of the conic e.
-- e = 0 for a circle
-- 0 < e < 1 for an ellipse (e = 0 if MajorRadius = MinorRadius)
-- e > 1 for a hyperbola
-- e = 1 for a parabola
raises DomainError
is deferred;
Location (me) returns Pnt2d;
--- Purpose :
-- Returns the location point of the conic.
-- For the circle, the ellipse and the hyperbola it is the center of
-- the conic. For the parabola it is the vertex of the parabola.
Position (me) returns Ax22d;
---Purpose :
-- Returns the local coordinates system of the conic.
---C++: return const&
Reverse (me : mutable);
--- Purpose :
-- Reverses the direction of parameterization of <me>.
-- The local coordinate system of the conic is modified.
ReversedParameter(me; U : Real) returns Real
---Purpose: Returns the parameter on the reversed curve for
-- the point of parameter U on <me>.
--
is deferred;
Continuity (me) returns Shape from GeomAbs;
--- Purpose : Returns GeomAbs_CN which is the global continuity of any conic.
IsCN (me; N : Integer) returns Boolean;
--- Purpose :
-- Returns True, the order of continuity of a conic is infinite.
fields
pos : Ax22d is protected;
end;
|
