0026377: Passing Handle objects as arguments to functions as non-const reference...
[occt.git] / src / IGESToBRep / IGESToBRep_Reader.cxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14 //pdn 11.01.99 including <stdio.h> for compilation on NT
15 //#70 rln 03.03.99 syntax correction
16 // sln 11.06.2002 OCC448 : Initialize "read.onlyvisiable" parameter  to control transfering invisiable sub entities which logicaly depend on the grouping entities
17
18 #include <BRep_Builder.hxx>
19 #include <BRepLib.hxx>
20 #include <BRepTools_Modifier.hxx>
21 #include <gp_Trsf.hxx>
22 #include <IGESAppli.hxx>
23 #include <IGESAppli_Protocol.hxx>
24 #include <IGESData_FileProtocol.hxx>
25 #include <IGESData_GlobalSection.hxx>
26 #include <IGESData_IGESEntity.hxx>
27 #include <IGESData_IGESModel.hxx>
28 #include <IGESFile_Read.hxx>
29 #include <IGESSolid.hxx>
30 #include <IGESSolid_Protocol.hxx>
31 #include <IGESToBRep.hxx>
32 #include <IGESToBRep_Actor.hxx>
33 #include <IGESToBRep_CurveAndSurface.hxx>
34 #include <IGESToBRep_Reader.hxx>
35 #include <Interface_Check.hxx>
36 #include <Interface_CheckIterator.hxx>
37 #include <Interface_CheckTool.hxx>
38 #include <Interface_Macros.hxx>
39 #include <Interface_ShareFlags.hxx>
40 #include <Interface_Static.hxx>
41 #include <Message_Messenger.hxx>
42 #include <Message_Msg.hxx>
43 #include <Message_ProgressSentry.hxx>
44 #include <OSD_Timer.hxx>
45 #include <ShapeAlgo.hxx>
46 #include <ShapeAlgo_AlgoContainer.hxx>
47 #include <ShapeExtend_Explorer.hxx>
48 #include <ShapeFix_ShapeTolerance.hxx>
49 #include <Standard_ErrorHandler.hxx>
50 #include <Standard_Failure.hxx>
51 #include <TopAbs.hxx>
52 #include <TopoDS_Compound.hxx>
53 #include <TopoDS_Shape.hxx>
54 #include <Transfer_IteratorOfProcessForTransient.hxx>
55 #include <Transfer_TransferOutput.hxx>
56 #include <Transfer_TransientProcess.hxx>
57 #include <TransferBRep.hxx>
58 #include <TransferBRep_ShapeBinder.hxx>
59 #include <TransferBRep_ShapeListBinder.hxx>
60 #include <XSAlgo.hxx>
61 #include <XSAlgo_AlgoContainer.hxx>
62
63 #include <stdio.h>
64 //#include <ShapeCustom.hxx>
65 #ifdef _MSC_VER
66 #include <stdlib.h>
67 #else
68 #include <errno.h>
69 #endif
70 //extern int errno;
71
72 static Handle(IGESData_FileProtocol) protocol;
73
74
75 //=======================================================================
76 //function : IGESToBRep_Reader
77 //purpose  : 
78 //=======================================================================
79     IGESToBRep_Reader::IGESToBRep_Reader ()
80 {
81   theDone = Standard_False;
82   if (protocol.IsNull()) {
83     IGESAppli::Init();  IGESSolid::Init();
84     protocol = new IGESData_FileProtocol;
85     protocol->Add(IGESAppli::Protocol());
86     protocol->Add(IGESSolid::Protocol());
87   }
88   theActor = new IGESToBRep_Actor;
89   theProc = new Transfer_TransientProcess;
90 }
91
92
93 //=======================================================================
94 //function : LoadFile
95 //purpose  : loads a Model from a file
96 //=======================================================================
97
98 Standard_Integer IGESToBRep_Reader::LoadFile (const Standard_CString filename)
99
100   if ( theProc.IsNull() )
101     theProc = new Transfer_TransientProcess;
102   Handle(Message_Messenger) TF = theProc->Messenger();
103   
104   // Message for Diagnostic file.
105   Message_Msg msg2000("IGES_2000");   
106   msg2000.Arg(filename);
107   TF->Send (msg2000, Message_Info);
108   //Message_Msg msg2001("IGES_2001");   // Date
109   Message_Msg msg2005("IGES_2005");
110   msg2005.Arg(theProc->TraceLevel());
111   TF->Send (msg2005, Message_Info);
112   /////////////////////////////////////////////////////////
113   Handle(IGESData_IGESModel) model = new IGESData_IGESModel;
114
115   OSD_Timer c; c.Reset(); c.Start();    
116   char *pfilename=(char *)filename;
117   Standard_Integer StatusFile = IGESFile_Read(pfilename,model,protocol);
118   if (StatusFile != 0) {
119     // Sending of message : IGES file opening error 
120     Message_Msg Msg2("XSTEP_2");
121     TF->Send (Msg2, Message_Info);
122     //Message_Msg Msg3("XSTEP_3");
123     //Message_Msg Msg4("XSTEP_4");
124     //Message_Msg Msg5("XSTEP_5");
125     //Message_Msg Msg6("XSTEP_6");
126     //Message_Msg Msg7("XSTEP_7");
127     // Reasons of the file opening error
128     switch(errno)
129       {
130       case 2  : // Sending of message : No such file or directory
131         {
132           Message_Msg Msg3("XSTEP_3");
133           TF->Send (Msg3, Message_Info);
134         }
135         break;
136       case 12 : // Sending of message : Not enough space
137         {
138           Message_Msg Msg4("XSTEP_4");
139           TF->Send (Msg4, Message_Info);
140         }
141         break;
142       case 13 : // Sending of message : Permission Denied
143         {
144           Message_Msg Msg5("XSTEP_5");
145           TF->Send (Msg5, Message_Info);
146         }
147         break;
148       case 24 : // Sending of message : Too many open files
149         {
150           Message_Msg Msg6("XSTEP_6");
151           TF->Send (Msg6, Message_Info);
152         }
153         break;
154       default : // Sending of message : No determined
155         {
156           Message_Msg Msg7("XSTEP_7");
157           TF->Send (Msg7, Message_Info);
158         }
159         break;
160       }
161   }  
162   
163   Message_Msg Msg8  ("XSTEP_8");
164   Message_Msg Msg25 ("XSTEP_25");
165   Message_Msg Msg26 ("XSTEP_26");
166    // Nb warning in global section.
167
168   Standard_Integer nbWarn = 0,nbFail = 0;
169   // Add the number of warning on enities :
170   Interface_CheckTool cht (model,protocol);
171   Interface_CheckIterator anIter = cht.CompleteCheckList();
172   for(anIter.Start(); anIter.More(); anIter.Next()) {
173     const Handle(Interface_Check) ach = anIter.Value();
174     nbWarn += ach->NbWarnings();
175     nbFail += ach->NbFails();
176   }
177 // Messages nbWarn and nbFail;
178   Msg25.Arg(nbFail);
179   Msg26.Arg(nbWarn);
180   TF->Send (Msg25, Message_Info);
181   TF->Send (Msg26, Message_Info);
182   
183   // Message fin de loading iGES file (elapsed time %s)
184   char t[20];
185   t[0]='\0';
186   Standard_Real second, cpu;
187   Standard_Integer minute, hour;
188   c.Show(second, minute, hour,cpu);
189   if (hour > 0)
190     Sprintf(t,"%dh:%dm:%.2fs",hour,minute,second);
191   else if (minute > 0)
192     Sprintf(t,"%dm:%.2fs",minute,second);
193   else
194     Sprintf(t,"%.2fs",second);
195   // Sending of message : End of Loading
196   Msg8.Arg(t);
197   TF->Send (Msg8, Message_Info);
198   
199   SetModel(model);
200   return StatusFile;
201 }
202
203
204 //=======================================================================
205 //function : SetModel
206 //purpose  : Specifies a Model to work on
207 //=======================================================================
208     void  IGESToBRep_Reader::SetModel (const Handle(IGESData_IGESModel)& model)
209 {
210   theModel = model;
211   theDone  = Standard_False;
212   theShapes.Clear();
213   if ( theProc.IsNull() )
214     theProc = new Transfer_TransientProcess (theModel->NbEntities());
215   else 
216     theProc->Clear();
217 }
218
219
220 //=======================================================================
221 //function : Model
222 //purpose  : returns the Model to be worked on
223 //=======================================================================
224     Handle(IGESData_IGESModel)  IGESToBRep_Reader::Model () const
225       {  return theModel;  }
226
227
228 //=======================================================================
229 //function : SetTransientProcess
230 //purpose  : Specifies a TransferProcess
231 //=======================================================================
232     void  IGESToBRep_Reader::SetTransientProcess
233   (const Handle(Transfer_TransientProcess)& TP)
234      {  theProc = TP;  }
235
236 //=======================================================================
237 //function : TransientProcess
238 //purpose  : Returns the TransferProcess
239 //=======================================================================
240     Handle(Transfer_TransientProcess)  IGESToBRep_Reader::TransientProcess () const
241      {  return theProc;  }
242
243 //=======================================================================
244 //function : Actor
245 //purpose  : returns theActor
246 //=======================================================================
247     Handle(IGESToBRep_Actor)  IGESToBRep_Reader::Actor () const
248       {  return theActor;  }
249
250
251 //=======================================================================
252 //function : Clear
253 //purpose  : Clears the result and Done status
254 //=======================================================================
255     void  IGESToBRep_Reader::Clear ()
256 {
257   theDone  = Standard_False;
258   theShapes.Clear();
259 }
260
261
262 //=======================================================================
263 //function : Check
264 //purpose  : Checks the Model
265 //=======================================================================
266     Standard_Boolean  IGESToBRep_Reader::Check
267   (const Standard_Boolean withprint) const
268 {
269   Interface_CheckTool cht (theModel,protocol);
270   Interface_CheckIterator chl = cht.CompleteCheckList();
271   if (withprint && !theProc.IsNull()) 
272     cht.Print(chl, theProc->Messenger());
273   return chl.IsEmpty(Standard_True);
274 }
275
276
277 //=======================================================================
278 //function : IsDone
279 //purpose  : returns True if the last transfert was a success
280 //=======================================================================
281     Standard_Boolean  IGESToBRep_Reader::IsDone () const
282       {  return theDone;  }
283
284
285 //=======================================================================
286 //function : EncodeRegul
287 //purpose  : INTERNAL to encode regularity on edges
288 //=======================================================================
289
290 static Standard_Boolean  EncodeRegul (const TopoDS_Shape& sh)
291 {
292   Standard_Real tolang = Interface_Static::RVal("read.encoderegularity.angle");
293   if (sh.IsNull()) return Standard_True;
294   if (tolang <= 0) return Standard_True;
295   try {
296     OCC_CATCH_SIGNALS
297     BRepLib::EncodeRegularity (sh,tolang);
298   }
299   catch(Standard_Failure) {
300     return Standard_False;
301   }
302   return Standard_True;
303 }
304
305 //=======================================================================
306 //function : UpdateMap
307 //purpose  : Updates the correspondence map (Transfer_TransientProcess),
308 //           setting as translation results, the shapes received after
309 //           modification by modifier (BRepTools_Modifier)
310 //warning  : BRepTools_Modifier raises exception when it cannot find input
311 //           shape in its internal list
312 //=======================================================================
313
314 // coment as unused PTV 18.09.2000
315 // static void UpdateMap (const Handle(Transfer_TransientProcess)& map,
316 //                     const BRepTools_Modifier& modifier)
317 // {
318 //   Transfer_IteratorOfProcessForTransient iterator = map->CompleteResult(Standard_True);
319 //   for (iterator.Start(); iterator.More(); iterator.Next()) {
320 //     const Handle(Transfer_Binder) binder = iterator.Value();
321 //     try { //to avoid exception in BRepTools_Modifier
322 //       OCC_CATCH_SIGNALS
323 //       if (binder->IsKind (STANDARD_TYPE (TransferBRep_ShapeBinder))) {
324 //      DeclareAndCast(TransferBRep_ShapeBinder, shapebinder, binder);
325 //      if (shapebinder->HasResult()) {
326 //        TopoDS_Shape result = shapebinder->Result();
327 //        TopoDS_Shape modified = modifier.ModifiedShape (result);
328 //        if (shapebinder->Status() != Transfer_StatusUsed) //to avoid exception
329 //          shapebinder->SetResult (modified);
330 //      }
331 //       }
332 //       else if (binder->IsKind (STANDARD_TYPE (TransferBRep_ShapeListBinder))) {
333 //      DeclareAndCast(TransferBRep_ShapeListBinder, shapelistbinder, binder);
334 //      for (Standard_Integer i = 1; i <= shapelistbinder->NbShapes(); i++) {
335 //        TopoDS_Shape result = shapelistbinder->Shape (i);
336 //        TopoDS_Shape modified = modifier.ModifiedShape (result);
337 //        shapelistbinder->SetResult (i, modified);
338 //      }
339 //       }
340 //     }
341 //     catch(Standard_Failure) {
342 //       continue;
343 //     }
344 //   }
345 // }
346
347 //=======================================================================
348 //function : TrimTolerances
349 //purpose  : Trims tolerances of the shape according to static parameters
350 //          
351 //=======================================================================
352
353 static void TrimTolerances (const TopoDS_Shape& shape,
354                             const Standard_Real tol)
355 {
356   if( Interface_Static::IVal("read.maxprecision.mode")==1) {
357     ShapeFix_ShapeTolerance SFST;
358     SFST.LimitTolerance (shape, 0, Max(tol,Interface_Static::RVal ("read.maxprecision.val")));
359   }
360 }
361   
362 //=======================================================================
363 //function : TransferRoots
364 //purpose  : Transfers all Roots Entities
365 //=======================================================================
366 void  IGESToBRep_Reader::TransferRoots (const Standard_Boolean onlyvisible)
367 {
368   if (theModel.IsNull() || theProc.IsNull()) return;
369
370   Handle(Message_Messenger) TF = theProc->Messenger();
371   // Declaration of messages.
372   Message_Msg msg2030("IGES_2030");
373   TF->Send (msg2030, Message_Info);
374   Message_Msg msg2065("IGES_2065");
375   OSD_Timer c; c.Reset(); c.Start();   // Initialisation du CHRONO
376   theDone = Standard_False;
377   theShapes.Clear();
378   
379   Standard_Integer level = theProc->TraceLevel();
380   theProc->SetErrorHandle(Standard_True);
381   theProc->SetRootManagement(Standard_True);
382 //  PrepareTransfer();  -> protocol, actor
383   theActor->SetModel(theModel);
384   Standard_Integer continuity = Interface_Static::IVal("read.iges.bspline.continuity");
385   theActor->SetContinuity (continuity);
386   theProc->SetModel (theModel);
387   theProc->SetActor (theActor);
388   Transfer_TransferOutput TP (theProc,theModel);
389
390   const Handle(Interface_Protocol) aProtocol = protocol; // to avoid ambiguity
391   Interface_ShareFlags SH (theModel, aProtocol);
392   Standard_Integer nb = theModel->NbEntities();
393   ShapeExtend_Explorer SBE;
394
395   
396   Standard_Integer precisionMode = Interface_Static::IVal("read.precision.mode");
397   Message_Msg msg2035("IGES_2035");
398   msg2035.Arg(precisionMode);
399   TF->Send (msg2035, Message_Info);
400   if (precisionMode==1) {
401     Message_Msg msg2040("IGES_2040");
402     msg2040.Arg(Interface_Static::RVal("read.precision.val"));//#70 rln 03.03.99
403     TF->Send (msg2040, Message_Info);
404   }
405   Message_Msg msg2045("IGES_2045");
406   msg2045.Arg(continuity);
407   TF->Send (msg2045, Message_Info);
408   Message_Msg msg2050("IGES_2050");
409   msg2050.Arg(Interface_Static::IVal("read.surfacecurve.mode"));
410   TF->Send (msg2050, Message_Info);
411
412   // sln 11.06.2002 OCC448
413   Interface_Static::SetIVal("read.iges.onlyvisible",onlyvisible);
414   
415   Message_ProgressSentry PS ( theProc->GetProgress(), "Root", 0, nb, 1 );
416   for (Standard_Integer i = 1; i <= nb && PS.More(); i++, PS.Next()) {
417     Handle(IGESData_IGESEntity) ent = theModel->Entity(i);
418     if ( SH.IsShared(ent) || ! theActor->Recognize (ent) ) continue;
419     if (level > 0) {
420       Message_Msg msg2070("IGES_2070");
421       msg2070.Arg(2*i-1);
422       msg2070.Arg(ent->TypeNumber());
423       TF->Send (msg2070, Message_Info);
424     }
425     // on ajoute un traitement pour ne prendre que les entites visibles
426     if ( ! onlyvisible || ent->BlankStatus() == 0 ) {
427       TopoDS_Shape shape;
428       theDone = Standard_True;
429       try {
430         OCC_CATCH_SIGNALS
431         TP.Transfer(ent);
432         shape = TransferBRep::ShapeResult (theProc,ent);
433       } 
434       catch(Standard_Failure) {
435         Message_Msg msg1005("IGES_1005");
436         TF->Send (msg1005, Message_Info);
437         continue;
438       }
439       if (shape.IsNull()) {
440         Message_Msg msg2076("IGES_2076");
441         TF->Send (msg2076, Message_Info);
442       }
443       else {
444         if (SBE.ShapeType(shape,Standard_True) != TopAbs_SHAPE) {
445           if (!shape.IsNull()) {
446             EncodeRegul (shape);
447             //#74 rln 03.03.99 S4135
448             TrimTolerances (shape, theActor->UsedTolerance());
449             theShapes.Append(shape);
450           }
451         }
452       }
453     }
454   }
455   char t [20];
456   t[0]='\0';
457   Standard_Real second, cpu;
458   Standard_Integer minute, hour;
459   c.Show(second, minute, hour,cpu);
460   if (hour > 0)
461     Sprintf(t,"%dh:%dm:%.2fs",hour,minute,second);
462   else if (minute > 0)
463     Sprintf(t,"%dm:%.2fs",minute,second);
464   else
465     Sprintf(t,"%.2fs",second);
466   // Sending of message : End of Loading
467   msg2065.Arg(t);
468   TF->Send (msg2065, Message_Info);
469 }
470
471
472 //=======================================================================
473 //function : Transfer
474 //purpose  : Transfers an Entity given
475 //=======================================================================
476 Standard_Boolean  IGESToBRep_Reader::Transfer(const Standard_Integer num)
477
478   Handle(Message_Messenger) TF = theProc->Messenger();
479   theDone = Standard_False;
480   if (theModel.IsNull()) {
481     Message_Msg msg2031("IGES_2031");
482     TF->Send (msg2031, Message_Info);
483     return Standard_False;
484   }
485   if (num <= 0 || num > theModel->NbEntities()) {
486     Message_Msg msg2032("IGES_2032");
487     msg2032.Arg(num);
488     TF->Send (msg2032, Message_Info);
489     return Standard_False;
490   }
491   // declaration of messages
492   Message_Msg msg2030("IGES_2030");
493   TF->Send (msg2030, Message_Info);
494   Message_Msg msg2065("IGES_2065");
495   OSD_Timer c; c.Reset(); c.Start();   // Initialisation du CHRONO
496   
497   Handle(IGESData_IGESEntity) ent = theModel->Entity(num);
498
499   Message_ProgressSentry PS ( theProc->GetProgress(), "OneEnt", 0, 1, 1 ); //skl
500
501   XSAlgo::AlgoContainer()->PrepareForTransfer();
502   IGESToBRep_CurveAndSurface CAS;
503   CAS.SetModel(theModel);
504   Standard_Real eps;
505   Standard_Integer Ival = Interface_Static::IVal("read.precision.mode");
506   Message_Msg msg2035("IGES_2035");
507   msg2035.Arg(Ival);
508   TF->Send (msg2035, Message_Info);
509   if ( Ival == 0)
510     eps = theModel->GlobalSection().Resolution();
511   else {
512     //mjm : modif du 19/12/97 pour prise en compte effective du parametre
513     eps = Interface_Static::RVal("read.precision.val");
514     Message_Msg msg2040("IGES_2040");
515     msg2040.Arg(eps);//#70 rln 03.03.99
516     TF->Send (msg2040, Message_Info);
517     
518   }
519   Ival = Interface_Static::IVal("read.iges.bspline.approxd1.mode");
520   CAS.SetModeApprox ( (Ival > 0) );
521   Message_Msg msg2045("IGES_2045");
522   Ival = Interface_Static::IVal("read.iges.bspline.continuity");
523   msg2045.Arg(Ival);
524   TF->Send (msg2045, Message_Info);
525   CAS.SetContinuity(Ival);
526   Message_Msg msg2050("IGES_2050");
527   Ival = Interface_Static::IVal("read.surfacecurve.mode");
528   msg2050.Arg(Ival);
529   TF->Send (msg2050, Message_Info);
530   CAS.SetSurfaceCurve (Ival);
531
532   if (eps > 1.E-08) CAS.SetEpsGeom(eps);
533   CAS.SetTransferProcess(theProc);
534
535   Standard_Boolean exceptionRaised = Standard_False;
536   TopoDS_Shape shape;
537   Standard_Integer nbTPitems = theProc->NbMapped();
538   {
539     try {
540       OCC_CATCH_SIGNALS
541       shape = CAS.TransferGeometry (ent);
542     } 
543     catch(Standard_Failure) {
544       Message_Msg msg1015("IGES_1015");
545       TF->Send (msg1015, Message_Info);
546       exceptionRaised = Standard_True;
547     }
548   }
549   if (!exceptionRaised) {
550     // fixing shape
551 //    shape = XSAlgo::AlgoContainer()->PerformFixShape ( shape, theProc, eps*CAS.GetUnitFactor(), CAS.GetMaxTol() );
552
553     Handle(Standard_Transient) info;
554     shape = XSAlgo::AlgoContainer()->ProcessShape( shape, eps*CAS.GetUnitFactor(), CAS.GetMaxTol(),
555                                                    "read.iges.resource.name", 
556                                                    "read.iges.sequence", info,
557                                                    theProc->GetProgress() );
558     XSAlgo::AlgoContainer()->MergeTransferInfo(theProc, info, nbTPitems);
559
560     ShapeExtend_Explorer SBE;
561     if (SBE.ShapeType (shape,Standard_True) != TopAbs_SHAPE) {
562       TransferBRep::SetShapeResult (theProc,ent,shape);
563       theProc->SetRoot (ent);
564       if (!shape.IsNull()) {
565         theDone = Standard_True;
566         EncodeRegul (shape);
567         //#74 rln 03.03.99 S4135
568         TrimTolerances (shape, CAS.GetMaxTol());
569         theShapes.Append(shape);
570       }
571     }
572   }
573
574   PS.Relieve(); //skl
575
576   char t [20];
577   t[0]='\0';
578   Standard_Real second, cpu;
579   Standard_Integer minute, hour;
580   c.Show(second, minute, hour,cpu);
581   if (hour > 0)
582     Sprintf(t,"%dh:%dm:%.2fs",hour,minute,second);
583   else if (minute > 0)
584     Sprintf(t,"%dm:%.2fs",minute,second);
585   else
586     Sprintf(t,"%.2fs",second);
587   // Sending of message : End of Loading
588   msg2065.Arg(t);
589   TF->Send (msg2065, Message_Info);
590   return Standard_True;
591 }
592
593
594 //=======================================================================
595 //function : UsedTolerance
596 //purpose  : Returns the used tolerance (input)
597 //=======================================================================
598     Standard_Real  IGESToBRep_Reader::UsedTolerance () const
599       {  return theActor->UsedTolerance();  }
600
601 //=======================================================================
602 //function : NbShapes
603 //purpose  : Returns the count of produced Shapes
604 //=======================================================================
605     Standard_Integer  IGESToBRep_Reader::NbShapes () const
606       {  return theShapes.Length();  }
607
608
609 //=======================================================================
610 //function : Shape
611 //purpose  : Returns a Shape given its rank
612 //=======================================================================
613     TopoDS_Shape  IGESToBRep_Reader::Shape (const Standard_Integer num) const
614 {
615   TopoDS_Shape res;
616   if (num > 0 && num <= theShapes.Length()) res = theShapes.Value(num);
617   return res;
618 }
619
620
621 //=======================================================================
622 //function : OneShape
623 //purpose  : Returns a unique Shape
624 //=======================================================================
625     TopoDS_Shape  IGESToBRep_Reader::OneShape () const
626 {
627   TopoDS_Shape res;
628   Standard_Integer nb = theShapes.Length();
629   if (nb == 0) return res;
630   else if (nb == 1) return theShapes.Value(1);
631   else {
632     TopoDS_Compound C;
633     BRep_Builder B;
634     B.MakeCompound(C);
635     for (Standard_Integer i = 1; i <= nb; i ++)  B.Add (C,theShapes.Value(i));
636     return C;
637   }
638 }