0024927: Getting rid of "Persistent" functionality -- Code
[occt.git] / src / XDEDRAW / XDEDRAW.cxx
1 // Created on: 2000-08-04
2 // Created by: Pavel TELKOV
3 // Copyright (c) 2000-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 #include <XDEDRAW.ixx>
17 #include <stdio.h>
18
19 #include <TCollection_ExtendedString.hxx>
20 #include <TCollection_AsciiString.hxx>
21 #include <TColStd_HSequenceOfExtendedString.hxx>
22 #include <TCollection_HAsciiString.hxx>
23 #include <Quantity_Color.hxx>
24
25 #include <TopoDS_Shape.hxx>
26
27 #include <Draw.hxx>
28 #include <DBRep.hxx>
29 #include <V3d_Viewer.hxx>
30 #include <V3d_View.hxx>
31 #include <AIS_InteractiveContext.hxx>
32 #include <ViewerTest.hxx>
33
34 #include <DDF_Browser.hxx>
35 #include <DDocStd.hxx>
36 #include <DDocStd_DrawDocument.hxx>
37
38 #include <STEPCAFControl_Controller.hxx>
39
40 #include <TDF_Tool.hxx>
41 #include <TDF_Data.hxx>
42 #include <TDF_LabelSequence.hxx>
43 #include <TDF_AttributeIterator.hxx>
44 #include <TDF_Reference.hxx>
45 #include <TDocStd_Document.hxx>
46 #include <TDataStd_UAttribute.hxx>
47 #include <TDataStd_TreeNode.hxx>
48 #include <TDataStd_Integer.hxx>
49 #include <TDataStd_Real.hxx>
50 #include <TDataStd_Name.hxx>
51 #include <TDataStd_Comment.hxx>
52 #include <TDataStd_AsciiString.hxx>
53 #include <TNaming_NamedShape.hxx>
54 #include <TDataStd_IntegerArray.hxx>
55 #include <TDataStd_RealArray.hxx>
56 #include <TDataStd_ByteArray.hxx>
57 #include <TPrsStd_AISPresentation.hxx>
58 #include <TPrsStd_NamedShapeDriver.hxx>
59 #include <TPrsStd_AISViewer.hxx>
60
61 #include <XCAFDoc.hxx>
62 #include <XCAFDoc_Color.hxx>
63 #include <XCAFDoc_Volume.hxx>
64 #include <XCAFDoc_Area.hxx>
65 #include <XCAFDoc_Centroid.hxx>
66 #include <XCAFDoc_ShapeTool.hxx>
67 #include <XCAFDoc_ColorTool.hxx>
68 #include <XCAFDoc_DocumentTool.hxx>
69 #include <XCAFDoc_GraphNode.hxx>
70 #include <XCAFDoc_LayerTool.hxx>
71 #include <XCAFDoc_DimTol.hxx>
72 #include <XCAFDoc_Material.hxx>
73 #include <XCAFPrs_Driver.hxx>
74 #include <XCAFApp_Application.hxx>
75
76 #include <XDEDRAW_Shapes.hxx>
77 #include <XDEDRAW_Colors.hxx>
78 #include <XDEDRAW_Layers.hxx>
79 #include <XDEDRAW_Props.hxx>
80 #include <XDEDRAW_Common.hxx>
81 #include <XSDRAWIGES.hxx>
82 #include <XSDRAWSTEP.hxx>
83 #include <XSDRAW.hxx>
84 #include <XCAFPrs.hxx>
85 #include <ViewerTest.hxx>
86 #include <Draw_PluginMacro.hxx>
87
88 #include <TColStd_HArray1OfInteger.hxx>
89 #include <TColStd_HArray1OfReal.hxx>
90
91 #include <AIS_InteractiveObject.hxx>
92 #include <Aspect_TypeOfLine.hxx>
93 #include <Prs3d_Drawer.hxx>
94 #include <Prs3d_LineAspect.hxx>
95 #include <TDocStd_Owner.hxx>
96 #include <Geom_Axis2Placement.hxx>
97 #include <AIS_Trihedron.hxx>
98
99 #define ZVIEW_SIZE 1000000.0
100 // avoid warnings on 'extern "C"' functions returning C++ classes
101 #ifdef WNT
102 #pragma warning(4:4190)
103 #endif
104
105 //=======================================================================
106 // Section: General commands
107 //=======================================================================
108
109 //=======================================================================
110 //function : newDoc
111 //purpose  :
112 //=======================================================================
113 static Standard_Integer newDoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
114 {
115   if (argc < 2) {di<<"Give document name"<<"\n";return 1;}
116
117   Handle(TDocStd_Document) D;
118   Handle(DDocStd_DrawDocument) DD;
119   Handle(TDocStd_Application) A;
120
121   if (!DDocStd::Find(A)) return 1;
122
123   if (!DDocStd::GetDocument(argv[1],D,Standard_False)) {
124     A->NewDocument(  "BinXCAF"  ,D);
125     DD = new DDocStd_DrawDocument(D);
126     TDataStd_Name::Set(D->GetData()->Root(),argv[1]);
127     Draw::Set(argv[1],DD);
128     di << "document " << argv[1] << " created" << "\n";
129     //DDocStd::ReturnLabel(di,D->Main());
130   }
131   else di << argv[1] << " is already a document" << "\n";
132
133   return 0;
134 }
135
136
137 //=======================================================================
138 //function : saveDoc
139 //purpose  :
140 //=======================================================================
141 static Standard_Integer saveDoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
142 {
143   Handle(TDocStd_Document) D;
144   Handle(TDocStd_Application) A;
145   if (!DDocStd::Find(A)) return 1;
146
147   if (argc == 1) {
148     if (A->NbDocuments() < 1) return 1;
149     A->GetDocument(1, D);
150   }
151   else {
152     if (!DDocStd::GetDocument(argv[1],D)) return 1;
153   }
154
155   if (argc == 3 ) {
156     TCollection_ExtendedString path (argv[2]);
157     A->SaveAs(D,path);
158     return 0;
159   }
160   if (!D->IsSaved()) {
161     di << "this document has never been saved" << "\n";
162     return 1;
163   }
164   A->Save(D);
165   return 0;
166 }
167
168 //=======================================================================
169 //function : openDoc
170 //purpose  :
171 //=======================================================================
172 static Standard_Integer openDoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
173 {
174   Handle(TDocStd_Document) D;
175   Handle(DDocStd_DrawDocument) DD;
176   Handle(TDocStd_Application) A;
177
178   if ( !DDocStd::Find(A) )
179     return 1;
180
181   if ( argc != 3 )
182   {
183     di << "invalid number of arguments. Usage:\t XOpen filename docname" << "\n";
184     return 1;
185   }
186
187   Standard_CString Filename = argv[1];
188   Standard_CString DocName = argv[2];
189
190   if ( DDocStd::GetDocument(DocName, D, Standard_False) )
191   {
192     di << "document with name " << DocName << " already exists" << "\n";
193     return 1;
194   }
195
196   if ( A->Open(Filename, D) != PCDM_RS_OK )
197   {
198     di << "cannot open XDE document" << "\n";
199     return 1;
200   }
201
202   DD = new DDocStd_DrawDocument(D);
203   TDataStd_Name::Set(D->GetData()->Root(), DocName);
204   Draw::Set(DocName, DD);
205
206   di << "document " << DocName << " opened" << "\n";
207
208   return 0;
209 }
210
211 //=======================================================================
212 //function : dump
213 //purpose  :
214 //=======================================================================
215 static Standard_Integer dump (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
216 {
217   if (argc<2) {
218     di<<"Use: "<<argv[0]<<" Doc [int deep (0/1)]"<<"\n";
219     return 1;
220   }
221   Handle(TDocStd_Document) Doc;
222   DDocStd::GetDocument(argv[1], Doc);
223   if ( Doc.IsNull() ) { di << argv[1] << " is not a document" << "\n"; return 1; }
224
225   Handle(XCAFDoc_ShapeTool) myAssembly = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
226   Standard_Boolean deep = Standard_False;
227   if ( (argc==3) && (Draw::Atoi(argv[2])==1) ) deep = Standard_True;
228   Standard_SStream aDumpLog;
229   myAssembly->Dump(aDumpLog, deep);
230   di<<aDumpLog;
231   return 0;
232 }
233
234
235 //=======================================================================
236 //function : StatAssembly
237 //purpose  : recursive part of statistics
238 //=======================================================================
239
240 static void StatAssembly(const TDF_Label L,
241                          const Standard_Integer level,
242                          Handle(TColStd_HArray1OfInteger) &HAI,
243                          Standard_Integer &NbCentroidProp,
244                          Standard_Integer &NbVolumeProp,
245                          Standard_Integer &NbAreaProp,
246                          Standard_Integer &NbShapesWithName,
247                          Standard_Integer &NbShapesWithColor,
248                          Standard_Integer &NbShapesWithLayer,
249                          Handle(TDocStd_Document) &aDoc,
250                          Standard_Boolean &PrintStructMode,
251                          Draw_Interpretor& di)
252 {
253   if(PrintStructMode) {
254     for(Standard_Integer j=0; j<=level; j++)
255       di<<"  ";
256   }
257   TCollection_AsciiString Entry;
258   TDF_Tool::Entry(L, Entry);
259   if(PrintStructMode) di<<Entry.ToCString();
260
261   Handle(TDataStd_Name) Name;
262   if(L.FindAttribute(TDataStd_Name::GetID(), Name)) {
263     NbShapesWithName++;
264     if(PrintStructMode) {
265       TCollection_AsciiString AsciiStringName(Name->Get(),'?');
266       di<<" "<<AsciiStringName.ToCString()<<"  has attributes: ";
267     }
268   }
269   else {
270     if(PrintStructMode) di<<" NoName  has attributes: ";
271   }
272
273   Handle(XCAFDoc_Centroid) aCentroid = new (XCAFDoc_Centroid);
274   if(L.FindAttribute(XCAFDoc_Centroid::GetID(), aCentroid)) {
275     if(PrintStructMode) di<<"Centroid ";
276     NbCentroidProp++;
277   }
278   Standard_Real tmp;
279   if(XCAFDoc_Volume::Get(L,tmp)) {
280     if(PrintStructMode) di<<"Volume("<<tmp<<") ";
281     NbVolumeProp++;
282   }
283   if(XCAFDoc_Area::Get(L,tmp)) {
284     if(PrintStructMode) di<<"Area("<<tmp<<") ";
285     NbAreaProp++;
286   }
287   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool(aDoc->Main());
288   Quantity_Color col;
289   Standard_Boolean IsColor = Standard_False;
290   if(CTool->GetColor(L,XCAFDoc_ColorGen,col))
291     IsColor = Standard_True;
292   else if(CTool->GetColor(L,XCAFDoc_ColorSurf,col))
293     IsColor = Standard_True;
294   else if(CTool->GetColor(L,XCAFDoc_ColorCurv,col))
295     IsColor = Standard_True;
296   if(IsColor) {
297     TCollection_AsciiString Entry1;
298     Entry1 = col.StringName(col.Name());
299     if(PrintStructMode) di<<"Color("<<Entry1.ToCString()<<") ";
300     NbShapesWithColor++;
301   }
302   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool(aDoc->Main());
303   Handle(TColStd_HSequenceOfExtendedString) aLayerS;
304   LTool->GetLayers(L, aLayerS);
305   if(!aLayerS.IsNull() && aLayerS->Length()>0) {
306     if(PrintStructMode) {
307       di<<"Layer(";
308       for(Standard_Integer i=1; i<=aLayerS->Length(); i++) {
309         TCollection_AsciiString Entry2(aLayerS->Value(i),'?');
310         if(i==1)
311           di<<"\""<<Entry2.ToCString()<<"\"";
312         else
313           di<<" "<<"\""<<Entry2.ToCString()<<"\"";
314       }
315       di<<") ";
316     }
317     NbShapesWithLayer++;
318   }
319   if(PrintStructMode) di<<"\n";
320   
321   HAI->SetValue(level, HAI->Value(level)+1 );
322   if(L.HasChild()) {
323     for(Standard_Integer i=1; i<=L.NbChildren(); i++) {
324       StatAssembly(L.FindChild(i), level+1, HAI, NbCentroidProp, NbVolumeProp,
325                    NbAreaProp, NbShapesWithName, NbShapesWithColor,
326                    NbShapesWithLayer, aDoc, PrintStructMode, di);
327     }
328   }
329
330 }
331
332
333 //=======================================================================
334 //function : statdoc
335 //purpose  : 
336 //=======================================================================
337 static Standard_Integer statdoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
338 {
339   if (argc<2) {
340     di<<"Use: "<<argv[0]<<" Doc "<<"\n";
341     return 1;
342   }
343   Handle(TDocStd_Document) Doc;   
344   DDocStd::GetDocument(argv[1], Doc);
345   if ( Doc.IsNull() ) { di << argv[1] << " is not a document" << "\n"; return 1; }
346
347   Standard_Boolean PrintStructMode = (argc==3);
348   Handle(XCAFDoc_ShapeTool) aTool = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
349
350   TDF_LabelSequence SeqLabels;
351   aTool->GetShapes(SeqLabels);
352   if(SeqLabels.Length()<=0) return 0;
353   if(PrintStructMode) di<<"\n"<<"Structure of shapes in the document:"<<"\n";
354   Standard_Integer level=0;
355   Standard_Integer NbCentroidProp=0, NbVolumeProp=0, NbAreaProp=0;
356   Standard_Integer NbShapesWithName=0, NbShapesWithColor=0, NbShapesWithLayer=0;
357   Handle(TColStd_HArray1OfInteger) HAI = new TColStd_HArray1OfInteger(0,20);
358   Standard_Integer i=0;
359   for(i=0; i<=20; i++) HAI->SetValue(i,0);
360   for(i=1; i<=SeqLabels.Length(); i++) {
361     StatAssembly(SeqLabels.Value(i), level, HAI, NbCentroidProp, NbVolumeProp,
362                  NbAreaProp, NbShapesWithName, NbShapesWithColor,
363                  NbShapesWithLayer, Doc, PrintStructMode, di);
364   }
365   Standard_Integer NbLabelsShape = 0;
366   di<<"\n"<<"Statistis of shapes in the document:"<<"\n";
367   for(i=0; i<=20; i++) {
368     if(HAI->Value(i)==0) break;
369     //di<<"level N "<<i<<" :  number of labels with shape = "<<HAI->Value(i)<<"\n";
370     di<<"level N "<<i<<" : "<<HAI->Value(i)<<"\n";
371     NbLabelsShape = NbLabelsShape + HAI->Value(i);
372   }
373   di<<"Total number of labels for shapes in the document = "<<NbLabelsShape<<"\n";
374   di<<"Number of labels with name = "<<NbShapesWithName<<"\n";
375   di<<"Number of labels with color link = "<<NbShapesWithColor<<"\n";
376   di<<"Number of labels with layer link = "<<NbShapesWithLayer<<"\n";
377
378   di<<"\n"<<"Statistis of Props in the document:"<<"\n";
379   di<<"Number of Centroid Props = "<<NbCentroidProp<<"\n";
380   di<<"Number of Volume Props = "<<NbVolumeProp<<"\n";
381   di<<"Number of Area Props = "<<NbAreaProp<<"\n";
382
383   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool(Doc->Main());
384   TDF_LabelSequence CLabels;
385   CTool->GetColors(CLabels);
386   di<<"\n"<<"Number of colors = "<<CLabels.Length()<<"\n";
387   if(CLabels.Length()>0) {
388     for(i=1; i<=CLabels.Length(); i++) {
389       TDF_Label aLabel = CLabels.Value(i);
390       Quantity_Color col;
391       CTool->GetColor(aLabel, col);
392       di<<col.StringName(col.Name())<<" ";
393     }
394     di<<"\n";
395   }
396
397   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool(Doc->Main());
398   TDF_LabelSequence LLabels;
399   LTool->GetLayerLabels(LLabels);
400   di<<"\n"<<"Number of layers = "<<LLabels.Length()<<"\n";
401   if(LLabels.Length()>0) {
402     for(i=1; i<=LLabels.Length(); i++) {
403       TDF_Label aLabel = LLabels.Value(i);
404       TCollection_ExtendedString layerName;
405       LTool->GetLayer(aLabel, layerName);
406       TCollection_AsciiString Entry(layerName,'?');
407       di<<"\""<<Entry.ToCString() <<"\" ";
408     }
409     di<<"\n";
410   }
411
412   di<<"\n";
413   return 0;
414 }
415
416
417 //=======================================================================
418 //function : setPrs
419 //purpose  :
420 //=======================================================================
421 static Standard_Integer setPrs (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
422 {
423   if (argc <2) {
424     di<<"Use: "<<argv[0]<<" DocName [label1 label2 ...] "<<"\n";
425     return 1;
426   }
427
428   Handle(TDocStd_Document) Doc;
429   DDocStd::GetDocument(argv[1], Doc);
430   if ( Doc.IsNull() ) { di << argv[1] << " is not a document" << "\n"; return 1; }
431
432   // collect sequence of labels to set presentation
433   Handle(XCAFDoc_ShapeTool) shapes = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
434   TDF_LabelSequence seq;
435   if ( argc >2 ) {
436     for ( Standard_Integer i=2; i < argc; i++ ) {
437       TDF_Label aLabel;
438       TDF_Tool::Label(Doc->GetData(), argv[i], aLabel);
439       if ( aLabel.IsNull() || ! shapes->IsShape ( aLabel ) ) {
440         di << argv[i] << " is not a valid shape label!";
441         continue;
442       }
443       seq.Append ( aLabel );
444     }
445   }
446   else {
447     shapes->GetShapes ( seq );
448   }
449
450   // set presentations
451   Handle(XCAFDoc_ColorTool) colors = XCAFDoc_DocumentTool::ColorTool(Doc->Main());
452   for ( Standard_Integer i=1; i <= seq.Length(); i++ ) {
453     Handle(TPrsStd_AISPresentation) prs;
454     if ( ! seq.Value(i).FindAttribute ( TPrsStd_AISPresentation::GetID(), prs ) ) {
455       prs = TPrsStd_AISPresentation::Set(seq.Value(i),XCAFPrs_Driver::GetID());
456       prs->SetMaterial ( Graphic3d_NOM_PLASTIC );
457     }
458 //    Quantity_Color Col;
459 //    if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorSurf, Col ) )
460 //      prs->SetColor ( Col.Name() );
461 //    else if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorCurv, Col ) )
462 //      prs->SetColor ( Col.Name() );
463   }
464   return 0;
465 }
466
467
468 //=======================================================================
469 //function : show
470 //purpose  :
471 //=======================================================================
472 static Standard_Integer show (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
473 {
474   if (argc <2) {
475     di<<"Use: "<<argv[0]<<" DocName [label1 label2 ...] "<<"\n";
476     return 1;
477   }
478
479   Handle(TDocStd_Document) aDoc;
480   DDocStd::GetDocument (argv[1], aDoc);
481   if (aDoc.IsNull())
482   {
483     std::cout << argv[1] << " is not a document\n";
484     return 1;
485   }
486
487   // init viewer
488   TDF_Label aRoot = aDoc->GetData()->Root();
489   Handle(TPrsStd_AISViewer) aDocViewer;
490   TCollection_AsciiString   aViewName = TCollection_AsciiString ("Driver1/Document_") + argv[1] + "/View1";
491   if (!TPrsStd_AISViewer::Find (aRoot, aDocViewer))
492   {
493     ViewerTest::ViewerInit (0, 0, 0, 0, aViewName.ToCString(), "");
494     aDocViewer = TPrsStd_AISViewer::New (aRoot, ViewerTest::GetAISContext());
495   }
496
497   //szv:CAX-TRJ7 c2-pe-214.stp was clipped
498   aDocViewer->GetInteractiveContext()->CurrentViewer()->InitActiveViews();
499   aDocViewer->GetInteractiveContext()->CurrentViewer()->ActiveView()->SetZSize(ZVIEW_SIZE);
500   //DDF::ReturnLabel(di,viewer->Label());
501
502   // collect sequence of labels to display
503   Handle(XCAFDoc_ShapeTool) shapes = XCAFDoc_DocumentTool::ShapeTool (aDoc->Main());
504   TDF_LabelSequence seq;
505   if ( argc >2 ) {
506     for ( Standard_Integer i=2; i < argc; i++ ) {
507       TDF_Label aLabel;
508       TDF_Tool::Label (aDoc->GetData(), argv[i], aLabel);
509       if ( aLabel.IsNull() || ! shapes->IsShape ( aLabel ) ) {
510         di << argv[i] << " is not a valid shape label!";
511         continue;
512       }
513       seq.Append ( aLabel );
514     }
515   }
516   else {
517     shapes->GetFreeShapes ( seq );
518   }
519
520   // set presentations and show
521   //Handle(XCAFDoc_ColorTool) colors = XCAFDoc_DocumentTool::ColorTool(Doc->Main());
522   for ( Standard_Integer i=1; i <= seq.Length(); i++ ) {
523     Handle(TPrsStd_AISPresentation) prs;
524     if ( ! seq.Value(i).FindAttribute ( TPrsStd_AISPresentation::GetID(), prs ) ) {
525       prs = TPrsStd_AISPresentation::Set(seq.Value(i),XCAFPrs_Driver::GetID());
526       prs->SetMaterial ( Graphic3d_NOM_PLASTIC );
527     }
528 //    Quantity_Color Col;
529 //    if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorSurf, Col ) )
530 //      prs->SetColor ( Col.Name() );
531 //    else if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorCurv, Col ) )
532 //      prs->SetColor ( Col.Name() );
533     prs->Display(Standard_True);
534   }
535   TPrsStd_AISViewer::Update (aDoc->GetData()->Root());
536   return 0;
537 }
538
539
540 //=======================================================================
541 //function : xwd
542 //purpose  :
543 //=======================================================================
544 static Standard_Integer xwd (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
545 {
546   if (argc <3) {
547     di<<"Use: "<<argv[0]<<" DocName filename.{xwd|gif|bmp}"<<"\n";
548     return 1;
549   }
550
551   Handle(TDocStd_Document) Doc;
552   DDocStd::GetDocument(argv[1], Doc);
553   if ( Doc.IsNull() ) { di << argv[1] << " is not a document" << "\n"; return 1; }
554
555   Handle(AIS_InteractiveContext) IC;
556   if ( ! TPrsStd_AISViewer::Find ( Doc->GetData()->Root(), IC ) ) {
557     di << "Cannot find viewer for document " << argv[1] << "\n";
558     return 1;
559   }
560
561   Handle(V3d_Viewer) viewer = IC->CurrentViewer();
562   viewer->InitActiveViews();
563   if ( viewer->MoreActiveViews() ) {
564     viewer->ActiveView()->Dump ( argv[2] );
565   }
566   else {
567     di << "Cannot find an active view in a viewer " << argv[1] << "\n";
568     return 1;
569   }
570
571   return 0;
572 }
573
574
575 //=======================================================================
576 //function : XAttributeValue
577 //purpose  :
578 //=======================================================================
579 static Standard_Integer XAttributeValue (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
580 {
581   if ( argc <4 ) { di << "ERROR: Too few args" << "\n"; return 0; }
582   Handle(DDF_Browser) browser =
583     Handle(DDF_Browser)::DownCast (Draw::Get(argv[1], Standard_True));
584   if ( browser.IsNull() ) { di << "ERROR: Not a browser: " << argv[1] << "\n"; return 0; }
585
586   TDF_Label lab;
587   TDF_Tool::Label(browser->Data(),argv[2],lab);
588   if ( lab.IsNull() ) { di << "ERROR: label is Null: " << argv[2] << "\n"; return 0; }
589
590   Standard_Integer num = Draw::Atoi ( argv[3] );
591   TDF_AttributeIterator itr(lab,Standard_False);
592   for (Standard_Integer i=1; itr.More() && i < num; i++) itr.Next();
593
594   if ( ! itr.More() ) { di << "ERROR: Attribute #" << num << " not found" << "\n"; return 0; }
595
596   const Handle(TDF_Attribute)& att = itr.Value();
597   if ( att->IsKind(STANDARD_TYPE(TDataStd_TreeNode)) ) {
598     Standard_CString type = "";
599     if ( att->ID() == XCAFDoc::ShapeRefGUID() ) type = "Shape Instance Link";
600     else if ( att->ID() == XCAFDoc::ColorRefGUID(XCAFDoc_ColorGen) ) type = "Generic Color Link";
601     else if ( att->ID() == XCAFDoc::ColorRefGUID(XCAFDoc_ColorSurf) ) type = "Surface Color Link";
602     else if ( att->ID() == XCAFDoc::ColorRefGUID(XCAFDoc_ColorCurv) ) type = "Curve Color Link";
603     else if ( att->ID() == XCAFDoc::DimTolRefGUID() ) type = "DGT Link";
604     else if ( att->ID() == XCAFDoc::DatumRefGUID() ) type = "Datum Link";
605     else if ( att->ID() == XCAFDoc::MaterialRefGUID() ) type = "Material Link";
606     Handle(TDataStd_TreeNode) TN = Handle(TDataStd_TreeNode)::DownCast(att);
607     TCollection_AsciiString ref;
608     if ( TN->HasFather() ) {
609       TDF_Tool::Entry ( TN->Father()->Label(), ref );
610       di << type << " ==> " << ref.ToCString();
611     }
612     else {
613       di << type << " <== (" << ref.ToCString();
614       Handle(TDataStd_TreeNode) child = TN->First();
615       while ( ! child.IsNull() ) {
616         TDF_Tool::Entry ( child->Label(), ref );
617         if ( child != TN->First() ) di << ", ";
618         di << ref.ToCString();
619         child = child->Next();
620       }
621       di << ")";
622     }
623   }
624   else if ( att->IsKind(STANDARD_TYPE(TDF_Reference)) ) {
625     Handle(TDF_Reference) val = Handle(TDF_Reference)::DownCast ( att );
626     TCollection_AsciiString ref;
627     TDF_Tool::Entry ( val->Get(), ref );
628     di << "==> " << ref.ToCString();
629   }
630   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Integer)) ) {
631     Handle(TDataStd_Integer) val = Handle(TDataStd_Integer)::DownCast ( att );
632     TCollection_AsciiString str ( val->Get() );
633     di << str.ToCString();
634   }
635   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Real)) ) {
636     Handle(TDataStd_Real) val = Handle(TDataStd_Real)::DownCast ( att );
637     TCollection_AsciiString str ( val->Get() );
638     di << str.ToCString();
639   }
640   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Name)) ) {
641     Handle(TDataStd_Name) val = Handle(TDataStd_Name)::DownCast ( att );
642     TCollection_AsciiString str ( val->Get(), '?' );
643     di << str.ToCString();
644   }
645   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Comment)) ) {
646     Handle(TDataStd_Comment) val = Handle(TDataStd_Comment)::DownCast ( att );
647     TCollection_AsciiString str ( val->Get(), '?' );
648     di << str.ToCString();
649   }
650   else if ( att->IsKind(STANDARD_TYPE(TDataStd_AsciiString)) ) {
651     Handle(TDataStd_AsciiString) val = Handle(TDataStd_AsciiString)::DownCast ( att );
652     TCollection_AsciiString str ( val->Get(), '?' );
653     di << str.ToCString();
654   }
655   else if ( att->IsKind(STANDARD_TYPE(TDataStd_IntegerArray)) ) {
656     Handle(TDataStd_IntegerArray) val = Handle(TDataStd_IntegerArray)::DownCast ( att );
657     for ( Standard_Integer j=val->Lower(); j <= val->Upper(); j++ ) {
658       if ( j > val->Lower() ) di << ", ";
659       TCollection_AsciiString str ( val->Value(j) );
660       di << str.ToCString();
661     }
662   }
663   else if ( att->IsKind(STANDARD_TYPE(TDataStd_RealArray)) ) {
664     Handle(TDataStd_RealArray) val = Handle(TDataStd_RealArray)::DownCast ( att );
665     for ( Standard_Integer j=val->Lower(); j <= val->Upper(); j++ ) {
666       if ( j > val->Lower() ) di << ", ";
667       TCollection_AsciiString str ( val->Value(j) );
668       di << str.ToCString();
669     }
670   }
671   else if ( att->IsKind(STANDARD_TYPE(TDataStd_ByteArray)) ) {
672     Handle(TDataStd_ByteArray) val = Handle(TDataStd_ByteArray)::DownCast ( att );
673     for ( Standard_Integer j=val->Lower(); j <= val->Upper(); j++ ) {
674       if ( j > val->Lower() ) di << ", ";
675       TCollection_AsciiString str ( val->Value(j) );
676       di << str.ToCString();
677     }
678   }
679   else if ( att->IsKind(STANDARD_TYPE(TNaming_NamedShape)) ) {
680     Handle(TNaming_NamedShape) val = Handle(TNaming_NamedShape)::DownCast ( att );
681     TopoDS_Shape S = val->Get();
682     di << S.TShape()->DynamicType()->Name();
683     if ( ! S.Location().IsIdentity() ) di << "(located)";
684   }
685   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Volume)) ) {
686     Handle(XCAFDoc_Volume) val = Handle(XCAFDoc_Volume)::DownCast ( att );
687     TCollection_AsciiString str ( val->Get() );
688     di << str.ToCString();
689   }
690   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Area)) ) {
691     Handle(XCAFDoc_Area) val = Handle(XCAFDoc_Area)::DownCast ( att );
692     TCollection_AsciiString str ( val->Get() );
693     di << str.ToCString();
694   }
695   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Centroid)) ) {
696     Handle(XCAFDoc_Centroid) val = Handle(XCAFDoc_Centroid)::DownCast ( att );
697     gp_Pnt myCentroid = val->Get();
698     di << "(" ;
699     di << myCentroid.X();
700     di <<" , ";
701     di << myCentroid.Y();
702     di <<" , ";
703     di << myCentroid.Z();
704     di << ")";
705   }
706   else if ( att->IsKind(STANDARD_TYPE(TDataStd_UAttribute)) ) {
707     if ( att->ID() == XCAFDoc::AssemblyGUID() ) di << "is assembly";
708     if ( att->ID() == XCAFDoc::InvisibleGUID() ) di << "invisible";
709   }
710   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Color)) ) {
711     Handle(XCAFDoc_Color) val = Handle(XCAFDoc_Color)::DownCast ( att );
712     Quantity_Color C = val->GetColor();
713     char string[260];
714     Sprintf ( string, "%s (%g, %g, %g)", C.StringName ( C.Name() ),
715               C.Red(), C.Green(), C.Blue() );
716     di << string;
717   }
718   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_DimTol)) ) {
719     Handle(XCAFDoc_DimTol) val = Handle(XCAFDoc_DimTol)::DownCast ( att );
720     Standard_Integer kind = val->GetKind();
721     Handle(TColStd_HArray1OfReal) HAR = val->GetVal();
722     if(kind<20) { //dimension
723       di<<"Diameter (ValueRange["<<HAR->Value(1)<<","<<HAR->Value(2)<<"])";
724     }
725     else {
726       switch(kind) {
727       case 21: di << "GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol_1 (Value="<<HAR->Value(1)<<")"; break;
728       case 22: di << "GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol_2 (Value="<<HAR->Value(1)<<")"; break;
729       case 23: di << "GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol_3 (Value="<<HAR->Value(1)<<")"; break;
730       case 24: di << "AngularityTolerance (Value="<<HAR->Value(1)<<")"; break;
731       case 25: di << "CircularRunoutTolerance (Value="<<HAR->Value(1)<<")"; break;
732       case 26: di << "CoaxialityTolerance (Value="<<HAR->Value(1)<<")"; break;
733       case 27: di << "ConcentricityTolerance (Value="<<HAR->Value(1)<<")"; break;
734       case 28: di << "ParallelismTolerance (Value="<<HAR->Value(1)<<")"; break;
735       case 29: di << "PerpendicularityTolerance (Value="<<HAR->Value(1)<<")"; break;
736       case 30: di << "SymmetryTolerance (Value="<<HAR->Value(1)<<")"; break;
737       case 31: di << "TotalRunoutTolerance (Value="<<HAR->Value(1)<<")"; break;
738       case 35: di << "ModifiedGeometricTolerance_1 (Value="<<HAR->Value(1)<<")"; break;
739       case 36: di << "ModifiedGeometricTolerance_2 (Value="<<HAR->Value(1)<<")"; break;
740       case 37: di << "ModifiedGeometricTolerance_3 (Value="<<HAR->Value(1)<<")"; break;
741       case 38: di << "CylindricityTolerance (Value="<<HAR->Value(1)<<")"; break;
742       case 39: di << "FlatnessTolerance (Value="<<HAR->Value(1)<<")"; break;
743       case 40: di << "LineProfileTolerance (Value="<<HAR->Value(1)<<")"; break;
744       case 41: di << "PositionTolerance (Value="<<HAR->Value(1)<<")"; break;
745       case 42: di << "RoundnessTolerance (Value="<<HAR->Value(1)<<")"; break;
746       case 43: di << "StraightnessTolerance (Value="<<HAR->Value(1)<<")"; break;
747       case 44: di << "SurfaceProfileTolerance (Value="<<HAR->Value(1)<<")"; break;
748       }
749     }
750   }
751   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Material)) ) {
752     Handle(XCAFDoc_Material) val = Handle(XCAFDoc_Material)::DownCast ( att );
753     Standard_Real dens = val->GetDensity();
754     Standard_CString dimdens = "g/cu sm";
755     if(dens==0) 
756       di<<val->GetName()->ToCString();
757     else
758       di<<val->GetName()->ToCString()<<"(density="<<dens<<dimdens<<")";
759   }
760   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_GraphNode)) ) {
761     Standard_CString type;
762     if ( att->ID() == XCAFDoc::LayerRefGUID() ) {
763       type = "Layer Instance Link";
764     }
765     else if ( att->ID() == XCAFDoc::SHUORefGUID() ) {
766       type = "SHUO Instance Link";
767     }
768     else if ( att->ID() == XCAFDoc::DatumTolRefGUID() ) {
769       type = "DatumToler Link";
770     }
771     else return 0;
772
773     Handle(XCAFDoc_GraphNode) DETGN = Handle(XCAFDoc_GraphNode)::DownCast(att);
774     TCollection_AsciiString ref;
775     Standard_Integer ii = 1;
776     if (DETGN->NbFathers()!=0) {
777
778       TDF_Tool::Entry ( DETGN->GetFather(ii)->Label(), ref );
779       di << type<< " ==> (" << ref.ToCString();
780       for (ii = 2; ii <= DETGN->NbFathers(); ii++) {
781         TDF_Tool::Entry ( DETGN->GetFather(ii)->Label(), ref );
782           di << ", " << ref.ToCString();
783         }
784       di << ") ";
785     }
786     ii = 1;
787     if (DETGN->NbChildren()!=0) {
788       TDF_Tool::Entry ( DETGN->GetChild(ii)->Label(), ref );
789       di << type<< " <== (" << ref.ToCString();
790       for (ii = 2; ii <= DETGN->NbChildren(); ii++) {
791         TDF_Tool::Entry ( DETGN->GetChild(ii)->Label(), ref );
792           di << ", " << ref.ToCString();
793         }
794       di << ")";
795     }
796   }
797   return 0;
798 }
799
800
801 //=======================================================================
802 //function : setviewName
803 //purpose  :
804 //=======================================================================
805 static Standard_Integer setviewName (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
806 {
807   if (argc <2) {
808     di<<"Use: "<<argv[0]<<" (1/0)"<<"\n";
809     return 1;
810   }
811   Standard_Boolean mode = Standard_False;
812   if (Draw::Atoi(argv[1]) == 1) mode = Standard_True;
813   XCAFPrs::SetViewNameMode(mode);
814   return 0;
815 }
816
817
818 //=======================================================================
819 //function : getviewName
820 //purpose  : auxilary
821 //=======================================================================
822
823 static Standard_Integer getviewName (Draw_Interpretor&  di, Standard_Integer /*argc*/, const char** /*argv*/)
824 {
825   if ( XCAFPrs::GetViewNameMode() ) di << "Display names ON"<< "\n";
826   else di << "Display names OFF"<< "\n";
827   return 0;
828 }
829
830
831 //=======================================================================
832 //function : XSetTransparency
833 //purpose  :
834 //=======================================================================
835 static Standard_Integer XSetTransparency (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
836 {
837   if (argc < 3) {
838     di<<"Use: "<<argv[0]<<" Doc Transparency [label1 label2 ...] "<<"\n";
839     return 1;
840   }
841
842   Handle(TDocStd_Document) Doc;
843   DDocStd::GetDocument(argv[1], Doc);
844   if ( Doc.IsNull() ) { di << argv[1] << " is not a document" << "\n"; return 1; }
845
846   const Standard_Real aTransparency = Draw::Atof(argv[2]);
847
848   // collect sequence of labels
849   Handle(XCAFDoc_ShapeTool) shapes = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
850   TDF_LabelSequence seq;
851   if ( argc > 3 ) {
852     for ( Standard_Integer i=3; i < argc; i++ ) {
853       TDF_Label aLabel;
854       TDF_Tool::Label(Doc->GetData(), argv[i], aLabel);
855       if ( aLabel.IsNull() || ! shapes->IsShape ( aLabel ) ) {
856         di << argv[i] << " is not a valid shape label!";
857         continue;
858       }
859       seq.Append ( aLabel );
860     }
861   }
862   else {
863     shapes->GetFreeShapes ( seq );
864   }
865
866   // find presentations and set transparency
867   for ( Standard_Integer i=1; i <= seq.Length(); i++ ) {
868     Handle(TPrsStd_AISPresentation) prs;
869     if ( ! seq.Value(i).FindAttribute ( TPrsStd_AISPresentation::GetID(), prs ) ) {
870       prs = TPrsStd_AISPresentation::Set(seq.Value(i),XCAFPrs_Driver::GetID());
871       prs->SetMaterial ( Graphic3d_NOM_PLASTIC );
872     }
873     prs->SetTransparency( aTransparency );
874   }
875   TPrsStd_AISViewer::Update(Doc->GetData()->Root());
876   return 0;
877 }
878
879 //=======================================================================
880 //function : XShowFaceBoundary
881 //purpose  : Set face boundaries on/off
882 //=======================================================================
883 static Standard_Integer XShowFaceBoundary (Draw_Interpretor& di,
884                                            Standard_Integer argc,
885                                            const char ** argv)
886 {
887   if (( argc != 4 && argc < 7 ) || argc > 9)
888   {
889     di << "Usage :\n " << argv[0]
890        << " Doc Label IsOn [R G B [LineWidth [LineStyle]]]\n"
891        << "   Doc       - is the document name. \n"
892        << "   Label     - is the shape label. \n"
893        << "   IsOn      - flag indicating whether the boundaries\n"
894        << "                should be turned on or off (can be set\n"
895        << "                to 0 (off) or 1 (on)).\n"
896        << "   R, G, B   - red, green and blue components of boundary\n"
897        << "                color in range (0 - 255).\n"
898        << "                (default is (0, 0, 0)\n"
899        << "   LineWidth - line width\n"
900        << "                (default is 1)\n"
901        << "   LineStyle - line fill style :\n"
902        << "                 0 - solid  \n"
903        << "                 1 - dashed \n"
904        << "                 2 - dot    \n"
905        << "                 3 - dashdot\n"
906        << "                (default is solid)";
907
908     return 1;
909   }
910
911   // get specified document
912   Handle(TDocStd_Document) aDoc;
913   DDocStd::GetDocument (argv[1], aDoc);
914   if (aDoc.IsNull())
915   {
916     di << argv[1] << " is not a document" << "\n"; 
917     return 1;
918   }
919
920   Handle(AIS_InteractiveContext) aContext;
921   if (!TPrsStd_AISViewer::Find (aDoc->GetData()->Root(), aContext)) 
922   {
923     di << "Cannot find viewer for document " << argv[1] << "\n";
924     return 1;
925   }
926
927   // get shape tool for shape verification
928   Handle(XCAFDoc_ShapeTool) aShapes =
929     XCAFDoc_DocumentTool::ShapeTool (aDoc->Main());
930
931   // get label and validate that it is a shape label
932   TDF_Label aLabel;
933   TDF_Tool::Label (aDoc->GetData(), argv[2], aLabel);
934   if (aLabel.IsNull() || !aShapes->IsShape (aLabel))
935   {
936     di << argv[2] << " is not a valid shape label!";
937     return 1;
938   }
939
940   // get presentation from label
941   Handle(TPrsStd_AISPresentation) aPrs;
942   if (!aLabel.FindAttribute (TPrsStd_AISPresentation::GetID (), aPrs))
943   {
944     aPrs = TPrsStd_AISPresentation::Set (aLabel,XCAFPrs_Driver::GetID ());
945   }
946
947   Handle(AIS_InteractiveObject) anInteractive = aPrs->GetAIS ();
948   if (anInteractive.IsNull ())
949   {
950     di << "Can't set drawer attributes.\n"
951           "Interactive object for shape label doesn't exists.";
952     return 1;
953   }
954
955   // get drawer
956   const Handle(Prs3d_Drawer)& aDrawer = anInteractive->Attributes ();
957
958   // default attributes
959   Quantity_Parameter aRed      = 0.0;
960   Quantity_Parameter aGreen    = 0.0;
961   Quantity_Parameter aBlue     = 0.0;
962   Standard_Real      aWidth    = 1.0;
963   Aspect_TypeOfLine  aLineType = Aspect_TOL_SOLID;
964   
965   // turn boundaries on/off
966   Standard_Boolean isBoundaryDraw = (Draw::Atoi (argv[3]) == 1);
967   aDrawer->SetFaceBoundaryDraw (isBoundaryDraw);
968   
969   // set boundary color
970   if (argc >= 7)
971   {
972     // Text color
973     aRed   = Draw::Atof (argv[4])/255.;
974     aGreen = Draw::Atof (argv[5])/255.;
975     aBlue  = Draw::Atof (argv[6])/255.;
976   }
977
978   // set line width
979   if (argc >= 8)
980   {
981     aWidth = (Standard_Real)Draw::Atof (argv[7]);
982   }
983
984   // select appropriate line type
985   if (argc == 9)
986   {
987     switch (Draw::Atoi (argv[8]))
988     {
989       case 1: aLineType = Aspect_TOL_DASH;    break;
990       case 2: aLineType = Aspect_TOL_DOT;     break;
991       case 3: aLineType = Aspect_TOL_DOTDASH; break;
992       default:
993         aLineType = Aspect_TOL_SOLID;
994     }
995   }
996
997   Quantity_Color aColor (aRed, aGreen, aBlue, Quantity_TOC_RGB);
998
999   Handle(Prs3d_LineAspect) aBoundaryAspect = 
1000     new Prs3d_LineAspect (aColor, aLineType, aWidth);
1001
1002   aDrawer->SetFaceBoundaryAspect (aBoundaryAspect);
1003
1004   aContext->Redisplay (anInteractive);
1005   
1006   return 0;
1007 }
1008
1009 //=======================================================================
1010 //function : testDoc
1011 //purpose  : Method to test destruction of document
1012 //=======================================================================
1013 static Standard_Integer testDoc (Draw_Interpretor&,
1014                                  Standard_Integer argc,
1015                                  const char ** argv)
1016 {
1017   if( argc < 2 )
1018   {
1019     cout<<"Invalid numbers of arguments should be: XTestDoc shape"<<endl;
1020     return 1;
1021   }
1022   TopoDS_Shape shape = DBRep::Get(argv[1]);
1023   if( shape.IsNull())
1024     return 1;
1025  
1026   Handle(XCAFApp_Application) A = XCAFApp_Application::GetApplication();
1027  
1028   Handle(TDocStd_Document) aD1 = new TDocStd_Document("BinXCAF");
1029   aD1->Open(A);
1030   
1031   TCollection_AsciiString  aViewName ("Driver1/DummyDocument/View1");
1032   ViewerTest::ViewerInit (0, 0, 0, 0, aViewName.ToCString(), "");
1033   TPrsStd_AISViewer::New (aD1->GetData()->Root(), ViewerTest::GetAISContext());
1034
1035   // get shape tool for shape verification
1036   Handle(XCAFDoc_ShapeTool) aShapes =
1037     XCAFDoc_DocumentTool::ShapeTool (aD1->Main());
1038   TDF_Label aLab = aShapes->AddShape(shape);
1039
1040   Handle(Geom_Axis2Placement) aPlacement = 
1041     new Geom_Axis2Placement (gp::Origin(), gp::DZ(),gp::DX());
1042   Handle(AIS_Trihedron) aTriShape = new AIS_Trihedron (aPlacement);
1043   
1044   Handle(TNaming_NamedShape) NS;
1045   Handle(TPrsStd_AISPresentation) prs;
1046   if( aLab.FindAttribute( TNaming_NamedShape::GetID(), NS) ) {
1047     prs = TPrsStd_AISPresentation::Set( NS );
1048   }
1049    
1050   if( aLab.FindAttribute(TPrsStd_AISPresentation::GetID(), prs) ) 
1051     prs->Display();
1052
1053   TPrsStd_AISViewer::Update(aLab);
1054   ViewerTest::GetAISContext()->Display (aTriShape, Standard_True);
1055   aD1->BeforeClose();
1056   aD1->Close();
1057   ViewerTest::RemoveView (aViewName);
1058   return 0;
1059 }
1060
1061
1062 //=======================================================================
1063 //function : Init
1064 //purpose  :
1065 //=======================================================================
1066
1067 void XDEDRAW::Init(Draw_Interpretor& di)
1068 {
1069
1070   static Standard_Boolean initactor = Standard_False;
1071   if (initactor) return;  initactor = Standard_True;
1072
1073   // Load static variables for STEPCAF (ssv; 16.08.2012)
1074   STEPCAFControl_Controller::Init();
1075
1076   // OCAF *** szy: use <pload> command
1077
1078 //  DDF::AllCommands(di);
1079 //  DNaming::AllCommands(di);
1080 //  DDataStd::AllCommands(di);
1081 //  DPrsStd::AllCommands(di);
1082   //DFunction::AllCommands(di);
1083 //  DDocStd::AllCommands(di);
1084
1085 //  ViewerTest::Commands (di); *** szy: use <pload> command
1086
1087   // init XCAF application (if not yet done)
1088   XCAFApp_Application::GetApplication();
1089
1090   //=====================================
1091   // General commands
1092   //=====================================
1093
1094   Standard_CString g = "XDE general commands";
1095
1096   di.Add ("XNewDoc","DocName \t: Create new DECAF document",
1097                    __FILE__, newDoc, g);
1098
1099   di.Add ("XSave","[Doc Path] \t: Save Doc or first document in session",
1100                    __FILE__, saveDoc, g);
1101
1102   di.Add ("XOpen","Path Doc \t: Open XDE Document with name Doc from Path",
1103           __FILE__, openDoc, g);
1104
1105   di.Add ("Xdump","Doc [int deep (0/1)] \t: Print information about tree's structure",
1106                    __FILE__, dump, g);
1107
1108   di.Add ("XStat","Doc \t: Print statistics of document",
1109                    __FILE__, statdoc, g);
1110
1111   di.Add ("XSetPrs","Doc [label1 lavbel2 ...] \t: Set presentation for given label(s) or whole doc",
1112                    __FILE__, setPrs, g);
1113
1114   di.Add ("XShow","Doc [label1 lavbel2 ...] \t: Display document (or some labels) in a graphical window",
1115                    __FILE__, show, g);
1116
1117   di.Add ("XWdump","Doc filename.{gif|xwd|bmp} \t: Dump contents of viewer window to XWD, GIF or BMP file",
1118                    __FILE__, xwd, g);
1119
1120   di.Add ("XAttributeValue", "Doc label #attribute: internal command for browser",
1121                    __FILE__, XAttributeValue, g);
1122
1123   di.Add ("XSetViewNameMode", "(1/0) \t: Set/Unset mode of displaying names.",
1124                    __FILE__, setviewName, g);
1125
1126   di.Add ("XGetViewNameMode", "\t: Print if  mode of displaying names is turn on.",
1127                    __FILE__, getviewName, g);
1128
1129   di.Add ("XSetTransparency", "Doc Transparency [label1 label2 ...]\t: Set transparency for given label(s) or whole doc",
1130                    __FILE__, XSetTransparency, g);
1131
1132   di.Add ("XShowFaceBoundary", 
1133           "Doc Label IsOn [R G B [LineWidth [LineStyle]]]:"
1134           "- turns on/off drawing of face boundaries and defines boundary line style",
1135           __FILE__, XShowFaceBoundary, g);
1136    di.Add ("XTestDoc", "XTestDoc shape", __FILE__, testDoc, g);
1137
1138   // Specialized commands
1139   XDEDRAW_Shapes::InitCommands ( di );
1140   XDEDRAW_Colors::InitCommands ( di );
1141   XDEDRAW_Layers::InitCommands ( di );
1142   XDEDRAW_Props::InitCommands ( di );
1143   XDEDRAW_Common::InitCommands ( di );//moved from EXE
1144
1145 }
1146
1147
1148 //==============================================================================
1149 // XDEDRAW::Factory
1150 //==============================================================================
1151 void XDEDRAW::Factory(Draw_Interpretor& theDI)
1152 {
1153   XSDRAWIGES::InitSelect();
1154   XSDRAWIGES::InitToBRep(theDI);
1155   XSDRAWIGES::InitFromBRep(theDI);
1156
1157   XSDRAWSTEP::InitCommands(theDI);
1158
1159   XSDRAW::LoadDraw(theDI);
1160
1161   XDEDRAW::Init(theDI);
1162
1163 #ifdef OCCT_DEBUG
1164       theDI << "Draw Plugin : All TKXDEDRAW commands are loaded" << "\n";
1165 #endif
1166 }
1167
1168 // Declare entry point PLUGINFACTORY
1169 DPLUGIN(XDEDRAW)