blob: ed1265ac0b5f3f1a97aaed19ab30d220991d72d5 (
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
|
-- File: GeomToStep_MakeEllipse.cdl
-- Created: Fri Sep 2 08:22:18 1994
-- Author: Frederic MAUPAS
-- <fma@minox>
---Copyright: Matra Datavision 1994
class MakeEllipse from GeomToStep inherits Root from GeomToStep
---Purpose: This class implements the mapping between classes
-- Ellipse from Geom, and Circ from gp, and the class
-- Ellipse from StepGeom which describes a Ellipse from
-- Prostep.
uses Elips from gp,
Elips2d from gp,
Ellipse from Geom,
Ellipse from Geom2d,
Ellipse from StepGeom
raises NotDone from StdFail
is
Create ( C : Elips from gp ) returns MakeEllipse;
Create ( C : Ellipse from Geom ) returns MakeEllipse;
Create ( C : Ellipse from Geom2d ) returns MakeEllipse;
Value (me) returns Ellipse from StepGeom
raises NotDone
is static;
---C++: return const&
fields
theEllipse : Ellipse from StepGeom;
-- The solution from StepGeom
end MakeEllipse;
|
