0028417: Using PRECOMPILED HEADER to speed up compilation time
[occt.git] / src / DDataStd / DDataStd_DatumCommands.cxx
1 // Created on: 1997-07-30
2 // Created by: Denis PASCAL
3 // Copyright (c) 1997-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 <DDataStd.hxx>
18 #include <DDF.hxx>
19 #include <Draw_Interpretor.hxx>
20 #include <Draw_Appli.hxx>
21
22 #include <TDF_Data.hxx>
23 #include <TDF_Label.hxx>
24
25 #include <DBRep.hxx>
26 #include <DrawTrSurf.hxx>
27
28 #include <TopAbs.hxx>
29 #include <TopoDS.hxx>
30 #include <TopoDS_Vertex.hxx>
31 #include <TopoDS_Edge.hxx>
32 #include <TopoDS_Wire.hxx>
33 #include <TopoDS_Face.hxx>
34 #include <TopoDS_Shell.hxx>
35 #include <TopoDS_Solid.hxx>
36
37 #include <Geom_Line.hxx>
38 #include <Geom_Plane.hxx>
39
40 #include <gp_Pnt.hxx>
41 #include <gp_Lin.hxx>
42 #include <gp_Pln.hxx>
43 #include <gp_Dir.hxx>
44 #include <gp_Ax3.hxx>
45
46 #include <TDataXtd_Geometry.hxx>
47 #include <TDataXtd_Point.hxx>
48 #include <TDataXtd_Axis.hxx>
49 #include <TDataXtd_Plane.hxx>
50
51 #include <TNaming_Builder.hxx>
52
53 #include <DDataStd_DrawPresentation.hxx>
54
55 //=======================================================================
56 //function : DDataStd_SetPoint
57 //purpose  : SetPoint (DF, entry, [drawpoint])
58 //=======================================================================
59
60 static Standard_Integer DDataStd_SetPoint (Draw_Interpretor& di,
61                                            Standard_Integer nb, 
62                                            const char** arg) 
63
64   if (nb < 3) return 1;
65   TDF_Label L;
66   Handle(TDF_Data) DF;
67   if (!DDF::GetDF (arg[1], DF)) return 1;
68   DDF::AddLabel (DF, arg[2], L);
69   if (nb == 3) {
70     TDataXtd_Point::Set (L);  
71   }
72   else if (nb == 4) { 
73     gp_Pnt p;
74     if (DrawTrSurf::GetPoint (arg[3],p)) {
75       TDataXtd_Point::Set (L,p);
76     }
77     else {
78       di << "DDataStd_SetPoint : not a point\n";
79       return 1;
80     }
81   }  
82   DDataStd_DrawPresentation::Display (L);
83   return 0;
84 }
85
86
87 //=======================================================================
88 //function : DDataStd_SetAxis
89 //purpose  : SetAxis (DF, entry, drawline])
90 //=======================================================================
91
92 static Standard_Integer DDataStd_SetAxis (Draw_Interpretor& di,
93                                           Standard_Integer nb, 
94                                           const char** arg) 
95 {
96   if (nb < 3) return 1;
97   TDF_Label L;
98   Handle(TDF_Data) DF;
99   if (!DDF::GetDF (arg[1], DF)) return 1;
100   DDF::AddLabel (DF, arg[2], L);
101   if (nb == 3) {
102     TDataXtd_Axis::Set (L);  
103   }
104   else if (nb == 4) { 
105     Handle(Geom_Line) LINE =  Handle(Geom_Line)::DownCast(DrawTrSurf::Get (arg[3]));
106     if (LINE.IsNull()) {
107       di << "DDataStd_SetAxis : not a line\n";
108       return 1;
109     }
110     TDataXtd_Axis::Set (L,LINE->Lin()); 
111   }  
112   DDataStd_DrawPresentation::Display (L);    
113   return 0;
114 }
115
116
117
118 //=======================================================================
119 //function : DDataStd_SetPlane
120 //purpose  : SetPlane (DF, entry, [drawplane])
121 //=======================================================================
122
123 static Standard_Integer DDataStd_SetPlane (Draw_Interpretor& di,
124                                            Standard_Integer nb, 
125                                            const char** arg) 
126 {   
127   if (nb < 3) return 1;
128   TDF_Label L;
129   Handle(TDF_Data) DF;
130   if (!DDF::GetDF (arg[1], DF)) return 1;
131   DDF::AddLabel (DF, arg[2], L);
132   if (nb == 3) {
133     TDataXtd_Plane::Set(L);  
134   }
135   else if (nb == 4) {
136     Handle(Geom_Plane) PLANE =  Handle(Geom_Plane)::DownCast(DrawTrSurf::Get (arg[3]));
137     if (PLANE.IsNull()) {
138       di << "DDataStd_SetPlane : not a plane\n";
139       return 1;
140     }
141     TDataXtd_Plane::Set (L,PLANE->Pln()); 
142   }  
143   DDataStd_DrawPresentation::Display (L);
144   return 0;
145 }
146
147
148 //=======================================================================
149 //function : DDataStd_GetPoint
150 //purpose  : GetPoint (DF, entry, [drawname])
151 //=======================================================================
152
153 static Standard_Integer DDataStd_GetPoint (Draw_Interpretor&,
154                                            Standard_Integer nb, 
155                                            const char** arg) 
156
157   if (nb < 3) return 1;
158   Handle(TDF_Data) DF;
159   if (!DDF::GetDF (arg[1], DF)) return 1;
160   Handle(TDataXtd_Point) A;
161   gp_Pnt P;
162   if (!DDF::Find (DF, arg[2], TDataXtd_Point::GetID(), A)) return 1;
163   if (TDataXtd_Geometry::Point(A->Label(), P)) {
164     if (nb == 4) DrawTrSurf::Set(arg[3], P);
165     else         DrawTrSurf::Set(arg[2], P);
166     return 0;
167   }
168   return 1;
169 }
170
171
172 //=======================================================================
173 //function : DDataStd_GetAxis
174 //purpose  : GetAxis (DF, entry, [drawname])
175 //=======================================================================
176
177 static Standard_Integer DDataStd_GetAxis (Draw_Interpretor&,
178                                           Standard_Integer nb, 
179                                           const char** arg) 
180 {  
181   if (nb < 3) return 1;
182   Handle(TDF_Data) DF;
183   if (!DDF::GetDF(arg[1],DF)) return 1;
184   Handle(TDataXtd_Axis) A;
185   if (!DDF::Find (DF, arg[2], TDataXtd_Axis::GetID(), A)) return 1;
186   gp_Lin l;
187   if (TDataXtd_Geometry::Line(A->Label(),l)) {
188     Handle(Geom_Line) L = new Geom_Line (l);  
189     if (nb == 4) DrawTrSurf::Set (arg[3], L);
190     else         DrawTrSurf::Set (arg[2], L);
191     return 0;
192   }
193   return 1;
194 }
195
196 //=======================================================================
197 //function : DDataStd_GetPlane
198 //purpose  : GetPlane (DF, entry, [drawname])
199 //=======================================================================
200
201 static Standard_Integer DDataStd_GetPlane (Draw_Interpretor&,
202                                            Standard_Integer nb, 
203                                            const char** arg) 
204 {  
205   if (nb < 3) return 1;
206   Handle(TDF_Data) DF;
207   if (!DDF::GetDF(arg[1],DF)) return 1;
208   Handle(TDataXtd_Plane) A;
209   if (!DDF::Find (DF, arg[2], TDataXtd_Plane::GetID(), A)) return 1;
210   gp_Pln p;  
211   if (TDataXtd_Geometry::Plane(A->Label(),p)) {  
212     Handle(Geom_Plane) P = new Geom_Plane (p);  
213     if (nb == 4) DrawTrSurf::Set (arg[3], P);
214     else         DrawTrSurf::Set (arg[2], P);
215     return 0;
216   }
217   return 1;
218 }
219
220 //=======================================================================
221 //function : DDataStd_SetGeometry
222 //purpose  : SetGeometry (DF, entry, [type], [shape])
223 //=======================================================================
224 static Standard_Integer DDataStd_SetGeometry (Draw_Interpretor& di,
225                                               Standard_Integer nb, 
226                                               const char** arg) 
227 {   
228   if (nb < 3) return 1;
229
230   Handle(TDF_Data) DF;
231   if (!DDF::GetDF (arg[1], DF)) return 1;
232
233   TDF_Label L;
234   if (!DDF::FindLabel(DF, arg[2], L)) DDF::AddLabel(DF, arg[2], L);
235
236   if (nb == 5)
237   {
238     // set NS attribute
239     TopoDS_Shape s = DBRep::Get(arg[4]);  
240     if (s.IsNull()) { di <<"shape not found\n"; return 1;}  
241     TNaming_Builder SI (L);
242     SI.Generated(s);
243   }
244
245   // set geometry attribute
246   Handle(TDataXtd_Geometry) aGA = TDataXtd_Geometry::Set(L);
247
248   // set type
249   TDataXtd_GeometryEnum aType;
250   if (nb > 3)
251   {
252     const char* aT = arg[3];
253     if (strcmp(aT,"any") == 0)      aType = TDataXtd_ANY_GEOM;
254     else if (strcmp(aT,"pnt") == 0) aType = TDataXtd_POINT;
255     else if (strcmp(aT,"lin") == 0) aType = TDataXtd_LINE;
256     else if (strcmp(aT,"cir") == 0) aType = TDataXtd_CIRCLE;
257     else if (strcmp(aT,"ell") == 0) aType = TDataXtd_ELLIPSE;
258     else if (strcmp(aT,"spl") == 0) aType = TDataXtd_SPLINE;
259     else if (strcmp(aT,"pln") == 0) aType = TDataXtd_PLANE;
260     else if (strcmp(aT,"cyl") == 0) aType = TDataXtd_CYLINDER;
261     else
262     {
263       di << "DDataStd_SetGeometry : unknown type, must be one of:\n";
264       di << "any/pnt/lin/cir/ell/spl/pln/cyl\n";
265       return 1;
266     }
267   }
268   else
269   {
270     aType = TDataXtd_Geometry::Type(L);
271   }
272   aGA->SetType(aType);
273
274 //  DDataStd_DrawPresentation::Display (L);
275   return 0;
276 }
277
278 //=======================================================================
279 //function : DDataStd_GetGeometryType
280 //purpose  : GetGeometryType (DF, entry)
281 //=======================================================================
282 static Standard_Integer DDataStd_GetGeometryType (Draw_Interpretor& di,
283                                               Standard_Integer nb, 
284                                               const char** arg) 
285 {   
286   if (nb != 3) return 1;
287
288   Handle(TDF_Data) DF;
289   if (!DDF::GetDF (arg[1], DF)) return 1;
290
291   TDF_Label L;
292   if (!DDF::FindLabel(DF, arg[2], L)) DDF::AddLabel(DF, arg[2], L);
293
294   // get geometry attribute
295   Handle(TDataXtd_Geometry) aGA;
296   if (!L.FindAttribute(TDataXtd_Geometry::GetID(),aGA))
297   {
298     di << "TDataStd_Geometry : attribute not found\n";
299     return 1;
300   }
301
302   // get type
303   TDataXtd_GeometryEnum aType = aGA->GetType();
304   switch (aType)
305   {
306   case TDataXtd_ANY_GEOM:  di << "any"; break;
307   case TDataXtd_POINT:     di << "pnt"; break;
308   case TDataXtd_LINE:      di << "lin"; break;
309   case TDataXtd_CIRCLE:    di << "cir"; break;
310   case TDataXtd_ELLIPSE:   di << "ell"; break;
311   case TDataXtd_SPLINE:    di << "spl"; break;
312   case TDataXtd_PLANE:     di << "pln"; break;
313   case TDataXtd_CYLINDER:  di <<"cyl"; break;
314   default:
315     {
316       di << "DDataStd_GetGeometry : unknown type\n";
317       return 1;
318     }
319   }
320
321   return 0;
322 }
323
324 //=======================================================================
325 //function : DatumCommands
326 //purpose  : 
327 //=======================================================================
328
329 void DDataStd::DatumCommands (Draw_Interpretor& theCommands)
330
331 {  
332   static Standard_Boolean done = Standard_False;
333   if (done) return;
334   done = Standard_True;
335   const char* g = "DData : Standard Attribute Commands";
336   
337   theCommands.Add ("SetPoint", 
338                    "SetPoint (DF, entry, [drawpoint])",
339                    __FILE__, DDataStd_SetPoint, g);
340   
341   theCommands.Add ("SetAxis", 
342                    "SetAxis (DF, entry, [drawline])",
343                    __FILE__, DDataStd_SetAxis, g);
344
345   theCommands.Add ("SetPlane", 
346                    "SetPlane (DF, entry, [drawplane])",
347                    __FILE__, DDataStd_SetPlane, g);
348
349 //  theCommands.Add ("SetMove", 
350  //                  "SetMove (DF, entry, Shape | [x, y, z, [dx, dy, dz, angle]])",
351         //         __FILE__, DDataStd_SetMove, g);  
352
353   theCommands.Add ("GetPoint", 
354                    "GetPoint (DF, entry, [drawname])",
355                    __FILE__, DDataStd_GetPoint, g);
356
357   theCommands.Add ("GetAxis", 
358                    "GetAxis (DF, entry, [drawname])",
359                    __FILE__, DDataStd_GetAxis, g);
360
361   theCommands.Add ("GetPlane", 
362                    "GetPlane (DF, entry, [drawname])",
363                    __FILE__, DDataStd_GetPlane, g);
364
365   theCommands.Add ("SetGeometry", 
366                    "SetGeometry (DF, entry, [type], [shape])",
367                    __FILE__, DDataStd_SetGeometry, g);
368   
369   theCommands.Add ("GetGeometryType", 
370                    "GetGeometryType (DF, entry)",
371                    __FILE__, DDataStd_GetGeometryType, g);
372 }