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 <gp_Pnt2d.hxx>
22 #include <IGESData_IGESEntity.hxx>
23 #include <IGESData_ViewKindEntity.hxx>
24 #include <IGESDraw_Drawing.hxx>
25 #include <IGESDraw_PerspectiveView.hxx>
26 #include <IGESDraw_View.hxx>
27 #include <IGESGraph_DrawingSize.hxx>
28 #include <IGESGraph_DrawingUnits.hxx>
29 #include <Interface_Macros.hxx>
30 #include <Standard_DimensionMismatch.hxx>
31 #include <Standard_OutOfRange.hxx>
32 #include <Standard_Type.hxx>
34 IMPLEMENT_STANDARD_RTTIEXT(IGESDraw_Drawing,IGESData_IGESEntity)
36 IGESDraw_Drawing::IGESDraw_Drawing () { }
39 void IGESDraw_Drawing::Init
40 (const Handle(IGESDraw_HArray1OfViewKindEntity)& allViews,
41 const Handle(TColgp_HArray1OfXY)& allViewOrigins,
42 const Handle(IGESData_HArray1OfIGESEntity)& allAnnotations)
44 if (!allViews.IsNull()) {
45 Standard_Integer Len = allViews->Length();
46 Standard_Boolean Flag = ( allViewOrigins->Length() == Len );
47 if (!Flag || allViews->Lower() != 1 || allViewOrigins->Lower() != 1)
48 throw Standard_DimensionMismatch("IGESDraw_Drawing : Init");
50 if (!allAnnotations.IsNull())
51 if (allAnnotations->Lower() != 1) throw Standard_DimensionMismatch("IGESDraw_Drawing : Init");
54 theViewOrigins = allViewOrigins;
55 theAnnotations = allAnnotations;
56 InitTypeAndForm(404,0);
59 Standard_Integer IGESDraw_Drawing::NbViews () const
61 return (theViews.IsNull() ? 0 : theViews->Length());
64 Handle(IGESData_ViewKindEntity) IGESDraw_Drawing::ViewItem
65 (const Standard_Integer ViewIndex) const
67 return theViews->Value(ViewIndex);
70 gp_Pnt2d IGESDraw_Drawing::ViewOrigin
71 (const Standard_Integer TViewIndex) const
73 return (gp_Pnt2d (theViewOrigins->Value(TViewIndex)) );
76 Standard_Integer IGESDraw_Drawing::NbAnnotations () const
78 return (theAnnotations.IsNull() ? 0 : theAnnotations->Length() );
81 Handle(IGESData_IGESEntity) IGESDraw_Drawing::Annotation
82 (const Standard_Integer AnnotationIndex) const
84 return ( theAnnotations->Value(AnnotationIndex) );
87 gp_XY IGESDraw_Drawing::ViewToDrawing
88 (const Standard_Integer NumView, const gp_XYZ& ViewCoords) const
90 gp_XY thisOrigin = theViewOrigins->Value(NumView);
91 Standard_Real XOrigin = thisOrigin.X();
92 Standard_Real YOrigin = thisOrigin.Y();
93 Standard_Real theScaleFactor=0.;
95 Handle(IGESData_ViewKindEntity) tempView = theViews->Value(NumView);
96 if (tempView->IsKind(STANDARD_TYPE(IGESDraw_View)))
98 DeclareAndCast(IGESDraw_View, thisView, tempView);
99 theScaleFactor = thisView->ScaleFactor();
101 else if (tempView->IsKind(STANDARD_TYPE(IGESDraw_PerspectiveView)))
103 DeclareAndCast(IGESDraw_PerspectiveView, thisView, tempView);
104 theScaleFactor = thisView->ScaleFactor();
107 Standard_Real XV = ViewCoords.X();
108 Standard_Real YV = ViewCoords.Y();
110 Standard_Real XD = XOrigin + (theScaleFactor * XV);
111 Standard_Real YD = YOrigin + (theScaleFactor * YV);
113 return ( gp_XY(XD, YD) );
117 Standard_Boolean IGESDraw_Drawing::DrawingUnit (Standard_Real& val) const
120 Handle(Standard_Type) typunit = STANDARD_TYPE(IGESGraph_DrawingUnits);
121 if (NbTypedProperties(typunit) != 1) return Standard_False;
122 DeclareAndCast(IGESGraph_DrawingUnits,units,TypedProperty(typunit));
123 if (units.IsNull()) return Standard_False;
124 val = units->UnitValue();
125 return Standard_True;
128 Standard_Boolean IGESDraw_Drawing::DrawingSize
129 (Standard_Real& X, Standard_Real& Y) const
132 Handle(Standard_Type) typsize = STANDARD_TYPE(IGESGraph_DrawingSize);
133 if (NbTypedProperties(typsize) != 1) return Standard_False;
134 DeclareAndCast(IGESGraph_DrawingSize,size,TypedProperty(typsize));
135 if (size.IsNull()) return Standard_False;
136 X = size->XSize(); Y = size->YSize();
137 return Standard_True;