1 -- File: TopoDSToStep_MakeShellBasedSurfaceModel.cdl
2 -- Created: Fri Jun 24 13:30:37 1994
3 -- Author: Frederic MAUPAS
5 ---Copyright: Matra Datavision 1994
7 class MakeShellBasedSurfaceModel from TopoDSToStep inherits
10 ---Purpose: This class implements the mapping between classes
11 -- Face, Shell or Solid from TopoDS and ShellBasedSurfaceModel
12 -- from StepShape. All the topology and geometry comprised
13 -- into the shape are taken into account and translated.
15 uses Face from TopoDS,
18 ShellBasedSurfaceModel from StepShape,
19 FinderProcess from Transfer
21 raises NotDone from StdFail
25 Create ( F : Face from TopoDS;
26 FP : mutable FinderProcess from Transfer)
27 returns MakeShellBasedSurfaceModel;
29 Create ( S : Shell from TopoDS;
30 FP : mutable FinderProcess from Transfer)
31 returns MakeShellBasedSurfaceModel;
33 Create ( S : Solid from TopoDS;
34 FP : mutable FinderProcess from Transfer)
35 returns MakeShellBasedSurfaceModel;
37 Value (me) returns ShellBasedSurfaceModel from StepShape
44 theShellBasedSurfaceModel : ShellBasedSurfaceModel from StepShape;
46 -- The solution from StepShape
48 end MakeShellBasedSurfaceModel;