c1315e24bdffbaabd1c25cefbdbf248f29c00d5a
[occt.git] / src / GeomToStep / GeomToStep_MakeElementarySurface.cxx
1 // Created on: 1993-06-22
2 // Created by: Martine LANGLOIS
3 // Copyright (c) 1993-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
8 // This library is free software; you can redistribute it and/or modify it under
9 // the terms of the GNU Lesser General Public License version 2.1 as published
10 // by the Free Software Foundation, with special exception defined in the file
11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 // distribution for complete text of the license and disclaimer of any warranty.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17 #include <GeomToStep_MakeElementarySurface.ixx>
18 #include <StdFail_NotDone.hxx>
19 #include <StepGeom_ElementarySurface.hxx>
20 #include <GeomToStep_MakeElementarySurface.hxx>
21 #include <Geom_CylindricalSurface.hxx>
22 #include <Geom_ConicalSurface.hxx>
23 #include <Geom_SphericalSurface.hxx>
24 #include <Geom_ToroidalSurface.hxx>
25 #include <Geom_Plane.hxx>
26 #include <GeomToStep_MakeCylindricalSurface.hxx>
27 #include <GeomToStep_MakeConicalSurface.hxx>
28 #include <GeomToStep_MakeSphericalSurface.hxx>
29 #include <GeomToStep_MakeToroidalSurface.hxx>
30 #include <GeomToStep_MakePlane.hxx>
31
32 //=============================================================================
33 // Creation d' une ElementarySurface de prostep a partir d' une 
34 // ElementarySurface de Geom
35 //=============================================================================
36
37 GeomToStep_MakeElementarySurface::GeomToStep_MakeElementarySurface
38   ( const Handle(Geom_ElementarySurface)& S)
39 {
40   done = Standard_True;
41   if (S->IsKind(STANDARD_TYPE(Geom_CylindricalSurface))) {
42     Handle(Geom_CylindricalSurface) Sur = 
43       Handle(Geom_CylindricalSurface)::DownCast(S);
44     GeomToStep_MakeCylindricalSurface MkCylindrical(Sur);
45     theElementarySurface = MkCylindrical.Value();
46   }
47   else if (S->IsKind(STANDARD_TYPE(Geom_ConicalSurface))) {
48     Handle(Geom_ConicalSurface) Sur = 
49       Handle(Geom_ConicalSurface)::DownCast(S);
50     GeomToStep_MakeConicalSurface MkConical(Sur);
51     theElementarySurface = MkConical.Value();
52   }
53   else if (S->IsKind(STANDARD_TYPE(Geom_SphericalSurface))) {
54     Handle(Geom_SphericalSurface) Sur = 
55       Handle(Geom_SphericalSurface)::DownCast(S);
56     GeomToStep_MakeSphericalSurface MkSpherical(Sur);
57     theElementarySurface = MkSpherical.Value();
58   }
59   else if (S->IsKind(STANDARD_TYPE(Geom_ToroidalSurface))) {
60     Handle(Geom_ToroidalSurface) Sur = 
61       Handle(Geom_ToroidalSurface)::DownCast(S);
62     GeomToStep_MakeToroidalSurface MkToroidal(Sur);
63     theElementarySurface = MkToroidal.Value();
64   }
65   else if (S->IsKind(STANDARD_TYPE(Geom_Plane))) {
66     Handle(Geom_Plane) Sur =    Handle(Geom_Plane)::DownCast(S); 
67     GeomToStep_MakePlane MkPlane(Sur);
68     theElementarySurface = MkPlane.Value();
69   }
70   else
71     done = Standard_False;
72 }        
73
74
75 //=============================================================================
76 // renvoi des valeurs
77 //=============================================================================
78
79 const Handle(StepGeom_ElementarySurface) &
80       GeomToStep_MakeElementarySurface::Value() const
81 {
82   StdFail_NotDone_Raise_if(!done, "");
83   return theElementarySurface;
84 }