e0067f4ea487d999e4bac9bb30736fe6e463506c
[occt.git] / src / IGESCAFControl / IGESCAFControl_Reader.cxx
1 // Created on: 2000-08-16
2 // Created by: Andrey BETENEV
3 // Copyright (c) 2000-2012 OPEN CASCADE SAS
4 //
5 // The content of this file is subject to the Open CASCADE Technology Public
6 // License Version 6.5 (the "License"). You may not use the content of this file
7 // except in compliance with the License. Please obtain a copy of the License
8 // at http://www.opencascade.org and read it completely before using this file.
9 //
10 // The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 // main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
12 //
13 // The Original Code and all software distributed under the License is
14 // distributed on an "AS IS" basis, without warranty of any kind, and the
15 // Initial Developer hereby disclaims all such warranties, including without
16 // limitation, any warranties of merchantability, fitness for a particular
17 // purpose or non-infringement. Please see the License for the specific terms
18 // and conditions governing the rights and limitations under the License.
19
20
21 #include <TDF_Label.hxx>
22 #include <IGESCAFControl_Reader.ixx>
23 #include <TopoDS_Shape.hxx>
24 #include <XCAFDoc_ShapeTool.hxx>
25 #include <XSControl_TransferReader.hxx>
26 #include <XCAFDoc_ColorTool.hxx>
27 #include <IGESData_IGESEntity.hxx>
28 #include <Transfer_Binder.hxx>
29 #include <TransferBRep.hxx>
30 #include <Quantity_Color.hxx>
31 #include <IGESCAFControl.hxx>
32 #include <IGESGraph_Color.hxx>
33 #include <Interface_InterfaceModel.hxx>
34 #include <Transfer_TransientProcess.hxx>
35 #include <XCAFDoc_DocumentTool.hxx>
36 #include <TopoDS_Iterator.hxx>
37 #include <TopTools_MapOfShape.hxx>
38 #include <TCollection_ExtendedString.hxx>
39 #include <TDataStd_Name.hxx>
40 #include <XCAFDoc_LayerTool.hxx>
41 #include <IGESData_LevelListEntity.hxx>
42 #include <TCollection_HAsciiString.hxx>
43 #include <XCAFDoc_ShapeMapTool.hxx>
44 #include <IGESBasic_SubfigureDef.hxx>
45 #include <TopoDS_Compound.hxx>
46 #include <BRep_Builder.hxx>
47
48 //=======================================================================
49 //function : IGESCAFControl_Reader
50 //purpose  : 
51 //=======================================================================
52
53 IGESCAFControl_Reader::IGESCAFControl_Reader () :
54        myColorMode( Standard_True ),
55        myNameMode ( Standard_True ),
56        myLayerMode( Standard_True )
57 {
58 }
59
60
61 //=======================================================================
62 //function : IGESCAFControl_Reader
63 //purpose  : 
64 //=======================================================================
65
66 IGESCAFControl_Reader::IGESCAFControl_Reader (const Handle(XSControl_WorkSession)& WS,
67                                               const Standard_Boolean scratch)
68 {
69   SetWS (WS,scratch);
70   myColorMode = Standard_True;
71   myNameMode = Standard_True;
72   myLayerMode = Standard_True;
73 }
74
75
76 //=======================================================================
77 //function : Transfer
78 //purpose  : basic working method
79 //=======================================================================
80 static void checkColorRange (Standard_Real& theCol)
81 {
82   if ( theCol < 0. ) theCol = 0.;
83   if ( theCol > 100. ) theCol = 100.;
84 }
85
86 static inline Standard_Boolean IsComposite (const TopoDS_Shape& theShape)
87 {
88   if( theShape.ShapeType() == TopAbs_COMPOUND)
89   {
90     if(!theShape.Location().IsIdentity())
91       return Standard_True;
92     TopoDS_Iterator anIt( theShape, Standard_False, Standard_False );
93     
94     for (; anIt.More() ; anIt.Next()) 
95     {
96       if( IsComposite (anIt.Value()))
97         return Standard_True;
98     }
99
100   }
101   return Standard_False;
102 }
103
104 //=======================================================================
105 //function : AddCompositeShape
106 //purpose  : Recursively adds composite shapes (TopoDS_Compounds) into the XDE document.
107 //           If the compound does not contain nested compounds then adds it
108 //           as no-assembly (i.e. no individual labels for sub-shapes), as this
109 //           combination is often encountered in IGES (e.g. Group of Trimmed Surfaces).
110 //           If the compound does contain nested compounds then adds it as an
111 //           assembly.
112 //           The construction happens bottom-up, i.e. the most deep sub-shapes are added
113 //           first.
114 //           If theIsTop is False (in a recursive call) then sub-shapes are added without
115 //           a location. This is to ensure that no extra label in the XDE document is
116 //           created for an instance (as otherwise, XDE will consider it as a free
117 //           shape). Correct location and instance will be created when adding a parent
118 //           compound.
119 //           theMap is used to avoid visiting the same compound.
120 //=======================================================================
121 static void AddCompositeShape (const Handle(XCAFDoc_ShapeTool)& theSTool,
122                                const TopoDS_Shape& theShape,
123                                Standard_Boolean theConsiderLoc,
124                                TopTools_MapOfShape& theMap)
125 {
126   TopoDS_Shape aShape = theShape;
127   TopLoc_Location aLoc = theShape.Location();
128   if (!theConsiderLoc && !aLoc.IsIdentity())
129     aShape.Location( TopLoc_Location() );
130   if (!theMap.Add (aShape)) 
131     return;
132
133   TopoDS_Iterator anIt( theShape, Standard_False, Standard_False );
134   Standard_Boolean aHasCompositeSubShape = Standard_False;
135   TopoDS_Compound aSimpleShape;
136   BRep_Builder aB;
137   aB.MakeCompound( aSimpleShape);
138   TopoDS_Compound aCompShape;
139   aB.MakeCompound( aCompShape);
140   Standard_Integer nbSimple = 0;
141
142   for (; anIt.More(); anIt.Next()) {
143     const TopoDS_Shape& aSubShape = anIt.Value();
144     if (IsComposite (aSubShape)) {
145       aHasCompositeSubShape = Standard_True;
146       AddCompositeShape( theSTool, aSubShape,Standard_False ,theMap );
147       aB.Add( aCompShape, aSubShape);
148     }
149     else
150     {
151       aB.Add(aSimpleShape, aSubShape);
152       nbSimple++;
153     }
154   }
155   //case of hybrid shape
156   if( nbSimple && aHasCompositeSubShape)
157   {
158     theSTool->AddShape( aSimpleShape,  Standard_False, Standard_False  );
159     TopoDS_Compound aNewShape;
160     BRep_Builder aB;
161     aB.MakeCompound(aNewShape);
162     aB.Add(aNewShape, aSimpleShape);
163     aB.Add(aNewShape,aCompShape);
164     //if (!aLoc.IsIdentity())
165     //  aNewShape.Location(aLoc );
166     aNewShape.Orientation(theShape.Orientation());
167     theSTool->AddShape( aNewShape,  aHasCompositeSubShape, Standard_False  );
168   }
169   else
170     theSTool->AddShape( aShape,  aHasCompositeSubShape, Standard_False  );
171   return;
172 }
173
174 Standard_Boolean IGESCAFControl_Reader::Transfer (Handle(TDocStd_Document) &doc)
175 {
176   // read all shapes
177   Standard_Integer num;// = NbRootsForTransfer();
178   //if ( num <=0 ) return Standard_False;
179   //for ( Standard_Integer i=1; i <= num; i++ ) {
180   //  TransferOneRoot ( i );
181   //}
182   
183   TransferRoots(); // replaces the above
184   num = NbShapes();
185   if ( num <=0 ) return Standard_False;
186
187   // and insert them to the document
188   Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( doc->Main() );
189   if(STool.IsNull()) return Standard_False;
190   Standard_Integer i;
191   for(i=1; i<=num; i++) {
192     TopoDS_Shape sh = Shape ( i );
193     // ---- HERE -- to add check [ assembly / hybrid model ]
194     if( !IsComposite (sh))
195       STool->AddShape( sh, Standard_False );
196     else {
197       TopTools_MapOfShape aMap;
198       AddCompositeShape( STool, sh,Standard_True, aMap );
199       
200     }
201   }
202   
203   // added by skl 13.10.2003
204   Handle(Interface_InterfaceModel) Model = WS()->Model();
205   //WS()->TransferReader()->SetTransientProcess(TransientProcess());
206   Handle(XSControl_TransferReader) TR = WS()->TransferReader();
207   Handle(Transfer_TransientProcess) TP = TR->TransientProcess();
208   Standard_Boolean IsCTool = Standard_True;
209   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool(doc->Main());
210   if(CTool.IsNull()) IsCTool = Standard_False;
211   Standard_Boolean IsLTool = Standard_True;
212   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool(doc->Main());
213   if(LTool.IsNull()) IsLTool = Standard_False;
214
215   Standard_Integer nb = Model->NbEntities();
216   for(i=1; i<=nb; i++) {
217     Handle(IGESData_IGESEntity) ent = Handle(IGESData_IGESEntity)::DownCast ( Model->Value(i) );
218     if ( ent.IsNull() ) continue;
219     Handle(Transfer_Binder) binder = TP->Find ( ent );
220     if ( binder.IsNull() ) continue;
221     TopoDS_Shape S = TransferBRep::ShapeResult (binder);
222     if ( S.IsNull() ) continue;
223
224     Standard_Boolean IsColor = Standard_False;
225     Quantity_Color col;
226     if( GetColorMode() && IsCTool ) {
227       // read colors
228       if(ent->DefColor()==IGESData_DefValue ||
229          ent->DefColor()==IGESData_DefReference) {
230         // color is assigned
231         // decode color and set to document
232         IsColor = Standard_True;
233         if ( ent->DefColor() == IGESData_DefValue ) {
234           col = IGESCAFControl::DecodeColor ( ent->RankColor() );
235         }
236         else {
237           Handle(IGESGraph_Color) color = Handle(IGESGraph_Color)::DownCast ( ent->Color() );
238           if ( color.IsNull() ) {
239 #ifdef DEB
240             cout << "Error: Unrecognized type of color definition" << endl;
241 #endif
242             IsColor = Standard_False;
243           }
244           else {
245             Standard_Real r, g, b;
246             color->RGBIntensity ( r, g, b );
247             checkColorRange ( r );
248             checkColorRange ( g );
249             checkColorRange ( b );
250             col.SetValues ( 0.01*r, 0.01*g, 0.01*b, Quantity_TOC_RGB );
251           }
252         }
253       }
254     }
255
256     TDF_Label L;
257
258     Standard_Boolean IsFound;
259     if(IsColor) {
260       CTool->AddColor(col);
261       IsFound = STool->SearchUsingMap(S,L,Standard_False,Standard_True);
262     }
263     else {
264       IsFound = STool->SearchUsingMap(S,L,Standard_False,Standard_False);
265     }
266     if(!IsFound) {
267       if(IsColor) {
268         for (TopoDS_Iterator it(S); it.More(); it.Next()) {
269           if(STool->SearchUsingMap(it.Value(),L,Standard_False,Standard_True)) {
270             CTool->SetColor(L,col,XCAFDoc_ColorGen);
271             if( GetLayerMode() && IsLTool ) {
272               // read layers
273               // set a layers to the document
274               IGESData_DefList aDeflist = ent->DefLevel();
275               switch (aDeflist) {
276               case IGESData_DefOne : {
277                 TCollection_ExtendedString aLayerName ( ent->Level() );
278                 LTool->SetLayer( L, aLayerName );
279                 break;
280               }
281               case IGESData_DefSeveral : {
282                 Handle(IGESData_LevelListEntity) aLevelList = ent->LevelList();
283                 Standard_Integer layerNb = aLevelList->NbLevelNumbers();
284                 for ( Standard_Integer ilev = 1; ilev <= layerNb; ilev++ ) {
285                   TCollection_ExtendedString aLayerName ( aLevelList->LevelNumber(ilev) );
286                   LTool->SetLayer( L, aLayerName );
287                 }
288                 break;
289               }
290                 default : break;
291               }
292             }
293           }
294         }
295       }
296     }
297     else {
298       if(IsColor) {
299         CTool->SetColor(L,col,XCAFDoc_ColorGen);
300       }
301       if(GetNameMode()) {
302         // read names
303         if(ent->HasName()) {
304           TCollection_AsciiString string = ent->NameValue()->String();
305           string.LeftAdjust();
306           string.RightAdjust();
307           TCollection_ExtendedString str(string);
308           TDataStd_Name::Set(L,str);
309         }
310       }
311       if( GetLayerMode() && IsLTool ) {
312         // read layers
313         // set a layers to the document
314         IGESData_DefList aDeflist = ent->DefLevel();
315         switch (aDeflist) {
316         case IGESData_DefOne : {
317           TCollection_ExtendedString aLayerName ( ent->Level() );
318           LTool->SetLayer( L, aLayerName );
319           break;
320         }
321         case IGESData_DefSeveral : {
322           Handle(IGESData_LevelListEntity) aLevelList = ent->LevelList();
323           Standard_Integer layerNb = aLevelList->NbLevelNumbers();
324           for ( Standard_Integer ilev = 1; ilev <= layerNb; ilev++ ) {
325             TCollection_ExtendedString aLayerName ( aLevelList->LevelNumber(ilev) );
326             LTool->SetLayer( L, aLayerName );
327           }
328           break;
329         }
330           default : break;
331         }
332       }
333     }
334
335     //Checks that current entity is a subfigure
336     Handle(IGESBasic_SubfigureDef) aSubfigure = Handle(IGESBasic_SubfigureDef)::DownCast (ent);
337     if (GetNameMode() && !aSubfigure.IsNull() && STool->Search (S, L, Standard_True, Standard_True))
338     {
339       //In this case we attach subfigure name to the label, instead of default "COMPOUND"
340       Handle(TCollection_HAsciiString) aName = aSubfigure->Name();
341       aName->LeftAdjust();
342       aName->RightAdjust();
343       TCollection_ExtendedString anExtStrName (aName->ToCString());
344       TDataStd_Name::Set (L, anExtStrName);
345     }
346
347   }
348
349   CTool->ReverseChainsOfTreeNodes();
350
351   // end added by skl 13.10.2003
352
353   // read colors
354 //  if ( GetColorMode() )
355 //    ReadColors ( doc );
356   
357   // read names
358 //  if ( GetNameMode() )
359 //    ReadNames ( doc );
360   
361   // read layers
362 //  if ( GetLayerMode() )
363 //    ReadLayers ( doc );
364     
365
366   return Standard_True;
367 }
368   
369
370 //=======================================================================
371 //function : Perform
372 //purpose  : 
373 //=======================================================================
374
375 Standard_Boolean IGESCAFControl_Reader::Perform (const Standard_CString filename,
376                                                  Handle(TDocStd_Document) &doc)
377 {
378   if ( ReadFile ( filename ) != IFSelect_RetDone ) return Standard_False;
379   return Transfer ( doc );
380 }
381   
382
383 //=======================================================================
384 //function : Perform
385 //purpose  : 
386 //=======================================================================
387
388 Standard_Boolean IGESCAFControl_Reader::Perform (const TCollection_AsciiString &filename,
389                                                  Handle(TDocStd_Document) &doc)
390 {
391   if ( ReadFile ( filename.ToCString() ) != IFSelect_RetDone ) return Standard_False;
392   return Transfer ( doc );
393 }
394
395
396 //=======================================================================
397 //function : ReadColors
398 //purpose  : 
399 //=======================================================================
400
401 Standard_Boolean IGESCAFControl_Reader::ReadColors (Handle(TDocStd_Document)& Doc) const
402 {
403
404   Handle(Interface_InterfaceModel) Model = WS()->Model();
405
406   //WS()->TransferReader()->SetTransientProcess(TransientProcess()); // !!!!!!!!!
407   
408   Handle(XSControl_TransferReader) TR = WS()->TransferReader();
409   Handle(Transfer_TransientProcess) TP = /*TransientProcess();*/TR->TransientProcess();
410   Handle(XCAFDoc_ColorTool) CTool = XCAFDoc_DocumentTool::ColorTool( Doc->Main() );
411 /*
412   Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( Doc->Main() );
413   if ( STool.IsNull() ) return Standard_False;
414   Handle(XCAFDoc_ShapeMapTool) SMTool = XCAFDoc_ShapeMapTool::Set(STool->Label());
415   SMTool->ComputeMaps();
416
417   Standard_Integer nb = Model->NbEntities();
418   for (Standard_Integer i = 1; i <= nb; i ++) {
419     Handle(IGESData_IGESEntity) ent = Handle(IGESData_IGESEntity)::DownCast ( Model->Value(i) );
420     if ( ent.IsNull() ) continue;
421     if ( ent->DefColor() != IGESData_DefValue && 
422          ent->DefColor() != IGESData_DefReference ) continue; // no color assigned
423
424     // find tartet shape
425     Handle(Transfer_Binder) binder = TP->Find ( ent );
426     if ( binder.IsNull() ) continue;
427     TopoDS_Shape S = TransferBRep::ShapeResult (binder);
428     if ( S.IsNull() ) continue;
429
430     // decode color and set to document
431     Quantity_Color col;
432     if ( ent->DefColor() == IGESData_DefValue ) {
433       col = IGESCAFControl::DecodeColor ( ent->RankColor() );
434     }
435     else {
436       Handle(IGESGraph_Color) color = Handle(IGESGraph_Color)::DownCast ( ent->Color() );
437       if ( color.IsNull() ) {
438         cout << "Error: Unrecognized type of color definition" << endl;
439         continue;
440       }
441       
442       Standard_Real r, g, b;
443       color->RGBIntensity ( r, g, b );
444       col.SetValues ( 0.01*r, 0.01*g, 0.01*b, Quantity_TOC_RGB );
445     }
446     
447     TDF_Label L;
448     cout<<"i="<<i<<endl;
449     if(SMTool->Search(S,L)) {
450       cout<<"      find Instance"<<endl;
451       CTool->SetColor(L, col, XCAFDoc_ColorGen);
452     }
453     if(L.IsNull()) {
454       cout<<"L1 is Null"<<endl;
455       if(STool->Search(S,L,Standard_False,Standard_False,Standard_True)) {
456         cout<<"     add new label1 :"<<L<<endl;
457         CTool->SetColor(L, col, XCAFDoc_ColorGen);
458       }
459     }
460     if(L.IsNull()) {
461     //else {
462       cout<<"      try to find splitting"<<endl;
463       // may be S is compound of shapes resulting from splitting
464       for (TopoDS_Iterator it(S); it.More(); it.Next()) {
465         //TDF_Label L1;
466         if(!SMTool->Search(it.Value(),L)) continue; //break-?
467         cout<<"      find splitting"<<endl;
468         CTool->SetColor(L, col, XCAFDoc_ColorGen);
469       }
470       if(L.IsNull()) {
471         for (TopoDS_Iterator it(S); it.More(); it.Next()) {
472           if(STool->Search(S,L,Standard_False,Standard_False,Standard_True)) {
473             cout<<"     add new label2 :"<<L<<endl;
474             CTool->SetColor(L, col, XCAFDoc_ColorGen);
475           }
476         }
477       }
478     }
479 //    cout<<"L.Dump():"<<L<<endl;
480 //    if(L.IsNull()) {
481 //      cout<<"L2 is Null"<<endl;
482 //      if(STool->Search(S,L,Standard_False,Standard_False,Standard_True)) {
483 //        cout<<"     add new label2 :"<<L<<endl;
484 //      CTool->SetColor(L, col, XCAFDoc_ColorGen);
485 //      }
486 //    }
487   }
488 */  
489   return Standard_True;
490 }
491
492 //=======================================================================
493 //function : ReadNames
494 //purpose  : 
495 //=======================================================================
496
497 Standard_Boolean IGESCAFControl_Reader::ReadNames (Handle(TDocStd_Document)& /*Doc*/) const
498 {
499   Handle(Interface_InterfaceModel) Model = WS()->Model();
500
501   //WS()->TransferReader()->SetTransientProcess(TransientProcess()); // !!!!!!!!!
502   
503   Handle(XSControl_TransferReader) TR = WS()->TransferReader();
504   Handle(Transfer_TransientProcess) TP = /*TransientProcess();*/TR->TransientProcess();
505 /*
506   Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( Doc->Main() );
507   if ( STool.IsNull() ) return Standard_False;
508   Handle(XCAFDoc_ShapeMapTool) SMTool = XCAFDoc_ShapeMapTool::Set(STool->Label());
509   SMTool->ComputeMaps();
510
511   Standard_Integer nb = Model->NbEntities();
512   for (Standard_Integer i = 1; i <= nb; i ++) {
513     Handle(IGESData_IGESEntity) ent = Handle(IGESData_IGESEntity)::DownCast ( Model->Value(i) );
514     if ( ent.IsNull() || ! ent->HasName() ) continue; //not only Entity Label (f.18) but Name Property also
515
516     // find target shape
517     Handle(Transfer_Binder) binder = TP->Find ( ent );
518     if ( binder.IsNull() ) continue;
519     TopoDS_Shape S = TransferBRep::ShapeResult (binder);
520     if ( S.IsNull() ) continue;
521
522     TDF_Label L;
523     //if ( ! STool->Search ( S, L, Standard_True, Standard_True, Standard_False ) ) continue;
524     if ( ! SMTool->Search ( S, L, Standard_True, Standard_True) ) continue;
525     
526     // set a name to the document
527     TCollection_AsciiString string = ent->NameValue()->String();
528     string.LeftAdjust();
529     string.RightAdjust();
530     TCollection_ExtendedString str ( string );
531     TDataStd_Name::Set ( L, str );
532   }
533 */
534   return Standard_True;
535 }
536
537 //=======================================================================
538 //function : ReadLayers
539 //purpose  : 
540 //=======================================================================
541
542 Standard_Boolean IGESCAFControl_Reader::ReadLayers (Handle(TDocStd_Document)& /*Doc*/) const
543 {
544   Handle(Interface_InterfaceModel) Model = WS()->Model();
545
546   //WS()->TransferReader()->SetTransientProcess(TransientProcess()); // !!!!!!!!!
547   
548   Handle(XSControl_TransferReader) TR = WS()->TransferReader();
549   Handle(Transfer_TransientProcess) TP = /*TransientProcess();*/TR->TransientProcess();
550 /*
551   Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( Doc->Main() );
552   if ( STool.IsNull() ) return Standard_False;
553   Handle(XCAFDoc_ShapeMapTool) SMTool = XCAFDoc_ShapeMapTool::Set(STool->Label());
554   SMTool->ComputeMaps();
555
556   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool( Doc->Main() );
557   if ( LTool.IsNull() ) return Standard_False;
558
559   Standard_Integer nb = Model->NbEntities();
560   for (Standard_Integer i = 1; i <= nb; i ++) {
561     Handle(IGESData_IGESEntity) ent = Handle(IGESData_IGESEntity)::DownCast ( Model->Value(i) );
562
563     if ( ent.IsNull() ) continue;
564
565     // find target shape
566     Handle(Transfer_Binder) binder = TP->Find ( ent );
567     if ( binder.IsNull() ) continue;
568     TopoDS_Shape S = TransferBRep::ShapeResult (binder);
569     if ( S.IsNull() ) continue;
570
571     TDF_Label L;
572     //if ( ! STool->Search ( S, L, Standard_True, Standard_True, Standard_False ) ) continue;
573     if( !SMTool->Search(S, L, Standard_True, Standard_True) ) continue;
574     
575     // set a layers to the document
576     IGESData_DefList aDeflist = ent->DefLevel();
577     
578     switch (aDeflist) {
579     case IGESData_DefOne : {
580       TCollection_ExtendedString aLayerName ( ent->Level() );
581       LTool->SetLayer( L, aLayerName );
582 #ifdef DEB
583 //      cout << "Added layer " << aLayerName << endl;
584 #endif
585       break;
586     }
587     case IGESData_DefSeveral : {
588       Handle(IGESData_LevelListEntity) aLevelList = ent->LevelList();
589       Standard_Integer layerNb = aLevelList->NbLevelNumbers();
590       for ( Standard_Integer ilev = 1; ilev <= layerNb; ilev++ ) {
591         TCollection_ExtendedString aLayerName ( aLevelList->LevelNumber(ilev) );
592         LTool->SetLayer( L, aLayerName );
593 #ifdef DEB
594 //      cout << "Added layer " << aLayerName << endl;
595 #endif
596       }
597       break;
598     }
599       default : break;
600     }
601           
602   }
603 */
604   return Standard_True;
605 }
606
607
608 //=======================================================================
609 //function : SetColorMode
610 //purpose  : 
611 //=======================================================================
612
613 void IGESCAFControl_Reader::SetColorMode (const Standard_Boolean colormode)
614 {
615   myColorMode = colormode;
616 }
617
618 //=======================================================================
619 //function : GetColorMode
620 //purpose  : 
621 //=======================================================================
622
623 Standard_Boolean IGESCAFControl_Reader::GetColorMode () const
624 {
625   return myColorMode;
626 }
627
628 //=======================================================================
629 //function : SetNameMode
630 //purpose  : 
631 //=======================================================================
632
633 void IGESCAFControl_Reader::SetNameMode (const Standard_Boolean namemode)
634 {
635   myNameMode = namemode;
636 }
637
638 //=======================================================================
639 //function : GetNameMode
640 //purpose  : 
641 //=======================================================================
642
643 Standard_Boolean IGESCAFControl_Reader::GetNameMode () const
644 {
645   return myNameMode;
646 }
647
648 //=======================================================================
649 //function : SetLayerMode
650 //purpose  : 
651 //=======================================================================
652
653 void IGESCAFControl_Reader::SetLayerMode (const Standard_Boolean layermode)
654 {
655   myLayerMode = layermode;
656 }
657
658 //=======================================================================
659 //function : GetLayerMode
660 //purpose  : 
661 //=======================================================================
662
663 Standard_Boolean IGESCAFControl_Reader::GetLayerMode () const
664 {
665   return myLayerMode;
666 }
667