0030520: VIS - IVtkTools_ShapePicker::GetPickPosition() returns incorrect point
[occt.git] / src / IGESDraw / IGESDraw_Drawing.cxx
1 // Created by: CKY / Contract Toubro-Larsen
2 // Copyright (c) 1993-1999 Matra Datavision
3 // Copyright (c) 1999-2014 OPEN CASCADE SAS
4 //
5 // This file is part of Open CASCADE Technology software library.
6 //
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.
12 //
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
15
16 //--------------------------------------------------------------------
17 //--------------------------------------------------------------------
18
19 #include <gp_Pnt2d.hxx>
20 #include <gp_XY.hxx>
21 #include <gp_XYZ.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>
33
34 IMPLEMENT_STANDARD_RTTIEXT(IGESDraw_Drawing,IGESData_IGESEntity)
35
36 IGESDraw_Drawing::IGESDraw_Drawing ()    {  }
37
38
39     void IGESDraw_Drawing::Init
40   (const Handle(IGESDraw_HArray1OfViewKindEntity)& allViews,
41    const Handle(TColgp_HArray1OfXY)&               allViewOrigins,
42    const Handle(IGESData_HArray1OfIGESEntity)&     allAnnotations)
43 {
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");
49   }
50   if (!allAnnotations.IsNull())
51     if (allAnnotations->Lower() != 1) throw Standard_DimensionMismatch("IGESDraw_Drawing : Init");
52
53   theViews         = allViews; 
54   theViewOrigins   = allViewOrigins; 
55   theAnnotations   = allAnnotations;
56   InitTypeAndForm(404,0);
57 }
58
59     Standard_Integer IGESDraw_Drawing::NbViews () const
60 {
61   return (theViews.IsNull() ? 0 : theViews->Length());
62 }
63
64     Handle(IGESData_ViewKindEntity) IGESDraw_Drawing::ViewItem
65   (const Standard_Integer ViewIndex) const
66 {
67   return theViews->Value(ViewIndex);
68 }
69
70     gp_Pnt2d IGESDraw_Drawing::ViewOrigin
71   (const Standard_Integer TViewIndex) const
72 {
73   return (gp_Pnt2d (theViewOrigins->Value(TViewIndex)) );
74 }
75
76     Standard_Integer IGESDraw_Drawing::NbAnnotations () const
77 {
78   return (theAnnotations.IsNull() ? 0 : theAnnotations->Length() );
79 }
80
81     Handle(IGESData_IGESEntity) IGESDraw_Drawing::Annotation
82   (const Standard_Integer AnnotationIndex) const
83 {
84   return ( theAnnotations->Value(AnnotationIndex) );
85 }
86
87     gp_XY IGESDraw_Drawing::ViewToDrawing
88   (const Standard_Integer NumView, const gp_XYZ& ViewCoords) const
89 {
90   gp_XY         thisOrigin       = theViewOrigins->Value(NumView);
91   Standard_Real XOrigin          = thisOrigin.X();
92   Standard_Real YOrigin          = thisOrigin.Y();
93   Standard_Real theScaleFactor=0.; 
94
95   Handle(IGESData_ViewKindEntity) tempView = theViews->Value(NumView);
96   if (tempView->IsKind(STANDARD_TYPE(IGESDraw_View)))
97     {
98       DeclareAndCast(IGESDraw_View, thisView, tempView);
99       theScaleFactor   = thisView->ScaleFactor();
100     }
101   else if (tempView->IsKind(STANDARD_TYPE(IGESDraw_PerspectiveView)))
102     {
103       DeclareAndCast(IGESDraw_PerspectiveView, thisView, tempView);
104       theScaleFactor   = thisView->ScaleFactor();
105     }
106
107   Standard_Real XV               = ViewCoords.X();
108   Standard_Real YV               = ViewCoords.Y();
109
110   Standard_Real XD = XOrigin + (theScaleFactor * XV);
111   Standard_Real YD = YOrigin + (theScaleFactor * YV);
112
113   return ( gp_XY(XD, YD) );
114 }
115
116
117     Standard_Boolean  IGESDraw_Drawing::DrawingUnit (Standard_Real& val) const
118 {
119   val = 0.;
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;
126 }
127
128     Standard_Boolean  IGESDraw_Drawing::DrawingSize
129   (Standard_Real& X, Standard_Real& Y) const
130 {
131   X = Y = 0.;
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;
138 }