1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 // This file is part of Open CASCADE Technology software library.
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
16 //--------------------------------------------------------------------
17 //--------------------------------------------------------------------
19 #include <IGESData_IGESEntity.hxx>
20 #include <IGESGeom_CurveOnSurface.hxx>
21 #include <IGESGeom_TrimmedSurface.hxx>
22 #include <Standard_DimensionMismatch.hxx>
23 #include <Standard_OutOfRange.hxx>
24 #include <Standard_Type.hxx>
26 IMPLEMENT_STANDARD_RTTIEXT(IGESGeom_TrimmedSurface,IGESData_IGESEntity)
28 IGESGeom_TrimmedSurface::IGESGeom_TrimmedSurface () { }
31 void IGESGeom_TrimmedSurface::Init
32 (const Handle(IGESData_IGESEntity)& aSurface,
33 const Standard_Integer aFlag,
34 const Handle(IGESGeom_CurveOnSurface)& anOuter,
35 const Handle(IGESGeom_HArray1OfCurveOnSurface)& anInner)
37 if (!anInner.IsNull())
38 if (anInner->Lower() != 1)
39 throw Standard_DimensionMismatch("IGESGeom_TrimmedSurface : Init");
41 theSurface = aSurface;
43 theOuterCurve = anOuter;
44 theInnerCurves = anInner;
45 InitTypeAndForm(144,0);
48 Handle(IGESData_IGESEntity) IGESGeom_TrimmedSurface::Surface () const
53 Standard_Boolean IGESGeom_TrimmedSurface::HasOuterContour () const
55 return (! theOuterCurve.IsNull());
58 Handle(IGESGeom_CurveOnSurface) IGESGeom_TrimmedSurface::OuterContour () const
63 Standard_Integer IGESGeom_TrimmedSurface::NbInnerContours () const
65 return (theInnerCurves.IsNull() ? 0 : theInnerCurves->Length());
68 Standard_Integer IGESGeom_TrimmedSurface::OuterBoundaryType () const
73 Handle(IGESGeom_CurveOnSurface) IGESGeom_TrimmedSurface::InnerContour
74 (const Standard_Integer anIndex) const
76 return (theInnerCurves->Value(anIndex));
77 // Exception OutOfRange will be raises if anIndex <= 0 or
78 // anIndex > NbInnerCounters()