0031687: Draw Harness, ViewerTest - extend command vrenderparams with option updating...
[occt.git] / src / StepGeom / StepGeom_ConicalSurface.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14
15 #include <Standard_Type.hxx>
16 #include <StepGeom_Axis2Placement3d.hxx>
17 #include <StepGeom_ConicalSurface.hxx>
18 #include <TCollection_HAsciiString.hxx>
19
20 IMPLEMENT_STANDARD_RTTIEXT(StepGeom_ConicalSurface,StepGeom_ElementarySurface)
21
22 StepGeom_ConicalSurface::StepGeom_ConicalSurface ()  {}
23
24 void StepGeom_ConicalSurface::Init(
25         const Handle(TCollection_HAsciiString)& aName,
26         const Handle(StepGeom_Axis2Placement3d)& aPosition,
27         const Standard_Real aRadius,
28         const Standard_Real aSemiAngle)
29 {
30         // --- classe own fields ---
31         radius = aRadius;
32         semiAngle = aSemiAngle;
33         // --- classe inherited fields ---
34         StepGeom_ElementarySurface::Init(aName, aPosition);
35 }
36
37
38 void StepGeom_ConicalSurface::SetRadius(const Standard_Real aRadius)
39 {
40         radius = aRadius;
41 }
42
43 Standard_Real StepGeom_ConicalSurface::Radius() const
44 {
45         return radius;
46 }
47
48 void StepGeom_ConicalSurface::SetSemiAngle(const Standard_Real aSemiAngle)
49 {
50         semiAngle = aSemiAngle;
51 }
52
53 Standard_Real StepGeom_ConicalSurface::SemiAngle() const
54 {
55         return semiAngle;
56 }