0031668: Visualization - WebGL sample doesn't work on Emscripten 1.39
[occt.git] / src / IGESCAFControl / IGESCAFControl_Writer.cxx
1 // Created on: 2000-08-17
2 // Created by: Andrey BETENEV
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 <IGESCAFControl.hxx>
17 #include <IGESCAFControl_Writer.hxx>
18 #include <IGESData_IGESEntity.hxx>
19 #include <IGESData_IGESModel.hxx>
20 #include <IGESData_NameEntity.hxx>
21 #include <IGESGraph_Color.hxx>
22 #include <IGESGraph_DefinitionLevel.hxx>
23 #include <IGESSolid_Face.hxx>
24 #include <IGESBasic_Name.hxx>
25 #include <NCollection_DataMap.hxx>
26 #include <Standard_Transient.hxx>
27 #include <TCollection_AsciiString.hxx>
28 #include <TCollection_HAsciiString.hxx>
29 #include <TCollection_HExtendedString.hxx>
30 #include <TColStd_HSequenceOfExtendedString.hxx>
31 #include <TDataStd_Name.hxx>
32 #include <TDF_ChildIterator.hxx>
33 #include <TDF_Label.hxx>
34 #include <TDF_LabelSequence.hxx>
35 #include <TDocStd_Document.hxx>
36 #include <TopAbs.hxx>
37 #include <TopExp_Explorer.hxx>
38 #include <TopoDS.hxx>
39 #include <TopoDS_Face.hxx>
40 #include <TopoDS_Iterator.hxx>
41 #include <TopoDS_Shape.hxx>
42 #include <TopTools_SequenceOfShape.hxx>
43 #include <Transfer_FinderProcess.hxx>
44 #include <Transfer_TransientListBinder.hxx>
45 #include <TransferBRep.hxx>
46 #include <TransferBRep_ShapeMapper.hxx>
47 #include <XCAFDoc_ColorTool.hxx>
48 #include <XCAFDoc_DocumentTool.hxx>
49 #include <XCAFDoc_LayerTool.hxx>
50 #include <XCAFDoc_ShapeTool.hxx>
51 #include <XCAFPrs.hxx>
52 #include <XCAFPrs_Style.hxx>
53 #include <XSControl_WorkSession.hxx>
54
55 namespace
56 {
57   typedef NCollection_DataMap<TopoDS_Shape, TCollection_ExtendedString> DataMapOfShapeNames;
58
59   void  CollectShapeNames (const TDF_Label& theLabel,
60                            const TopLoc_Location& theLocation,
61                            const Handle(TDataStd_Name)& thePrevName,
62                            DataMapOfShapeNames& theMapOfShapeNames)
63   {
64     Standard_Boolean hasReferredShape = Standard_False;
65     Standard_Boolean hasComponents    = Standard_False;
66     TDF_Label aReferredLabel;
67
68     Handle(TDataStd_Name) aName;
69     theLabel.FindAttribute (TDataStd_Name::GetID(), aName);
70
71     if ( XCAFDoc_ShapeTool::GetReferredShape ( theLabel, aReferredLabel ) )
72     {
73       TopLoc_Location aSubLocation = theLocation.Multiplied ( XCAFDoc_ShapeTool::GetLocation ( theLabel ) );
74       CollectShapeNames (aReferredLabel, aSubLocation, aName, theMapOfShapeNames);
75       hasReferredShape = Standard_True;
76     }
77
78     TDF_LabelSequence aSeq;
79     if (XCAFDoc_ShapeTool::GetComponents (theLabel, aSeq))
80     {
81       for (Standard_Integer anIter = 1; anIter <= aSeq.Length(); anIter++)
82       {
83         CollectShapeNames (aSeq.Value (anIter), theLocation, aName, theMapOfShapeNames );
84       }
85       hasComponents = Standard_True;
86     }
87
88     aSeq.Clear();
89     if (XCAFDoc_ShapeTool::GetSubShapes (theLabel, aSeq))
90     {
91       for (Standard_Integer anIter = 1; anIter <= aSeq.Length(); anIter++)
92       {
93         TopoDS_Shape aShape;
94         if (!XCAFDoc_ShapeTool::GetShape (aSeq.Value (anIter), aShape)) continue;
95         if (!aSeq.Value (anIter).FindAttribute (TDataStd_Name::GetID(), aName)) continue;
96         theMapOfShapeNames.Bind (aShape, aName->Get());
97       }
98     }
99
100     if (!hasReferredShape && !hasComponents)
101     {
102       TopoDS_Shape aShape;
103       if (!XCAFDoc_ShapeTool::GetShape (theLabel, aShape)) return;
104       aShape.Move (theLocation);
105       theMapOfShapeNames.Bind (aShape, thePrevName->Get());
106     }
107   }
108 }
109
110 //=======================================================================
111 //function : IGESCAFControl_Writer
112 //purpose  : 
113 //=======================================================================
114
115 IGESCAFControl_Writer::IGESCAFControl_Writer () :
116        myColorMode( Standard_True ),
117        myNameMode ( Standard_True ),
118        myLayerMode( Standard_True )
119 {
120 }
121
122 //=======================================================================
123 //function : IGESCAFControl_Writer
124 //purpose  : 
125 //=======================================================================
126
127 IGESCAFControl_Writer::IGESCAFControl_Writer (const Handle(XSControl_WorkSession)& WS,
128                                               const Standard_Boolean /*scratch*/ )
129 {
130   // this code does things in a wrong way, it should be vice-versa
131   WS->SetModel ( Model() );
132   WS->SetMapWriter ( TransferProcess() );
133   myColorMode = Standard_True;
134   myNameMode = Standard_True;
135   myLayerMode = Standard_True;
136   
137 //  SetWS (WS,scratch); // this should be the only required command here
138 }
139
140 //=======================================================================
141 //function : Transfer
142 //purpose  : 
143 //=======================================================================
144
145 Standard_Boolean IGESCAFControl_Writer::Transfer (const Handle(TDocStd_Document) &doc)
146 {  
147   // translate free top-level shapes of the DECAF document
148   Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( doc->Main() );
149   if ( STool.IsNull() ) return Standard_False;
150
151   TDF_LabelSequence labels;
152   STool->GetFreeShapes ( labels );
153   return Transfer (labels);
154 }  
155
156 //=======================================================================
157 //function : Transfer
158 //purpose  : 
159 //=======================================================================
160
161 Standard_Boolean IGESCAFControl_Writer::Transfer (const TDF_Label& label)
162 {
163   TDF_LabelSequence labels;
164   labels.Append( label );
165   return Transfer( labels );
166 }
167
168 //=======================================================================
169 //function : Transfer
170 //purpose  : 
171 //=======================================================================
172
173 Standard_Boolean IGESCAFControl_Writer::Transfer (const TDF_LabelSequence& labels)
174 {  
175   if ( labels.Length() <=0 ) return Standard_False;
176   for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
177     TopoDS_Shape shape = XCAFDoc_ShapeTool::GetShape ( labels.Value(i) );
178     if ( ! shape.IsNull() ) 
179       AddShape ( shape );
180 //      IGESControl_Writer::Transfer ( shape );
181   }
182   
183   // write colors
184   if ( GetColorMode() )
185     WriteAttributes ( labels );
186
187   // write layers
188   if ( GetLayerMode() )
189     WriteLayers ( labels );
190   
191   // write names
192   if ( GetNameMode() )
193     WriteNames( labels );
194   
195   // refresh graph
196 //  WS()->ComputeGraph ( Standard_True );
197   ComputeModel();
198   
199   return Standard_True;
200 }
201
202 //=======================================================================
203 //function : Perform
204 //purpose  : 
205 //=======================================================================
206
207 Standard_Boolean IGESCAFControl_Writer::Perform (const Handle(TDocStd_Document) &doc,
208                                                  const Standard_CString filename)
209 {
210   if ( ! Transfer ( doc ) ) return Standard_False;
211   return Write ( filename ) == IFSelect_RetDone;
212 }
213   
214 //=======================================================================
215 //function : Perform
216 //purpose  : 
217 //=======================================================================
218
219 Standard_Boolean IGESCAFControl_Writer::Perform (const Handle(TDocStd_Document) &doc,
220                                                  const TCollection_AsciiString &filename)
221 {
222   if ( ! Transfer ( doc ) ) return Standard_False;
223   return Write ( filename.ToCString() ) == IFSelect_RetDone;
224 }
225   
226 //=======================================================================
227 //function : WriteAttributes
228 //purpose  : 
229 //=======================================================================
230
231 Standard_Boolean IGESCAFControl_Writer::WriteAttributes (const TDF_LabelSequence& labels) 
232 {
233   // Iterate on labels
234   if ( labels.Length() <=0 ) return Standard_False;
235   for ( Standard_Integer i=1; i <= labels.Length(); i++ ) {
236     TDF_Label L = labels.Value(i);
237
238     // collect color settings
239     XCAFPrs_IndexedDataMapOfShapeStyle settings;
240     TopLoc_Location loc;
241     XCAFPrs::CollectStyleSettings ( L, loc, settings );
242     if ( settings.Extent() <=0 ) continue;
243     
244     // get a target shape and try to find corresponding context
245     // (all the colors set under that label will be put into that context)
246     TopoDS_Shape S;
247     if ( ! XCAFDoc_ShapeTool::GetShape ( L, S ) ) continue;
248         
249     // iterate on subshapes and create IGES styles 
250     XCAFPrs_DataMapOfStyleTransient colors;
251     TopTools_MapOfShape Map;
252     const XCAFPrs_Style inherit;
253     MakeColors ( S, settings, colors, Map, inherit );
254   }
255   
256   return Standard_True;
257 }
258
259 //=======================================================================
260 //function : MakeColors
261 //purpose  : 
262 //=======================================================================
263
264 void IGESCAFControl_Writer::MakeColors (const TopoDS_Shape &S, 
265                                         const XCAFPrs_IndexedDataMapOfShapeStyle &settings,
266                                         XCAFPrs_DataMapOfStyleTransient &colors,
267                                         TopTools_MapOfShape &Map,
268                                         const XCAFPrs_Style &inherit) 
269 {
270   // skip already processed shapes
271   if ( ! Map.Add ( S ) ) return;
272   
273   // check if shape has its own style (or inherits from ancestor)
274   XCAFPrs_Style style = inherit;
275   if ( settings.Contains(S) ) {
276     XCAFPrs_Style own = settings.FindFromKey(S);
277     if ( own.IsSetColorCurv() ) style.SetColorCurv ( own.GetColorCurv() );
278     if ( own.IsSetColorSurf() ) style.SetColorSurf ( own.GetColorSurf() );
279     style.SetMaterial (own.Material());
280   }
281   
282   // analyze whether current entity should get a color 
283   Standard_Boolean hasColor = Standard_False;
284   Quantity_Color col;
285   if ( S.ShapeType() == TopAbs_FACE  || S.ShapeType() == TopAbs_SOLID) {
286     if ( style.IsSetColorSurf() ) {
287       hasColor = Standard_True;
288       col = style.GetColorSurf();
289     }
290     else if (!style.Material().IsNull()
291           && !style.Material()->IsEmpty())
292     {
293       hasColor = Standard_True;
294       col = style.Material()->BaseColor().GetRGB();
295     }
296   }
297   else if ( S.ShapeType() == TopAbs_EDGE || S.ShapeType() == TopAbs_WIRE ) {
298     if ( style.IsSetColorCurv() ) {
299       hasColor = Standard_True;
300       col = style.GetColorCurv();
301     }
302   }
303   
304   // if color has to be assigned, try to do this
305   if ( hasColor ) {
306     Handle(IGESGraph_Color) colent;
307     Standard_Integer rank = IGESCAFControl::EncodeColor ( col );
308     if ( ! rank ) {
309       XCAFPrs_Style c; // style used as key in the map
310       c.SetColorSurf ( col );
311       if ( colors.IsBound ( c ) ) {
312         colent = Handle(IGESGraph_Color)::DownCast ( colors.Find(c) );
313       }
314       else {
315         Handle(TCollection_HAsciiString) str = 
316           new TCollection_HAsciiString ( col.StringName ( col.Name() ) );
317         colent = new IGESGraph_Color;
318         NCollection_Vec3<Standard_Real> aColor_sRGB;
319         col.Values (aColor_sRGB.r(), aColor_sRGB.g(), aColor_sRGB.b(), Quantity_TOC_sRGB);
320         colent->Init ( aColor_sRGB.r() * 100., aColor_sRGB.g() * 100., aColor_sRGB.b() * 100., str );
321         AddEntity ( colent );
322         colors.Bind ( c, colent );
323       }
324     }
325     Handle(Transfer_FinderProcess) FP = TransferProcess();
326     Handle(IGESData_IGESEntity) ent;
327     Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, S );
328     if ( FP->FindTypedTransient ( mapper, STANDARD_TYPE(IGESData_IGESEntity), ent ) ) {
329       ent->InitColor ( colent, rank );
330       Handle(IGESSolid_Face) ent_f = Handle(IGESSolid_Face)::DownCast(ent);
331       if (!ent_f.IsNull())
332       {
333         if (!ent_f->Surface().IsNull())
334           ent_f->Surface()->InitColor ( colent, rank );
335       }
336     }
337     else {
338       // may be S was splited during shape process
339       Handle(Transfer_Binder) bnd = FP->Find ( mapper );
340       if ( ! bnd.IsNull() ) {
341         Handle(Transfer_TransientListBinder) TransientListBinder =
342           //Handle(Transfer_TransientListBinder)::DownCast( bnd->Next(Standard_True) );
343           Handle(Transfer_TransientListBinder)::DownCast( bnd );
344         Standard_Integer i=0, nb=0;
345         if (! TransientListBinder.IsNull() ) {
346           nb = TransientListBinder->NbTransients();
347           for (i=1; i<=nb; i++) {
348             Handle(Standard_Transient) t = TransientListBinder->Transient(i);
349             ent = Handle(IGESData_IGESEntity)::DownCast(t);
350             if (!ent.IsNull())
351       {
352         ent->InitColor ( colent, rank );
353         Handle(IGESSolid_Face) ent_f = Handle(IGESSolid_Face)::DownCast(ent);
354         if (!ent_f.IsNull())
355         {
356           if (!ent_f->Surface().IsNull())
357             ent_f->Surface()->InitColor ( colent, rank );
358         }
359       }
360           }
361         }
362         /* // alternative: consider recursive mapping S -> compound -> entities
363         else {
364           TopoDS_Shape comp = TransferBRep::ShapeResult(bnd);
365           if ( ! comp.IsNull() && comp.ShapeType() < S.ShapeType() ) 
366             for ( TopoDS_Iterator it(comp); it.More(); it.Next() ) {
367               MakeColors ( it.Value(), settings, colors, Map, style );
368             }
369         }
370         */
371       }
372     }
373   }
374
375   // iterate on subshapes (except vertices :)
376   if ( S.ShapeType() == TopAbs_EDGE ) return;
377   for ( TopoDS_Iterator it(S); it.More(); it.Next() ) {
378     MakeColors ( it.Value(), settings, colors, Map, style );
379   }
380 }
381
382
383 static void AttachLayer (const Handle(Transfer_FinderProcess) &FP,
384                          const Handle(XCAFDoc_LayerTool)& LTool,
385                          const TopoDS_Shape& aSh,
386                          const Standard_Integer localIntName)
387 {
388
389   TopTools_SequenceOfShape shseq;
390   if ( aSh.ShapeType() == TopAbs_COMPOUND ) {
391     TopoDS_Iterator aShIt(aSh);
392     for ( ; aShIt.More(); aShIt.Next() ) {
393       TopoDS_Shape newSh = aShIt.Value();
394       Handle(TColStd_HSequenceOfExtendedString) shLayers = new TColStd_HSequenceOfExtendedString;
395       if (! LTool->GetLayers( newSh, shLayers) || newSh.ShapeType() == TopAbs_COMPOUND )
396         AttachLayer(FP, LTool, newSh, localIntName);
397     }
398     return;
399   } else if ( aSh.ShapeType() == TopAbs_SOLID || aSh.ShapeType() == TopAbs_SHELL ) {
400     for (TopExp_Explorer exp(aSh,TopAbs_FACE) ; exp.More(); exp.Next()) {
401       TopoDS_Face entSh = TopoDS::Face (exp.Current());
402       shseq.Append(entSh);
403     }
404   } else {
405     shseq.Append(aSh);
406   }
407   
408   for (Standard_Integer i = 1; i <= shseq.Length(); i++ ) {
409     TopoDS_Shape localShape = shseq.Value(i);
410     Handle(IGESData_IGESEntity) Igesent;
411     Handle(TransferBRep_ShapeMapper) mapper = TransferBRep::ShapeMapper ( FP, localShape );
412     if ( FP->FindTypedTransient ( mapper, STANDARD_TYPE(IGESData_IGESEntity), Igesent ) ) {
413       Igesent->InitLevel( 0, localIntName );
414     }
415 #ifdef OCCT_DEBUG
416     else std::cout << "Warning: Can't find entity for shape in mapper" << std::endl;
417 #endif
418   }
419 }
420
421
422 static void MakeLayers (const Handle(Transfer_FinderProcess) &FP, 
423                         const Handle(XCAFDoc_ShapeTool)& STool,
424                         const Handle(XCAFDoc_LayerTool)& LTool,
425                         const TDF_LabelSequence& aShapeLabels,
426                         const Standard_Integer localIntName) 
427 {
428   for ( Standard_Integer j = 1; j <= aShapeLabels.Length(); j++ ) {
429     TDF_Label aShapeLabel = aShapeLabels.Value(j);
430     TopoDS_Shape aSh;
431     if ( ! STool->GetShape ( aShapeLabel, aSh ) ) continue;
432     AttachLayer (FP, LTool, aSh, localIntName);
433   }
434 }
435
436
437
438 //=======================================================================
439 //function : WriteLayers
440 //purpose  : 
441 //=======================================================================
442
443 Standard_Boolean IGESCAFControl_Writer::WriteLayers (const TDF_LabelSequence& labels) 
444 {
445   if ( labels.Length() <=0 ) return Standard_False;
446   Handle(XCAFDoc_ShapeTool) STool = XCAFDoc_DocumentTool::ShapeTool( labels(1) );
447   if ( STool.IsNull() ) return Standard_False;
448   Handle(XCAFDoc_LayerTool) LTool = XCAFDoc_DocumentTool::LayerTool( labels(1) );
449   if ( LTool.IsNull() ) return Standard_False;
450   
451   Standard_Integer globalIntName = 0;
452   TDF_LabelSequence aLayerLabels;
453   LTool->GetLayerLabels( aLayerLabels );
454   
455   Handle(Transfer_FinderProcess) FP = TransferProcess();
456   for ( Standard_Integer i = 1; i <= aLayerLabels.Length(); i++ ){
457     TDF_Label aOneLayerL = aLayerLabels.Value(i);
458     if ( aOneLayerL.IsNull() ) continue;
459     TCollection_ExtendedString localName;
460     LTool->GetLayer(aOneLayerL, localName);
461     Standard_Integer localIntName = 0;
462     TCollection_AsciiString asciiName(localName,'?');
463     if (asciiName.IsIntegerValue() ) {
464       localIntName = asciiName.IntegerValue();
465       if (globalIntName < localIntName) globalIntName = localIntName;
466       
467       TDF_LabelSequence aShapeLabels;
468       LTool->GetShapesOfLayer( aOneLayerL, aShapeLabels );
469       if ( aShapeLabels.Length() <= 0 ) continue;
470       MakeLayers(FP, STool, LTool, aShapeLabels, localIntName);
471     }
472   }
473   
474   for ( Standard_Integer i1 = 1; i1 <= aLayerLabels.Length(); i1++ ) {
475     TDF_Label aOneLayerL = aLayerLabels.Value(i1);
476     if ( aOneLayerL.IsNull() ) continue;
477     TCollection_ExtendedString localName; 
478     LTool->GetLayer(aOneLayerL, localName);
479     Standard_Integer localIntName = 0;
480     TCollection_AsciiString asciiName(localName,'?');
481     if (asciiName.IsIntegerValue() ) continue;
482     TDF_LabelSequence aShapeLabels;
483     LTool->GetShapesOfLayer( aOneLayerL, aShapeLabels );
484     if ( aShapeLabels.Length() <= 0 ) continue;
485     localIntName = ++globalIntName;
486     MakeLayers (FP, STool, LTool, aShapeLabels, localIntName);
487   }
488   
489   return Standard_True;
490 }
491
492
493 //=======================================================================
494 //function : WriteNames
495 //purpose  : 
496 //=======================================================================
497
498 Standard_Boolean IGESCAFControl_Writer::WriteNames (const TDF_LabelSequence& theLabels)
499 {
500   if (theLabels.Length() <= 0) return Standard_False;
501
502   DataMapOfShapeNames aMapOfShapeNames;
503
504   for (Standard_Integer anIter = 1; anIter <= theLabels.Length(); anIter++ )
505   {
506     TDF_Label aLabel = theLabels.Value (anIter);
507
508     TopoDS_Shape aShape;
509     Handle(TDataStd_Name) aName;
510     if (!XCAFDoc_ShapeTool::GetShape (aLabel, aShape)) continue;
511     if (!aLabel.FindAttribute (TDataStd_Name::GetID(), aName)) continue;
512
513     aMapOfShapeNames.Bind (aShape, aName->Get());
514
515     // Collect names for subshapes
516     TopLoc_Location aLocation;
517     CollectShapeNames (aLabel, aLocation, aName, aMapOfShapeNames);
518   }
519
520   for (DataMapOfShapeNames::Iterator anIter (aMapOfShapeNames);
521        anIter.More(); anIter.Next())
522   {
523     const TopoDS_Shape& aShape = anIter.Key();
524     const TCollection_ExtendedString& aName = anIter.Value();
525
526     Handle(Transfer_FinderProcess) aFinderProcess = TransferProcess();
527     Handle(IGESData_IGESEntity) anIGESEntity;
528     Handle(TransferBRep_ShapeMapper) aShapeMapper = TransferBRep::ShapeMapper (aFinderProcess, aShape);
529
530     if (aFinderProcess->FindTypedTransient (aShapeMapper, STANDARD_TYPE(IGESData_IGESEntity), anIGESEntity))
531     {
532       Handle(TCollection_HAsciiString) anAsciiName = new TCollection_HAsciiString ("        ");
533       Standard_Integer aNameLength = 8 - aName.Length();
534       if (aNameLength < 0) aNameLength = 0;
535       for (Standard_Integer aCharPos = 1; aNameLength < 8; aCharPos++, aNameLength++)
536       {
537         anAsciiName->SetValue (aNameLength+1, IsAnAscii (aName.Value (aCharPos)) ? (Standard_Character )aName.Value (aCharPos) : '?');
538       }
539       anIGESEntity->SetLabel (anAsciiName);
540
541       // Set long IGES name using 406 form 15 entity
542       Handle(IGESBasic_Name) aLongNameEntity = new IGESBasic_Name;
543       Handle(TCollection_HExtendedString) aTmpStr = new TCollection_HExtendedString(aName);
544       aLongNameEntity->Init(1, new TCollection_HAsciiString(aTmpStr, '_'));
545
546       anIGESEntity->AddProperty(aLongNameEntity);
547       AddEntity(aLongNameEntity);
548     }
549   }
550
551   return Standard_True;
552 }
553
554 //=======================================================================
555 //function : SetColorMode
556 //purpose  : 
557 //=======================================================================
558
559 void IGESCAFControl_Writer::SetColorMode (const Standard_Boolean colormode)
560 {
561   myColorMode = colormode;
562 }
563
564 //=======================================================================
565 //function : GetColorMode
566 //purpose  : 
567 //=======================================================================
568
569 Standard_Boolean IGESCAFControl_Writer::GetColorMode () const
570 {
571   return myColorMode;
572 }
573
574 //=======================================================================
575 //function : SetNameMode
576 //purpose  : 
577 //=======================================================================
578
579 void IGESCAFControl_Writer::SetNameMode (const Standard_Boolean namemode)
580 {
581   myNameMode = namemode;
582 }
583
584 //=======================================================================
585 //function : GetNameMode
586 //purpose  : 
587 //=======================================================================
588
589 Standard_Boolean IGESCAFControl_Writer::GetNameMode () const
590 {
591   return myNameMode;
592 }
593
594 //=======================================================================
595 //function : SetLayerMode
596 //purpose  : 
597 //=======================================================================
598
599 void IGESCAFControl_Writer::SetLayerMode (const Standard_Boolean layermode)
600 {
601   myLayerMode = layermode;
602 }
603
604 //=======================================================================
605 //function : GetLayerMode
606 //purpose  : 
607 //=======================================================================
608
609 Standard_Boolean IGESCAFControl_Writer::GetLayerMode () const
610 {
611   return myLayerMode;
612 }