1 -- File: GeomToStep_MakeBoundedSurface.cdl
2 -- Created: Tue Jun 22 12:37:10 1993
3 -- Author: Martine LANGLOIS
5 ---Copyright: Matra Datavision 1993
7 class MakeBoundedSurface from GeomToStep inherits Root from GeomToStep
9 ---Purpose: This class implements the mapping between classes
10 -- BoundedSurface from Geom and the class BoundedSurface from
11 -- StepGeom which describes a BoundedSurface from prostep.
12 -- As BoundedSurface is an abstract BoundedSurface this class
13 -- is an access to the sub-class required.
15 uses BoundedSurface from Geom,
16 BoundedSurface from StepGeom
18 raises NotDone from StdFail
22 Create ( C : BoundedSurface from Geom ) returns MakeBoundedSurface;
24 Value (me) returns BoundedSurface from StepGeom
31 theBoundedSurface : BoundedSurface from StepGeom;
32 -- The solution from StepGeom
34 end MakeBoundedSurface;