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
  17 #include <AIS_InteractiveContext.hxx>
  18 #include <AIS_InteractiveObject.hxx>
  19 #include <AIS_Trihedron.hxx>
  20 #include <Aspect_TypeOfLine.hxx>
  21 #include <DBRep.hxx>
  22 #include <DDF_Browser.hxx>
  23 #include <DDocStd.hxx>
  24 #include <DDocStd_DrawDocument.hxx>
  25 #include <Draw.hxx>
  26 #include <Draw_PluginMacro.hxx>
  27 #include <Geom_Axis2Placement.hxx>
  28 #include <Prs3d_Drawer.hxx>
  29 #include <Prs3d_LineAspect.hxx>
  30 #include <Quantity_Color.hxx>
  31 #include <STEPCAFControl_Controller.hxx>
  32 #include <TCollection_AsciiString.hxx>
  33 #include <TCollection_ExtendedString.hxx>
  34 #include <TCollection_HAsciiString.hxx>
  35 #include <TColStd_HArray1OfInteger.hxx>
  36 #include <TColStd_HArray1OfReal.hxx>
  37 #include <TColStd_HSequenceOfExtendedString.hxx>
  38 #include <TDataStd_AsciiString.hxx>
  39 #include <TDataStd_ByteArray.hxx>
  40 #include <TDataStd_Comment.hxx>
  41 #include <TDataStd_Integer.hxx>
  42 #include <TDataStd_IntegerArray.hxx>
  43 #include <TDataStd_Name.hxx>
  44 #include <TDataStd_Real.hxx>
  45 #include <TDataStd_RealArray.hxx>
  46 #include <TDataStd_TreeNode.hxx>
  47 #include <TDataStd_UAttribute.hxx>
  48 #include <TDF_AttributeIterator.hxx>
  49 #include <TDF_ChildIterator.hxx>
  50 #include <TDF_Data.hxx>
  51 #include <TDF_LabelSequence.hxx>
  52 #include <TDF_Reference.hxx>
  53 #include <TDF_Tool.hxx>
  54 #include <TDocStd_Application.hxx>
  55 #include <TDocStd_Document.hxx>
  56 #include <TDocStd_Owner.hxx>
  57 #include <TNaming_NamedShape.hxx>
  58 #include <TopoDS_Shape.hxx>
  59 #include <TPrsStd_AISPresentation.hxx>
  60 #include <TPrsStd_AISViewer.hxx>
  61 #include <TPrsStd_DriverTable.hxx>
  62 #include <TPrsStd_NamedShapeDriver.hxx>
  63 #include <V3d_View.hxx>
  64 #include <V3d_Viewer.hxx>
  65 #include <ViewerTest.hxx>
  66 #include <ViewerTest_AutoUpdater.hxx>
  67 #include <XCAFDoc.hxx>
  68 #include <XCAFDoc_Area.hxx>
  69 #include <XCAFDoc_Centroid.hxx>
  70 #include <XCAFDoc_Color.hxx>
  71 #include <XCAFDoc_ColorTool.hxx>
  72 #include <XCAFDoc_DimTol.hxx>
  73 #include <XCAFDoc_Dimension.hxx>
  74 #include <XCAFDoc_Datum.hxx>
  75 #include <XCAFDoc_GeomTolerance.hxx>
  76 #include <XCAFDoc_DocumentTool.hxx>
  77 #include <XCAFDoc_GraphNode.hxx>
  78 #include <XCAFDoc_LayerTool.hxx>
  79 #include <XCAFDoc_Material.hxx>
  80 #include <XCAFDoc_ShapeTool.hxx>
  81 #include <XCAFDoc_Volume.hxx>
  82 #include <XCAFPrs.hxx>
  83 #include <XCAFPrs_AISObject.hxx>
  84 #include <XCAFPrs_Driver.hxx>
  85 #include <XDEDRAW.hxx>
  86 #include <XDEDRAW_Colors.hxx>
  87 #include <XDEDRAW_Common.hxx>
  88 #include <XDEDRAW_Layers.hxx>
  89 #include <XDEDRAW_Props.hxx>
  90 #include <XDEDRAW_Shapes.hxx>
  91 #include <XDEDRAW_GDTs.hxx>
  92 #include <XDEDRAW_Views.hxx>
  93 #include <XDEDRAW_Notes.hxx>
  94 #include <XSDRAW.hxx>
  95 #include <XSDRAWIGES.hxx>
  96 #include <XSDRAWSTEP.hxx>
  97
  98 #include <BinXCAFDrivers.hxx>
  99 #include <XmlXCAFDrivers.hxx>
 100
 101 #include <stdio.h>
 102
 103 //=======================================================================
 104 // Section: General commands
 105 //=======================================================================
 106
 107 //=======================================================================
 108 //function : newDoc
 109 //purpose  :
 110 //=======================================================================
 111 static Standard_Integer newDoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 112 {
 113   if (argc < 2) {di<<"Give document name\n";return 1;}
 114
 115   Handle(TDocStd_Document) D;
 116   Handle(DDocStd_DrawDocument) DD;
 117   Handle(TDocStd_Application) A = DDocStd::GetApplication();
 118
 119   if (!DDocStd::GetDocument(argv[1],D,Standard_False)) {
 120     A->NewDocument(  "BinXCAF"  ,D);
 121     DD = new DDocStd_DrawDocument(D);
 122     TDataStd_Name::Set(D->GetData()->Root(),argv[1]);
 123     Draw::Set(argv[1],DD);
 124     di << "document " << argv[1] << " created\n";
 125     //DDocStd::ReturnLabel(di,D->Main());
 126   }
 127   else di << argv[1] << " is already a document\n";
 128
 129   return 0;
 130 }
 131
 132
 133 //=======================================================================
 134 //function : saveDoc
 135 //purpose  :
 136 //=======================================================================
 137 static Standard_Integer saveDoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 138 {
 139   Handle(TDocStd_Document) D;
 140   Handle(TDocStd_Application) A = DDocStd::GetApplication();
 141
 142   if (argc == 1) {
 143     if (A->NbDocuments() < 1) return 1;
 144     A->GetDocument(1, D);
 145   }
 146   else {
 147     if (!DDocStd::GetDocument(argv[1],D)) return 1;
 148   }
 149
 150   PCDM_StoreStatus aStatus = PCDM_SS_Doc_IsNull;
 151   if (argc == 3)
 152   {
 153     TCollection_ExtendedString path (argv[2]);
 154     aStatus = A->SaveAs (D, path);
 155   }
 156   else if (!D->IsSaved())
 157   {
 158     std::cout << "Storage error: this document has never been saved\n";
 159     return 1;
 160   }
 161   else
 162   {
 163     aStatus = A->Save(D);
 164   }
 165
 166   switch (aStatus)
 167   {
 168     case PCDM_SS_OK:
 169       break;
 170     case PCDM_SS_DriverFailure:
 171       di << "Storage error: driver failure\n";
 172       break;
 173     case PCDM_SS_WriteFailure:
 174       di << "Storage error: write failure\n";
 175       break;
 176     case PCDM_SS_Failure:
 177       di << "Storage error: general failure\n";
 178       break;
 179     case PCDM_SS_Doc_IsNull:
 180       di << "Storage error: document is NULL\n";
 181       break;
 182     case PCDM_SS_No_Obj:
 183       di << "Storage error: no object\n";
 184       break;
 185     case PCDM_SS_Info_Section_Error:
 186       di << "Storage error: section error\n";
 187       break;
 188   }
 189
 190   return 0;
 191 }
 192
 193 //=======================================================================
 194 //function : openDoc
 195 //purpose  :
 196 //=======================================================================
 197 static Standard_Integer openDoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 198 {
 199   Handle(TDocStd_Document) D;
 200   Handle(DDocStd_DrawDocument) DD;
 201   Handle(TDocStd_Application) A = DDocStd::GetApplication();
 202
 203   if ( argc != 3 )
 204   {
 205     di << "invalid number of arguments. Usage:\t XOpen filename docname\n";
 206     return 1;
 207   }
 208
 209   Standard_CString Filename = argv[1];
 210   Standard_CString DocName = argv[2];
 211
 212   if ( DDocStd::GetDocument(DocName, D, Standard_False) )
 213   {
 214     di << "document with name " << DocName << " already exists\n";
 215     return 1;
 216   }
 217
 218   if ( A->Open(Filename, D) != PCDM_RS_OK )
 219   {
 220     di << "cannot open XDE document\n";
 221     return 1;
 222   }
 223
 224   DD = new DDocStd_DrawDocument(D);
 225   TDataStd_Name::Set(D->GetData()->Root(), DocName);
 226   Draw::Set(DocName, DD);
 227
 228   di << "document " << DocName << " opened\n";
 229
 230   return 0;
 231 }
 232
 233 //=======================================================================
 234 //function : dump
 235 //purpose  :
 236 //=======================================================================
 237 static Standard_Integer dump (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 238 {
 239   if (argc<2) {
 240     di<<"Use: "<<argv[0]<<" Doc [int deep (0/1)]\n";
 241     return 1;
 242   }
 243   Handle(TDocStd_Document) Doc;
 244   DDocStd::GetDocument(argv[1], Doc);
 245   if ( Doc.IsNull() ) { di << argv[1] << " is not a document\n"; return 1; }
 246
 247   Handle(XCAFDoc_ShapeTool) myAssembly = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
 248   Standard_Boolean deep = Standard_False;
 249   if ( (argc==3) && (Draw::Atoi(argv[2])==1) ) deep = Standard_True;
 250   Standard_SStream aDumpLog;
 251   myAssembly->Dump(aDumpLog, deep);
 252   di<<aDumpLog;
 253   return 0;
 254 }
 255
 256
 257 //=======================================================================
 258 //function : StatAssembly
 259 //purpose  : recursive part of statistics
 260 //=======================================================================
 261
 262 static void StatAssembly(const TDF_Label L,
 263                          const Standard_Integer level,
 264                          Handle(TColStd_HArray1OfInteger) &HAI,
 265                          Standard_Integer &NbCentroidProp,
 266                          Standard_Integer &NbVolumeProp,
 267                          Standard_Integer &NbAreaProp,
 268                          Standard_Integer &NbShapesWithName,
 269                          Standard_Integer &NbShapesWithColor,
 270                          Standard_Integer &NbShapesWithLayer,
 271                          Handle(TDocStd_Document) &aDoc,
 272                          Standard_Boolean &PrintStructMode,
 273                          Draw_Interpretor& di)
 274 {
 275   if(PrintStructMode) {
 276     for(Standard_Integer j=0; j<=level; j++)
 277       di<<"  ";
 278   }
 279   TCollection_AsciiString Entry;
 280   TDF_Tool::Entry(L, Entry);
 281   if(PrintStructMode) di<<Entry.ToCString();
 282
 283   Handle(TDataStd_Name) Name;
 284   if(L.FindAttribute(TDataStd_Name::GetID(), Name)) {
 285     NbShapesWithName++;
 286     if(PrintStructMode) {
 287       TCollection_AsciiString AsciiStringName(Name->Get(),'?');
 288       di<<" "<<AsciiStringName.ToCString()<<"  has attributes: ";
 289     }
 290   }
 291   else {
 292     if(PrintStructMode) di<<" NoName  has attributes: ";
 293   }
 294
 295   Handle(XCAFDoc_Centroid) aCentroid = new (XCAFDoc_Centroid);
 296   if(L.FindAttribute(XCAFDoc_Centroid::GetID(), aCentroid)) {
 297     if(PrintStructMode) di<<"Centroid ";
 298     NbCentroidProp++;
 299   }
 300   Standard_Real tmp;
 301   if(XCAFDoc_Volume::Get(L,tmp)) {
 302     if(PrintStructMode) di<<"Volume("<<tmp<<") ";
 303     NbVolumeProp++;
 304   }
 305   if(XCAFDoc_Area::Get(L,tmp)) {
 306     if(PrintStructMode) di<<"Area("<<tmp<<") ";
 307     NbAreaProp++;
 308   }
 309   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool(aDoc->Main());
 310   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool(aDoc->Main());
 311   Quantity_ColorRGBA col;
 312   Standard_Boolean IsColor = Standard_False;
 313   Standard_Boolean IsByLayer = Standard_False;
 314   if(CTool->GetColor(L,XCAFDoc_ColorGen,col))
 315     IsColor = Standard_True;
 316   else if(CTool->GetColor(L,XCAFDoc_ColorSurf,col))
 317     IsColor = Standard_True;
 318   else if(CTool->GetColor(L,XCAFDoc_ColorCurv,col))
 319     IsColor = Standard_True;
 320   else if(CTool->IsColorByLayer(L))
 321     IsByLayer = Standard_True;
 322   if(IsColor || IsByLayer) {
 323     if(IsByLayer)
 324     {
 325       Handle(TColStd_HSequenceOfExtendedString) aLayerS;
 326       LTool->GetLayers(L, aLayerS);
 327       // Currently for DXF pnly, thus
 328       // only 1 Layer should be.
 329       if(aLayerS->Length() == 1)
 330       {
 331         TDF_Label aLayer = LTool->FindLayer (aLayerS->First());
 332         Quantity_ColorRGBA aColor;
 333         if (CTool->GetColor (aLayer, XCAFDoc_ColorGen, aColor))
 334         {
 335           TCollection_AsciiString aColorName = aColor.GetRGB().StringName(aColor.GetRGB().Name());
 336           di<<"Color(" << aColorName.ToCString() << ") ";
 337         }
 338         else
 339         {
 340           di<<"Color(ByLayer) ";
 341         }
 342       }
 343       NbShapesWithColor++;
 344     }
 345     else
 346     {
 347       TCollection_AsciiString Entry1;
 348       Entry1 = col.GetRGB().StringName(col.GetRGB().Name());
 349       if(PrintStructMode) di<<"Color("<<Entry1.ToCString()<<" "<<col.Alpha()<<") ";
 350       NbShapesWithColor++;
 351     }
 352   }
 353   Handle(TColStd_HSequenceOfExtendedString) aLayerS;
 354   LTool->GetLayers(L, aLayerS);
 355   if(!aLayerS.IsNull() && aLayerS->Length()>0) {
 356     if(PrintStructMode) {
 357       di<<"Layer(";
 358       for(Standard_Integer i=1; i<=aLayerS->Length(); i++) {
 359         TCollection_AsciiString Entry2(aLayerS->Value(i),'?');
 360         if(i==1)
 361           di<<"\""<<Entry2.ToCString()<<"\"";
 362         else
 363           di<<" \""<<Entry2.ToCString()<<"\"";
 364       }
 365       di<<") ";
 366     }
 367     NbShapesWithLayer++;
 368   }
 369   if(PrintStructMode) di<<"\n";
 370
 371   HAI->SetValue(level, HAI->Value(level)+1 );
 372   if(L.HasChild()) {
 373     for(Standard_Integer i=1; i<=L.NbChildren(); i++) {
 374       StatAssembly(L.FindChild(i), level+1, HAI, NbCentroidProp, NbVolumeProp,
 375                    NbAreaProp, NbShapesWithName, NbShapesWithColor,
 376                    NbShapesWithLayer, aDoc, PrintStructMode, di);
 377     }
 378   }
 379
 380 }
 381
 382
 383 //=======================================================================
 384 //function : statdoc
 385 //purpose  :
 386 //=======================================================================
 387 static Standard_Integer statdoc (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 388 {
 389   if (argc<2) {
 390     di<<"Use: "<<argv[0]<<" Doc \n";
 391     return 1;
 392   }
 393   Handle(TDocStd_Document) Doc;
 394   DDocStd::GetDocument(argv[1], Doc);
 395   if ( Doc.IsNull() ) { di << argv[1] << " is not a document\n"; return 1; }
 396
 397   Standard_Boolean PrintStructMode = (argc==3);
 398   Handle(XCAFDoc_ShapeTool) aTool = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
 399
 400   TDF_LabelSequence SeqLabels;
 401   aTool->GetShapes(SeqLabels);
 402   if(SeqLabels.Length()<=0) return 0;
 403   if(PrintStructMode) di<<"\nStructure of shapes in the document:\n";
 404   Standard_Integer level=0;
 405   Standard_Integer NbCentroidProp=0, NbVolumeProp=0, NbAreaProp=0;
 406   Standard_Integer NbShapesWithName=0, NbShapesWithColor=0, NbShapesWithLayer=0;
 407   Handle(TColStd_HArray1OfInteger) HAI = new TColStd_HArray1OfInteger(0,20);
 408   Standard_Integer i=0;
 409   for(i=0; i<=20; i++) HAI->SetValue(i,0);
 410   for(i=1; i<=SeqLabels.Length(); i++) {
 411     StatAssembly(SeqLabels.Value(i), level, HAI, NbCentroidProp, NbVolumeProp,
 412                  NbAreaProp, NbShapesWithName, NbShapesWithColor,
 413                  NbShapesWithLayer, Doc, PrintStructMode, di);
 414   }
 415   Standard_Integer NbLabelsShape = 0;
 416   di<<"\nStatistis of shapes in the document:\n";
 417   for(i=0; i<=20; i++) {
 418     if(HAI->Value(i)==0) break;
 419     //di<<"level N "<<i<<" :  number of labels with shape = "<<HAI->Value(i)<<"\n";
 420     di<<"level N "<<i<<" : "<<HAI->Value(i)<<"\n";
 421     NbLabelsShape = NbLabelsShape + HAI->Value(i);
 422   }
 423   di<<"Total number of labels for shapes in the document = "<<NbLabelsShape<<"\n";
 424   di<<"Number of labels with name = "<<NbShapesWithName<<"\n";
 425   di<<"Number of labels with color link = "<<NbShapesWithColor<<"\n";
 426   di<<"Number of labels with layer link = "<<NbShapesWithLayer<<"\n";
 427
 428   di<<"\nStatistis of Props in the document:\n";
 429   di<<"Number of Centroid Props = "<<NbCentroidProp<<"\n";
 430   di<<"Number of Volume Props = "<<NbVolumeProp<<"\n";
 431   di<<"Number of Area Props = "<<NbAreaProp<<"\n";
 432
 433   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool(Doc->Main());
 434   TDF_LabelSequence CLabels;
 435   CTool->GetColors(CLabels);
 436   di<<"\nNumber of colors = "<<CLabels.Length()<<"\n";
 437   if(CLabels.Length()>0) {
 438     for(i=1; i<=CLabels.Length(); i++) {
 439       TDF_Label aLabel = CLabels.Value(i);
 440       Quantity_Color col;
 441       CTool->GetColor(aLabel, col);
 442       di<<col.StringName(col.Name())<<" ";
 443     }
 444     di<<"\n";
 445   }
 446
 447   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool(Doc->Main());
 448   TDF_LabelSequence LLabels;
 449   LTool->GetLayerLabels(LLabels);
 450   di<<"\nNumber of layers = "<<LLabels.Length()<<"\n";
 451   if(LLabels.Length()>0) {
 452     for(i=1; i<=LLabels.Length(); i++) {
 453       TDF_Label aLabel = LLabels.Value(i);
 454       TCollection_ExtendedString layerName;
 455       LTool->GetLayer(aLabel, layerName);
 456       TCollection_AsciiString Entry(layerName,'?');
 457       di<<"\""<<Entry.ToCString() <<"\" ";
 458     }
 459     di<<"\n";
 460   }
 461
 462   di<<"\n";
 463   return 0;
 464 }
 465
 466
 467 //=======================================================================
 468 //function : setPrs
 469 //purpose  :
 470 //=======================================================================
 471 static Standard_Integer setPrs (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 472 {
 473   if (argc <2) {
 474     di<<"Use: "<<argv[0]<<" DocName [label1 label2 ...] \n";
 475     return 1;
 476   }
 477
 478   Handle(TDocStd_Document) Doc;
 479   DDocStd::GetDocument(argv[1], Doc);
 480   if ( Doc.IsNull() ) { di << argv[1] << " is not a document\n"; return 1; }
 481
 482   // collect sequence of labels to set presentation
 483   Handle(XCAFDoc_ShapeTool) shapes = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
 484   TDF_LabelSequence seq;
 485   if ( argc >2 ) {
 486     for ( Standard_Integer i=2; i < argc; i++ ) {
 487       TDF_Label aLabel;
 488       TDF_Tool::Label(Doc->GetData(), argv[i], aLabel);
 489       if ( aLabel.IsNull() || ! shapes->IsShape ( aLabel ) ) {
 490         di << argv[i] << " is not a valid shape label!";
 491         continue;
 492       }
 493       seq.Append ( aLabel );
 494     }
 495   }
 496   else {
 497     shapes->GetShapes ( seq );
 498   }
 499
 500   // set presentations
 501   Handle(XCAFDoc_ColorTool) colors = XCAFDoc_DocumentTool::ColorTool(Doc->Main());
 502   for ( Standard_Integer i=1; i <= seq.Length(); i++ ) {
 503     Handle(TPrsStd_AISPresentation) prs;
 504     if ( ! seq.Value(i).FindAttribute ( TPrsStd_AISPresentation::GetID(), prs ) ) {
 505       prs = TPrsStd_AISPresentation::Set(seq.Value(i),XCAFPrs_Driver::GetID());
 506       prs->SetMaterial ( Graphic3d_NOM_PLASTIC );
 507     }
 508 //    Quantity_Color Col;
 509 //    if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorSurf, Col ) )
 510 //      prs->SetColor ( Col.Name() );
 511 //    else if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorCurv, Col ) )
 512 //      prs->SetColor ( Col.Name() );
 513   }
 514   return 0;
 515 }
 516
 517
 518 //=======================================================================
 519 //function : show
 520 //purpose  :
 521 //=======================================================================
 522 static Standard_Integer show (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 523 {
 524   if (argc <2) {
 525     di<<"Use: "<<argv[0]<<" DocName [label1 label2 ...] \n";
 526     return 1;
 527   }
 528
 529   Handle(TDocStd_Document) aDoc;
 530   DDocStd::GetDocument (argv[1], aDoc);
 531   if (aDoc.IsNull())
 532   {
 533     std::cout << argv[1] << " is not a document\n";
 534     return 1;
 535   }
 536
 537   // init viewer
 538   TDF_Label aRoot = aDoc->GetData()->Root();
 539   Handle(TPrsStd_AISViewer) aDocViewer;
 540   TCollection_AsciiString   aViewName = TCollection_AsciiString ("Driver1/Document_") + argv[1] + "/View1";
 541   if (!TPrsStd_AISViewer::Find (aRoot, aDocViewer))
 542   {
 543     ViewerTest::ViewerInit (0, 0, 0, 0, aViewName.ToCString(), "");
 544     aDocViewer = TPrsStd_AISViewer::New (aRoot, ViewerTest::GetAISContext());
 545   }
 546
 547   // collect sequence of labels to display
 548   Handle(XCAFDoc_ShapeTool) shapes = XCAFDoc_DocumentTool::ShapeTool (aDoc->Main());
 549   TDF_LabelSequence seq;
 550   if ( argc >2 ) {
 551     for ( Standard_Integer i=2; i < argc; i++ ) {
 552       TDF_Label aLabel;
 553       TDF_Tool::Label (aDoc->GetData(), argv[i], aLabel);
 554       if ( aLabel.IsNull() || ! shapes->IsShape ( aLabel ) ) {
 555         di << argv[i] << " is not a valid shape label!";
 556         continue;
 557       }
 558       seq.Append ( aLabel );
 559     }
 560   }
 561   else {
 562     shapes->GetFreeShapes ( seq );
 563   }
 564
 565   // set presentations and show
 566   //Handle(XCAFDoc_ColorTool) colors = XCAFDoc_DocumentTool::ColorTool(Doc->Main());
 567   for ( Standard_Integer i=1; i <= seq.Length(); i++ ) {
 568     Handle(TPrsStd_AISPresentation) prs;
 569     if ( ! seq.Value(i).FindAttribute ( TPrsStd_AISPresentation::GetID(), prs ) ) {
 570       prs = TPrsStd_AISPresentation::Set(seq.Value(i),XCAFPrs_Driver::GetID());
 571       prs->SetMaterial ( Graphic3d_NOM_PLASTIC );
 572     }
 573 //    Quantity_Color Col;
 574 //    if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorSurf, Col ) )
 575 //      prs->SetColor ( Col.Name() );
 576 //    else if ( colors.GetColor ( seq.Value(i), XCAFDoc_ColorCurv, Col ) )
 577 //      prs->SetColor ( Col.Name() );
 578     prs->Display(Standard_True);
 579   }
 580   TPrsStd_AISViewer::Update (aDoc->GetData()->Root());
 581   return 0;
 582 }
 583
 584 //! XDisplay command implementation.
 585 class XDEDRAW_XDisplayTool
 586 {
 587 public:
 588   //! XDisplay command interface.
 589   static Standard_Integer XDisplay (Draw_Interpretor& theDI,
 590                                     Standard_Integer theNbArgs,
 591                                     const char** theArgVec)
 592   {
 593     XDEDRAW_XDisplayTool aTool;
 594     return aTool.xdisplay (theDI, theNbArgs, theArgVec);
 595   }
 596
 597 private:
 598   //! Constructor.
 599   XDEDRAW_XDisplayTool()
 600   : myDispMode(-2),
 601     myHiMode  (-2),
 602     myToPrefixDocName (Standard_True),
 603     myToGetNames (Standard_True),
 604     myToExplore  (Standard_False) {}
 605
 606   //! Display single label.
 607   Standard_Integer displayLabel (Draw_Interpretor& theDI,
 608                                  const TDF_Label& theLabel,
 609                                  const TCollection_AsciiString& theNamePrefix,
 610                                  const TopLoc_Location& theLoc)
 611   {
 612     TCollection_AsciiString aName;
 613     if (myToGetNames)
 614     {
 615       Handle(TDataStd_Name) aNodeName;
 616       if (theLabel.FindAttribute (TDataStd_Name::GetID(), aNodeName))
 617       {
 618         aName = aNodeName->Get();
 619       }
 620       if (aName.IsEmpty())
 621       {
 622         TDF_Label aRefLabel;
 623         if (XCAFDoc_ShapeTool::GetReferredShape (theLabel, aRefLabel)
 624          && aRefLabel.FindAttribute (TDataStd_Name::GetID(), aNodeName))
 625         {
 626           aName = aNodeName->Get();
 627         }
 628       }
 629
 630       if (aName.IsEmpty())
 631       {
 632         TDF_Tool::Entry (theLabel, aName);
 633       }
 634       for (Standard_Integer aNameIndex = 1;; ++aNameIndex)
 635       {
 636         if (myNameMap.Add (aName))
 637         {
 638           break;
 639         }
 640         aName = aNodeName->Get() + "_" + aNameIndex;
 641       }
 642     }
 643     else
 644     {
 645       TDF_Tool::Entry (theLabel, aName);
 646     }
 647     aName = theNamePrefix + aName;
 648
 649     if (myToExplore)
 650     {
 651       TDF_Label aRefLabel = theLabel;
 652       XCAFDoc_ShapeTool::GetReferredShape (theLabel, aRefLabel);
 653       if (XCAFDoc_ShapeTool::IsAssembly (aRefLabel))
 654       {
 655         aName += "/";
 656         const TopLoc_Location aLoc = theLoc * XCAFDoc_ShapeTool::GetLocation (theLabel);
 657         for (TDF_ChildIterator aChildIter (aRefLabel); aChildIter.More(); aChildIter.Next())
 658         {
 659           if (displayLabel (theDI, aChildIter.Value(), aName, aLoc) == 1)
 660           {
 661             return 1;
 662           }
 663         }
 664         return 0;
 665       }
 666     }
 667
 668     Handle(XCAFPrs_AISObject) aPrs = new XCAFPrs_AISObject (theLabel);
 669     if (!theLoc.IsIdentity())
 670     {
 671       aPrs->SetLocalTransformation (theLoc);
 672     }
 673     if (myDispMode != -2)
 674     {
 675       if (myDispMode == -1)
 676       {
 677         aPrs->UnsetDisplayMode();
 678       }
 679       if (!aPrs->AcceptDisplayMode (myDispMode))
 680       {
 681         std::cout << "Syntax error: " << aPrs->DynamicType()->Name() << " rejects " << myDispMode << " display mode\n";
 682         return 1;
 683       }
 684       else
 685       {
 686         aPrs->SetDisplayMode (myDispMode);
 687       }
 688     }
 689     if (myHiMode != -2)
 690     {
 691       if (myHiMode != -1
 692       && !aPrs->AcceptDisplayMode (myHiMode))
 693       {
 694         std::cout << "Syntax error: " << aPrs->DynamicType()->Name() << " rejects " << myHiMode << " display mode\n";
 695         return 1;
 696       }
 697       aPrs->SetHilightMode (myHiMode);
 698     }
 699
 700     ViewerTest::Display (aName, aPrs, false);
 701     theDI << aName << " ";
 702     return 0;
 703   }
 704
 705   //! XDisplay command implementation.
 706   Standard_Integer xdisplay (Draw_Interpretor& theDI,
 707                              Standard_Integer theNbArgs,
 708                              const char** theArgVec)
 709   {
 710     Handle(AIS_InteractiveContext) aContext = ViewerTest::GetAISContext();
 711     if (aContext.IsNull())
 712     {
 713       std::cout << "Error: no active view!\n";
 714       return 1;
 715     }
 716
 717     ViewerTest_AutoUpdater anAutoUpdater (aContext, ViewerTest::CurrentView());
 718     for (Standard_Integer anArgIter = 1; anArgIter < theNbArgs; ++anArgIter)
 719     {
 720       TCollection_AsciiString anArgCase (theArgVec[anArgIter]);
 721       anArgCase.LowerCase();
 722       if (anAutoUpdater.parseRedrawMode (anArgCase))
 723       {
 724         continue;
 725       }
 726       else if (anArgIter + 1 < theNbArgs
 727             && myDispMode == -2
 728             && (anArgCase == "-dispmode"
 729              || anArgCase == "-displaymode")
 730             && TCollection_AsciiString (theArgVec[anArgIter + 1]).IsIntegerValue())
 731       {
 732         myDispMode = TCollection_AsciiString (theArgVec[++anArgIter]).IntegerValue();
 733       }
 734       else if (anArgIter + 1 < theNbArgs
 735             && myHiMode == -2
 736             && (anArgCase == "-himode"
 737              || anArgCase == "-highmode"
 738              || anArgCase == "-highlightmode")
 739             && TCollection_AsciiString (theArgVec[anArgIter + 1]).IsIntegerValue())
 740       {
 741         myHiMode = TCollection_AsciiString (theArgVec[++anArgIter]).IntegerValue();
 742       }
 743       else if (anArgCase == "-docprefix"
 744             || anArgCase == "-nodocprefix")
 745       {
 746         myToPrefixDocName = Standard_True;
 747         if (anArgIter + 1 < theNbArgs
 748          && ViewerTest::ParseOnOff (theArgVec[anArgIter + 1], myToPrefixDocName))
 749         {
 750           ++anArgIter;
 751         }
 752         if (anArgCase.StartsWith ("-no"))
 753         {
 754           myToPrefixDocName = !myToPrefixDocName;
 755         }
 756       }
 757       else if (anArgCase == "-names"
 758             || anArgCase == "-nonames")
 759       {
 760         myToGetNames = Standard_True;
 761         if (anArgIter + 1 < theNbArgs
 762          && ViewerTest::ParseOnOff (theArgVec[anArgIter + 1], myToGetNames))
 763         {
 764           ++anArgIter;
 765         }
 766         if (anArgCase.StartsWith ("-no"))
 767         {
 768           myToGetNames = !myToGetNames;
 769         }
 770       }
 771       else if (anArgCase == "-explore"
 772             || anArgCase == "-noexplore")
 773       {
 774         myToExplore = Standard_True;
 775         if (anArgIter + 1 < theNbArgs
 776          && ViewerTest::ParseOnOff (theArgVec[anArgIter + 1], myToExplore))
 777         {
 778           ++anArgIter;
 779         }
 780         if (anArgCase.StartsWith ("-no"))
 781         {
 782           myToExplore = !myToExplore;
 783         }
 784       }
 785       else
 786       {
 787         if (myDoc.IsNull()
 788          && DDocStd::GetDocument (theArgVec[anArgIter], myDoc, Standard_False))
 789         {
 790           myDocName = theArgVec[anArgIter];
 791           continue;
 792         }
 793
 794         TCollection_AsciiString aValue (theArgVec[anArgIter]);
 795         const Standard_Integer aFirstSplit = aValue.Search (":");
 796         if (!IsDigit (aValue.Value (1))
 797           && aFirstSplit >= 2
 798           && aFirstSplit < aValue.Length())
 799         {
 800           TCollection_AsciiString aDocName = aValue.SubString (1, aFirstSplit - 1);
 801           Standard_CString aDocNameStr = aDocName.ToCString();
 802           Handle(TDocStd_Document) aDoc;
 803           if (DDocStd::GetDocument (aDocNameStr, aDoc, Standard_False))
 804           {
 805             aValue = aValue.SubString (aFirstSplit + 1, aValue.Length());
 806             if (!myDoc.IsNull()
 807               && myDoc != aDoc)
 808             {
 809               std::cout << "Syntax error at '" << theArgVec[anArgIter] << "'\n";
 810               return 1;
 811             }
 812             myDoc = aDoc;
 813             myDocName = aDocName;
 814           }
 815         }
 816         if (myDoc.IsNull())
 817         {
 818           std::cout << "Syntax error at '" << theArgVec[anArgIter] << "'\n";
 819           return 1;
 820         }
 821
 822         TDF_Label aLabel;
 823         TDF_Tool::Label (myDoc->GetData(), aValue.ToCString(), aLabel);
 824         if (aLabel.IsNull()
 825         || !XCAFDoc_ShapeTool::IsShape (aLabel))
 826         {
 827           std::cout << "Syntax error: " << aValue << " is not a valid shape label\n";
 828           return 1;
 829         }
 830         myLabels.Append (aLabel);
 831       }
 832     }
 833     if (myDoc.IsNull())
 834     {
 835       std::cout << "Syntax error: not enough arguments\n";
 836       return 1;
 837     }
 838     if (myLabels.IsEmpty())
 839     {
 840       XCAFDoc_DocumentTool::ShapeTool (myDoc->Main())->GetFreeShapes (myLabels);
 841     }
 842
 843     for (TDF_LabelSequence::Iterator aLabIter (myLabels); aLabIter.More(); aLabIter.Next())
 844     {
 845       const TDF_Label& aLabel = aLabIter.Value();
 846       if (displayLabel (theDI, aLabel, myToPrefixDocName ? myDocName + ":" : "", TopLoc_Location()) == 1)
 847       {
 848         return 1;
 849       }
 850     }
 851     return 0;
 852   }
 853
 854 private:
 855   NCollection_Map<TCollection_AsciiString, TCollection_AsciiString>
 856                            myNameMap;         //!< names map to handle collisions
 857   Handle(TDocStd_Document) myDoc;             //!< document
 858   TCollection_AsciiString  myDocName;         //!< document name
 859   TDF_LabelSequence        myLabels;          //!< labels to display
 860   Standard_Integer         myDispMode;        //!< shape display mode
 861   Standard_Integer         myHiMode;          //!< shape highlight mode
 862   Standard_Boolean         myToPrefixDocName; //!< flag to prefix objects with document name
 863   Standard_Boolean         myToGetNames;      //!< flag to use label names or tags
 864   Standard_Boolean         myToExplore;       //!< flag to explore assembles
 865 };
 866
 867 //=======================================================================
 868 //function : xwd
 869 //purpose  :
 870 //=======================================================================
 871 static Standard_Integer xwd (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 872 {
 873   if (argc <3) {
 874     di<<"Use: "<<argv[0]<<" DocName filename.{xwd|gif|bmp}\n";
 875     return 1;
 876   }
 877
 878   Handle(TDocStd_Document) Doc;
 879   DDocStd::GetDocument(argv[1], Doc);
 880   if ( Doc.IsNull() ) { di << argv[1] << " is not a document\n"; return 1; }
 881
 882   Handle(AIS_InteractiveContext) IC;
 883   if ( ! TPrsStd_AISViewer::Find ( Doc->GetData()->Root(), IC ) ) {
 884     di << "Cannot find viewer for document " << argv[1] << "\n";
 885     return 1;
 886   }
 887
 888   Handle(V3d_Viewer) aViewer = IC->CurrentViewer();
 889   V3d_ListOfViewIterator aViewIter = aViewer->ActiveViewIterator();
 890   if (aViewIter.More())
 891   {
 892     aViewIter.Value()->Dump ( argv[2] );
 893   }
 894   else {
 895     di << "Cannot find an active view in a viewer " << argv[1] << "\n";
 896     return 1;
 897   }
 898
 899   return 0;
 900 }
 901
 902
 903 //=======================================================================
 904 //function : XAttributeValue
 905 //purpose  :
 906 //=======================================================================
 907 static Standard_Integer XAttributeValue (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
 908 {
 909   if ( argc < 4 ) { std::cout << "Syntax error: Too few args\n"; return 1; }
 910   Handle(DDF_Browser) browser = Handle(DDF_Browser)::DownCast (Draw::GetExisting (argv[1]));
 911   if ( browser.IsNull() ) { std::cout << "Syntax error: Not a browser: " << argv[1] << "\n"; return 1; }
 912
 913   TDF_Label lab;
 914   TDF_Tool::Label(browser->Data(),argv[2],lab);
 915   if ( lab.IsNull() ) { std::cout << "Syntax error: label is Null: " << argv[2] << "\n"; return 1; }
 916
 917   Standard_Integer num = Draw::Atoi ( argv[3] );
 918   TDF_AttributeIterator itr(lab,Standard_False);
 919   for (Standard_Integer i=1; itr.More() && i < num; i++) itr.Next();
 920
 921   if ( ! itr.More() ) { std::cout << "Syntax error: Attribute #" << num << " not found\n"; return 1; }
 922
 923   const Handle(TDF_Attribute)& att = itr.Value();
 924   if ( att->IsKind(STANDARD_TYPE(TDataStd_TreeNode)) ) {
 925     Standard_CString type = "";
 926     if ( att->ID() == XCAFDoc::ShapeRefGUID() ) type = "Shape Instance Link";
 927     else if ( att->ID() == XCAFDoc::ColorRefGUID(XCAFDoc_ColorGen) ) type = "Generic Color Link";
 928     else if ( att->ID() == XCAFDoc::ColorRefGUID(XCAFDoc_ColorSurf) ) type = "Surface Color Link";
 929     else if ( att->ID() == XCAFDoc::ColorRefGUID(XCAFDoc_ColorCurv) ) type = "Curve Color Link";
 930     else if ( att->ID() == XCAFDoc::DimTolRefGUID() ) type = "DGT Link";
 931     else if ( att->ID() == XCAFDoc::DatumRefGUID() ) type = "Datum Link";
 932     else if ( att->ID() == XCAFDoc::MaterialRefGUID() ) type = "Material Link";
 933     Handle(TDataStd_TreeNode) TN = Handle(TDataStd_TreeNode)::DownCast(att);
 934     TCollection_AsciiString ref;
 935     if ( TN->HasFather() ) {
 936       TDF_Tool::Entry ( TN->Father()->Label(), ref );
 937       di << type << " ==> " << ref.ToCString();
 938     }
 939     else {
 940       di << type << " <== (" << ref.ToCString();
 941       Handle(TDataStd_TreeNode) child = TN->First();
 942       while ( ! child.IsNull() ) {
 943         TDF_Tool::Entry ( child->Label(), ref );
 944         if ( child != TN->First() ) di << ", ";
 945         di << ref.ToCString();
 946         child = child->Next();
 947       }
 948       di << ")";
 949     }
 950   }
 951   else if ( att->IsKind(STANDARD_TYPE(TDF_Reference)) ) {
 952     Handle(TDF_Reference) val = Handle(TDF_Reference)::DownCast ( att );
 953     TCollection_AsciiString ref;
 954     TDF_Tool::Entry ( val->Get(), ref );
 955     di << "==> " << ref.ToCString();
 956   }
 957   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Integer)) ) {
 958     Handle(TDataStd_Integer) val = Handle(TDataStd_Integer)::DownCast ( att );
 959     TCollection_AsciiString str ( val->Get() );
 960     di << str.ToCString();
 961   }
 962   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Real)) ) {
 963     Handle(TDataStd_Real) val = Handle(TDataStd_Real)::DownCast ( att );
 964     TCollection_AsciiString str ( val->Get() );
 965     di << str.ToCString();
 966   }
 967   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Name)) ) {
 968     Handle(TDataStd_Name) val = Handle(TDataStd_Name)::DownCast ( att );
 969     TCollection_AsciiString str ( val->Get(), '?' );
 970     di << str.ToCString();
 971   }
 972   else if ( att->IsKind(STANDARD_TYPE(TDataStd_Comment)) ) {
 973     Handle(TDataStd_Comment) val = Handle(TDataStd_Comment)::DownCast ( att );
 974     TCollection_AsciiString str ( val->Get(), '?' );
 975     di << str.ToCString();
 976   }
 977   else if ( att->IsKind(STANDARD_TYPE(TDataStd_AsciiString)) ) {
 978     Handle(TDataStd_AsciiString) val = Handle(TDataStd_AsciiString)::DownCast ( att );
 979     TCollection_AsciiString str ( val->Get(), '?' );
 980     di << str.ToCString();
 981   }
 982   else if ( att->IsKind(STANDARD_TYPE(TDataStd_IntegerArray)) ) {
 983     Handle(TDataStd_IntegerArray) val = Handle(TDataStd_IntegerArray)::DownCast ( att );
 984     for ( Standard_Integer j=val->Lower(); j <= val->Upper(); j++ ) {
 985       if ( j > val->Lower() ) di << ", ";
 986       TCollection_AsciiString str ( val->Value(j) );
 987       di << str.ToCString();
 988     }
 989   }
 990   else if ( att->IsKind(STANDARD_TYPE(TDataStd_RealArray)) ) {
 991     Handle(TDataStd_RealArray) val = Handle(TDataStd_RealArray)::DownCast ( att );
 992     for ( Standard_Integer j=val->Lower(); j <= val->Upper(); j++ ) {
 993       if ( j > val->Lower() ) di << ", ";
 994       TCollection_AsciiString str ( val->Value(j) );
 995       di << str.ToCString();
 996     }
 997   }
 998   else if ( att->IsKind(STANDARD_TYPE(TDataStd_ByteArray)) ) {
 999     Handle(TDataStd_ByteArray) val = Handle(TDataStd_ByteArray)::DownCast ( att );
1000     for ( Standard_Integer j=val->Lower(); j <= val->Upper(); j++ ) {
1001       if ( j > val->Lower() ) di << ", ";
1002       TCollection_AsciiString str ( val->Value(j) );
1003       di << str.ToCString();
1004     }
1005   }
1006   else if ( att->IsKind(STANDARD_TYPE(TNaming_NamedShape)) ) {
1007     Handle(TNaming_NamedShape) val = Handle(TNaming_NamedShape)::DownCast ( att );
1008     TopoDS_Shape S = val->Get();
1009     di << S.TShape()->DynamicType()->Name();
1010     if ( ! S.Location().IsIdentity() ) di << "(located)";
1011   }
1012   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Volume)) ) {
1013     Handle(XCAFDoc_Volume) val = Handle(XCAFDoc_Volume)::DownCast ( att );
1014     TCollection_AsciiString str ( val->Get() );
1015     di << str.ToCString();
1016   }
1017   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Area)) ) {
1018     Handle(XCAFDoc_Area) val = Handle(XCAFDoc_Area)::DownCast ( att );
1019     TCollection_AsciiString str ( val->Get() );
1020     di << str.ToCString();
1021   }
1022   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Centroid)) ) {
1023     Handle(XCAFDoc_Centroid) val = Handle(XCAFDoc_Centroid)::DownCast ( att );
1024     gp_Pnt myCentroid = val->Get();
1025     di << "(" ;
1026     di << myCentroid.X();
1027     di <<" , ";
1028     di << myCentroid.Y();
1029     di <<" , ";
1030     di << myCentroid.Z();
1031     di << ")";
1032   }
1033   else if ( att->IsKind(STANDARD_TYPE(TDataStd_UAttribute)) ) {
1034     if ( att->ID() == XCAFDoc::AssemblyGUID() ) di << "is assembly";
1035     if ( att->ID() == XCAFDoc::InvisibleGUID() ) di << "invisible";
1036   }
1037   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Color)) ) {
1038     Handle(XCAFDoc_Color) val = Handle(XCAFDoc_Color)::DownCast ( att );
1039     Quantity_ColorRGBA C = val->GetColorRGBA();
1040     char string[260];
1041     Sprintf ( string, "%s (%g, %g, %g, %g)", C.GetRGB().StringName ( C.GetRGB().Name() ),
1042       C.GetRGB().Red(), C.GetRGB().Green(), C.GetRGB().Blue(), C.Alpha());
1043     di << string;
1044   }
1045   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_DimTol)) ) {
1046     Handle(XCAFDoc_DimTol) val = Handle(XCAFDoc_DimTol)::DownCast ( att );
1047     Standard_Integer kind = val->GetKind();
1048     Handle(TColStd_HArray1OfReal) HAR = val->GetVal();
1049     if(kind<20) { //dimension
1050       di<<"Diameter (ValueRange["<<HAR->Value(1)<<","<<HAR->Value(2)<<"])";
1051     }
1052     else {
1053       switch(kind) {
1054       case 21: di << "GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol_1 (Value="<<HAR->Value(1)<<")"; break;
1055       case 22: di << "GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol_2 (Value="<<HAR->Value(1)<<")"; break;
1056       case 23: di << "GeoTolAndGeoTolWthDatRefAndModGeoTolAndPosTol_3 (Value="<<HAR->Value(1)<<")"; break;
1057       case 24: di << "AngularityTolerance (Value="<<HAR->Value(1)<<")"; break;
1058       case 25: di << "CircularRunoutTolerance (Value="<<HAR->Value(1)<<")"; break;
1059       case 26: di << "CoaxialityTolerance (Value="<<HAR->Value(1)<<")"; break;
1060       case 27: di << "ConcentricityTolerance (Value="<<HAR->Value(1)<<")"; break;
1061       case 28: di << "ParallelismTolerance (Value="<<HAR->Value(1)<<")"; break;
1062       case 29: di << "PerpendicularityTolerance (Value="<<HAR->Value(1)<<")"; break;
1063       case 30: di << "SymmetryTolerance (Value="<<HAR->Value(1)<<")"; break;
1064       case 31: di << "TotalRunoutTolerance (Value="<<HAR->Value(1)<<")"; break;
1065       case 35: di << "ModifiedGeometricTolerance_1 (Value="<<HAR->Value(1)<<")"; break;
1066       case 36: di << "ModifiedGeometricTolerance_2 (Value="<<HAR->Value(1)<<")"; break;
1067       case 37: di << "ModifiedGeometricTolerance_3 (Value="<<HAR->Value(1)<<")"; break;
1068       case 38: di << "CylindricityTolerance (Value="<<HAR->Value(1)<<")"; break;
1069       case 39: di << "FlatnessTolerance (Value="<<HAR->Value(1)<<")"; break;
1070       case 40: di << "LineProfileTolerance (Value="<<HAR->Value(1)<<")"; break;
1071       case 41: di << "PositionTolerance (Value="<<HAR->Value(1)<<")"; break;
1072       case 42: di << "RoundnessTolerance (Value="<<HAR->Value(1)<<")"; break;
1073       case 43: di << "StraightnessTolerance (Value="<<HAR->Value(1)<<")"; break;
1074       case 44: di << "SurfaceProfileTolerance (Value="<<HAR->Value(1)<<")"; break;
1075       }
1076     }
1077   }
1078   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_Material)) ) {
1079     Handle(XCAFDoc_Material) val = Handle(XCAFDoc_Material)::DownCast ( att );
1080     Standard_Real dens = val->GetDensity();
1081     Standard_CString dimdens = "g/cu sm";
1082     if(dens==0)
1083       di<<val->GetName()->ToCString();
1084     else
1085       di<<val->GetName()->ToCString()<<"(density="<<dens<<dimdens<<")";
1086   }
1087   else if ( att->IsKind(STANDARD_TYPE(XCAFDoc_GraphNode)) ) {
1088     Standard_CString type;
1089     if ( att->ID() == XCAFDoc::LayerRefGUID() ) {
1090       type = "Layer Instance Link";
1091     }
1092     else if ( att->ID() == XCAFDoc::SHUORefGUID() ) {
1093       type = "SHUO Instance Link";
1094     }
1095     else if ( att->ID() == XCAFDoc::DatumTolRefGUID() ) {
1096       type = "DatumToler Link";
1097     }
1098     else if ( att->ID() == XCAFDoc::DimensionRefFirstGUID() ) {
1099       type = "Dimension Link First";
1100     }
1101     else if ( att->ID() == XCAFDoc::DimensionRefSecondGUID() ) {
1102       type = "Dimension Link Second";
1103     }
1104     else if ( att->ID() == XCAFDoc::GeomToleranceRefGUID() ){
1105       type = "GeomTolerance Link";
1106     }
1107     else if ( att->ID() == XCAFDoc::DatumRefGUID() ){
1108       type = "Datum Link";
1109     }
1110     else if (att->ID() == XCAFDoc::ViewRefShapeGUID()){
1111       type = "View Shape Link";
1112     }
1113     else if (att->ID() == XCAFDoc::ViewRefGDTGUID()){
1114       type = "View GD&T Link";
1115     }
1116     else if (att->ID() == XCAFDoc::ViewRefPlaneGUID()) {
1117       type = "View Clipping Plane Link";
1118     }
1119     else return 0;
1120
1121     Handle(XCAFDoc_GraphNode) DETGN = Handle(XCAFDoc_GraphNode)::DownCast(att);
1122     TCollection_AsciiString ref;
1123     Standard_Integer ii = 1;
1124     if (DETGN->NbFathers()!=0) {
1125
1126       TDF_Tool::Entry ( DETGN->GetFather(ii)->Label(), ref );
1127       di << type<< " ==> (" << ref.ToCString();
1128       for (ii = 2; ii <= DETGN->NbFathers(); ii++) {
1129         TDF_Tool::Entry ( DETGN->GetFather(ii)->Label(), ref );
1130           di << ", " << ref.ToCString();
1131         }
1132       di << ") ";
1133     }
1134     ii = 1;
1135     if (DETGN->NbChildren()!=0) {
1136       TDF_Tool::Entry ( DETGN->GetChild(ii)->Label(), ref );
1137       di << type<< " <== (" << ref.ToCString();
1138       for (ii = 2; ii <= DETGN->NbChildren(); ii++) {
1139         TDF_Tool::Entry ( DETGN->GetChild(ii)->Label(), ref );
1140           di << ", " << ref.ToCString();
1141         }
1142       di << ")";
1143     }
1144   }
1145   return 0;
1146 }
1147
1148
1149 //=======================================================================
1150 //function : setviewName
1151 //purpose  :
1152 //=======================================================================
1153 static Standard_Integer setviewName (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1154 {
1155   if (argc <2) {
1156     di<<"Use: "<<argv[0]<<" (1/0)\n";
1157     return 1;
1158   }
1159   Standard_Boolean mode = Standard_False;
1160   if (Draw::Atoi(argv[1]) == 1) mode = Standard_True;
1161   XCAFPrs::SetViewNameMode(mode);
1162   return 0;
1163 }
1164
1165
1166 //=======================================================================
1167 //function : getviewName
1168 //purpose  : auxilary
1169 //=======================================================================
1170
1171 static Standard_Integer getviewName (Draw_Interpretor&  di, Standard_Integer /*argc*/, const char** /*argv*/)
1172 {
1173   if ( XCAFPrs::GetViewNameMode() ) di << "Display names ON\n";
1174   else di << "Display names OFF\n";
1175   return 0;
1176 }
1177
1178
1179 //=======================================================================
1180 //function : XSetTransparency
1181 //purpose  :
1182 //=======================================================================
1183 static Standard_Integer XSetTransparency (Draw_Interpretor& di, Standard_Integer argc, const char** argv)
1184 {
1185   if (argc < 3) {
1186     di<<"Use: "<<argv[0]<<" Doc Transparency [label1 label2 ...] \n";
1187     return 1;
1188   }
1189
1190   Handle(TDocStd_Document) Doc;
1191   DDocStd::GetDocument(argv[1], Doc);
1192   if ( Doc.IsNull() ) { di << argv[1] << " is not a document\n"; return 1; }
1193
1194   const Standard_Real aTransparency = Draw::Atof(argv[2]);
1195
1196   // collect sequence of labels
1197   Handle(XCAFDoc_ShapeTool) shapes = XCAFDoc_DocumentTool::ShapeTool(Doc->Main());
1198   TDF_LabelSequence seq;
1199   if ( argc > 3 ) {
1200     for ( Standard_Integer i=3; i < argc; i++ ) {
1201       TDF_Label aLabel;
1202       TDF_Tool::Label(Doc->GetData(), argv[i], aLabel);
1203       if ( aLabel.IsNull() || ! shapes->IsShape ( aLabel ) ) {
1204         di << argv[i] << " is not a valid shape label!";
1205         continue;
1206       }
1207       seq.Append ( aLabel );
1208     }
1209   }
1210   else {
1211     shapes->GetFreeShapes ( seq );
1212   }
1213
1214   // find presentations and set transparency
1215   for ( Standard_Integer i=1; i <= seq.Length(); i++ ) {
1216     Handle(TPrsStd_AISPresentation) prs;
1217     if ( ! seq.Value(i).FindAttribute ( TPrsStd_AISPresentation::GetID(), prs ) ) {
1218       prs = TPrsStd_AISPresentation::Set(seq.Value(i),XCAFPrs_Driver::GetID());
1219       prs->SetMaterial ( Graphic3d_NOM_PLASTIC );
1220     }
1221     prs->SetTransparency( aTransparency );
1222   }
1223   TPrsStd_AISViewer::Update(Doc->GetData()->Root());
1224   return 0;
1225 }
1226
1227 //=======================================================================
1228 //function : XShowFaceBoundary
1229 //purpose  : Set face boundaries on/off
1230 //=======================================================================
1231 static Standard_Integer XShowFaceBoundary (Draw_Interpretor& di,
1232                                            Standard_Integer argc,
1233                                            const char ** argv)
1234 {
1235   if (( argc != 4 && argc < 7 ) || argc > 9)
1236   {
1237     di << "Usage :\n " << argv[0]
1238        << " Doc Label IsOn [R G B [LineWidth [LineStyle]]]\n"
1239        << "   Doc       - is the document name. \n"
1240        << "   Label     - is the shape label. \n"
1241        << "   IsOn      - flag indicating whether the boundaries\n"
1242        << "                should be turned on or off (can be set\n"
1243        << "                to 0 (off) or 1 (on)).\n"
1244        << "   R, G, B   - red, green and blue components of boundary\n"
1245        << "                color in range (0 - 255).\n"
1246        << "                (default is (0, 0, 0)\n"
1247        << "   LineWidth - line width\n"
1248        << "                (default is 1)\n"
1249        << "   LineStyle - line fill style :\n"
1250        << "                 0 - solid  \n"
1251        << "                 1 - dashed \n"
1252        << "                 2 - dot    \n"
1253        << "                 3 - dashdot\n"
1254        << "                (default is solid)";
1255
1256     return 1;
1257   }
1258
1259   // get specified document
1260   Handle(TDocStd_Document) aDoc;
1261   DDocStd::GetDocument (argv[1], aDoc);
1262   if (aDoc.IsNull())
1263   {
1264     di << argv[1] << " is not a document\n";
1265     return 1;
1266   }
1267
1268   Handle(AIS_InteractiveContext) aContext;
1269   if (!TPrsStd_AISViewer::Find (aDoc->GetData()->Root(), aContext))
1270   {
1271     di << "Cannot find viewer for document " << argv[1] << "\n";
1272     return 1;
1273   }
1274
1275   // get shape tool for shape verification
1276   Handle(XCAFDoc_ShapeTool) aShapes =
1277     XCAFDoc_DocumentTool::ShapeTool (aDoc->Main());
1278
1279   // get label and validate that it is a shape label
1280   TDF_Label aLabel;
1281   TDF_Tool::Label (aDoc->GetData(), argv[2], aLabel);
1282   if (aLabel.IsNull() || !aShapes->IsShape (aLabel))
1283   {
1284     di << argv[2] << " is not a valid shape label!";
1285     return 1;
1286   }
1287
1288   // get presentation from label
1289   Handle(TPrsStd_AISPresentation) aPrs;
1290   if (!aLabel.FindAttribute (TPrsStd_AISPresentation::GetID (), aPrs))
1291   {
1292     aPrs = TPrsStd_AISPresentation::Set (aLabel,XCAFPrs_Driver::GetID ());
1293   }
1294
1295   Handle(AIS_InteractiveObject) anInteractive = aPrs->GetAIS ();
1296   if (anInteractive.IsNull ())
1297   {
1298     di << "Can't set drawer attributes.\n"
1299           "Interactive object for shape label doesn't exists.";
1300     return 1;
1301   }
1302
1303   // get drawer
1304   const Handle(Prs3d_Drawer)& aDrawer = anInteractive->Attributes ();
1305
1306   // default attributes
1307   Standard_Real aRed   = 0.0;
1308   Standard_Real aGreen = 0.0;
1309   Standard_Real aBlue  = 0.0;
1310   Standard_Real aWidth = 1.0;
1311   Aspect_TypeOfLine aLineType = Aspect_TOL_SOLID;
1312
1313   // turn boundaries on/off
1314   Standard_Boolean isBoundaryDraw = (Draw::Atoi (argv[3]) == 1);
1315   aDrawer->SetFaceBoundaryDraw (isBoundaryDraw);
1316
1317   // set boundary color
1318   if (argc >= 7)
1319   {
1320     // Text color
1321     aRed   = Draw::Atof (argv[4])/255.;
1322     aGreen = Draw::Atof (argv[5])/255.;
1323     aBlue  = Draw::Atof (argv[6])/255.;
1324   }
1325
1326   // set line width
1327   if (argc >= 8)
1328   {
1329     aWidth = (Standard_Real)Draw::Atof (argv[7]);
1330   }
1331
1332   // select appropriate line type
1333   if (argc == 9)
1334   {
1335     if (!ViewerTest::ParseLineType (argv[8], aLineType))
1336     {
1337       std::cout << "Syntax error: unknown line type '" << argv[8] << "'\n";
1338     }
1339   }
1340
1341   Quantity_Color aColor (aRed, aGreen, aBlue, Quantity_TOC_RGB);
1342
1343   Handle(Prs3d_LineAspect) aBoundaryAspect =
1344     new Prs3d_LineAspect (aColor, aLineType, aWidth);
1345
1346   aDrawer->SetFaceBoundaryAspect (aBoundaryAspect);
1347
1348   aContext->Redisplay (anInteractive, Standard_True);
1349
1350   return 0;
1351 }
1352
1353 //=======================================================================
1354 //function : testDoc
1355 //purpose  : Method to test destruction of document
1356 //=======================================================================
1357 static Standard_Integer testDoc (Draw_Interpretor&,
1358                                  Standard_Integer argc,
1359                                  const char ** argv)
1360 {
1361   if( argc < 2 )
1362   {
1363     std::cout<<"Invalid numbers of arguments should be: XTestDoc shape"<<std::endl;
1364     return 1;
1365   }
1366   TopoDS_Shape shape = DBRep::Get(argv[1]);
1367   if( shape.IsNull())
1368     return 1;
1369
1370   Handle(TDocStd_Application) anApp = DDocStd::GetApplication();
1371
1372   Handle(TDocStd_Document) aD1 = new TDocStd_Document("BinXCAF");
1373   aD1->Open(anApp);
1374
1375   TCollection_AsciiString  aViewName ("Driver1/DummyDocument/View1");
1376   ViewerTest::ViewerInit (0, 0, 0, 0, aViewName.ToCString(), "");
1377   TPrsStd_AISViewer::New (aD1->GetData()->Root(), ViewerTest::GetAISContext());
1378
1379   // get shape tool for shape verification
1380   Handle(XCAFDoc_ShapeTool) aShapes =
1381     XCAFDoc_DocumentTool::ShapeTool (aD1->Main());
1382   TDF_Label aLab = aShapes->AddShape(shape);
1383
1384   Handle(Geom_Axis2Placement) aPlacement =
1385     new Geom_Axis2Placement (gp::Origin(), gp::DZ(),gp::DX());
1386   Handle(AIS_Trihedron) aTriShape = new AIS_Trihedron (aPlacement);
1387
1388   Handle(TNaming_NamedShape) NS;
1389   Handle(TPrsStd_AISPresentation) prs;
1390   if( aLab.FindAttribute( TNaming_NamedShape::GetID(), NS) ) {
1391     prs = TPrsStd_AISPresentation::Set( NS );
1392   }
1393
1394   if( aLab.FindAttribute(TPrsStd_AISPresentation::GetID(), prs) )
1395     prs->Display();
1396
1397   TPrsStd_AISViewer::Update(aLab);
1398   ViewerTest::GetAISContext()->Display (aTriShape, Standard_True);
1399   aD1->BeforeClose();
1400   aD1->Close();
1401   ViewerTest::RemoveView (aViewName);
1402   return 0;
1403 }
1404
1405
1406 //=======================================================================
1407 //function : Init
1408 //purpose  :
1409 //=======================================================================
1410
1411 void XDEDRAW::Init(Draw_Interpretor& di)
1412 {
1413   static Standard_Boolean initactor = Standard_False;
1414   if (initactor)
1415   {
1416     return;
1417   }
1418   initactor = Standard_True;
1419
1420   // Load static variables for STEPCAF (ssv; 16.08.2012)
1421   STEPCAFControl_Controller::Init();
1422
1423   // Initialize XCAF formats
1424   Handle(TDocStd_Application) anApp = DDocStd::GetApplication();
1425   BinXCAFDrivers::DefineFormat(anApp);
1426   XmlXCAFDrivers::DefineFormat(anApp);
1427
1428   // Register driver in global table for displaying XDE documents
1429   // in 3d viewer using OCAF mechanics
1430   TPrsStd_DriverTable::Get()->AddDriver (XCAFPrs_Driver::GetID(), new XCAFPrs_Driver);
1431
1432   //=====================================
1433   // General commands
1434   //=====================================
1435
1436   Standard_CString g = "XDE general commands";
1437
1438   di.Add ("XNewDoc","DocName \t: Create new DECAF document",
1439                    __FILE__, newDoc, g);
1440
1441   di.Add ("XSave","[Doc Path] \t: Save Doc or first document in session",
1442                    __FILE__, saveDoc, g);
1443
1444   di.Add ("XOpen","Path Doc \t: Open XDE Document with name Doc from Path",
1445           __FILE__, openDoc, g);
1446
1447   di.Add ("Xdump","Doc [int deep (0/1)] \t: Print information about tree's structure",
1448                    __FILE__, dump, g);
1449
1450   di.Add ("XStat","Doc \t: Print statistics of document",
1451                    __FILE__, statdoc, g);
1452
1453   di.Add ("XSetPrs","Doc [label1 lavbel2 ...] \t: Set presentation for given label(s) or whole doc",
1454                    __FILE__, setPrs, g);
1455
1456   di.Add ("XShow","Doc [label1 lavbel2 ...] \t: Display document (or some labels) in a graphical window",
1457                    __FILE__, show, g);
1458
1459   di.Add ("XDisplay",
1460           "XDisplay Doc [label1 [label2 [...]]] [-explore {on|off}] [-docPrefix {on|off}] [-names {on|off}]"
1461           "\n\t\t:      [-noupdate] [-dispMode Mode] [-highMode Mode]"
1462           "\n\t\t: Displays document (parts) in 3D Viewer."
1463           "\n\t\t:  -dispMode    Presentation display mode."
1464           "\n\t\t:  -highMode    Presentation highlight mode."
1465           "\n\t\t:  -docPrefix   Prepend document name to object names; TRUE by default."
1466           "\n\t\t:  -names       Use object names instead of label tag; TRUE by default."
1467           "\n\t\t:  -explore     Explode labels to leaves; FALSE by default.",
1468           __FILE__, XDEDRAW_XDisplayTool::XDisplay, g);
1469
1470   di.Add ("XWdump","Doc filename.{gif|xwd|bmp} \t: Dump contents of viewer window to XWD, GIF or BMP file",
1471                    __FILE__, xwd, g);
1472
1473   di.Add ("XAttributeValue", "Doc label #attribute: internal command for browser",
1474                    __FILE__, XAttributeValue, g);
1475
1476   di.Add ("XSetViewNameMode", "(1/0) \t: Set/Unset mode of displaying names.",
1477                    __FILE__, setviewName, g);
1478
1479   di.Add ("XGetViewNameMode", "\t: Print if  mode of displaying names is turn on.",
1480                    __FILE__, getviewName, g);
1481
1482   di.Add ("XSetTransparency", "Doc Transparency [label1 label2 ...]\t: Set transparency for given label(s) or whole doc",
1483                    __FILE__, XSetTransparency, g);
1484
1485   di.Add ("XShowFaceBoundary",
1486           "Doc Label IsOn [R G B [LineWidth [LineStyle]]]:"
1487           "- turns on/off drawing of face boundaries and defines boundary line style",
1488           __FILE__, XShowFaceBoundary, g);
1489    di.Add ("XTestDoc", "XTestDoc shape", __FILE__, testDoc, g);
1490
1491   // Specialized commands
1492   XDEDRAW_Shapes::InitCommands ( di );
1493   XDEDRAW_Colors::InitCommands ( di );
1494   XDEDRAW_Layers::InitCommands ( di );
1495   XDEDRAW_Props::InitCommands ( di );
1496   XDEDRAW_GDTs::InitCommands ( di );
1497   XDEDRAW_Views::InitCommands(di);
1498   XDEDRAW_Notes::InitCommands(di);
1499   XDEDRAW_Common::InitCommands ( di );//moved from EXE
1500
1501 }
1502
1503
1504 //==============================================================================
1505 // XDEDRAW::Factory
1506 //==============================================================================
1507 void XDEDRAW::Factory(Draw_Interpretor& theDI)
1508 {
1509   XSDRAWIGES::InitSelect();
1510   XSDRAWIGES::InitToBRep(theDI);
1511   XSDRAWIGES::InitFromBRep(theDI);
1512
1513   XSDRAWSTEP::InitCommands(theDI);
1514
1515   XSDRAW::LoadDraw(theDI);
1516
1517   XDEDRAW::Init(theDI);
1518
1519 #ifdef OCCT_DEBUG
1520       theDI << "Draw Plugin : All TKXDEDRAW commands are loaded\n";
1521 #endif
1522 }
1523
1524 // Declare entry point PLUGINFACTORY
1525 DPLUGIN(XDEDRAW)