0026173: Wrong result of ChFi3d_ChBuilder algorithm: incorrect processing of G1 junct...
[occt.git] / src / ChFi3d / ChFi3d_Builder.cxx
1 // Created on: 1993-11-18
2 // Created by: Isabelle GRIGNON
3 // Copyright (c) 1993-1999 Matra Datavision
4 // Copyright (c) 1999-2014 OPEN CASCADE SAS
5 //
6 // This file is part of Open CASCADE Technology software library.
7 //
8 // This library is free software; you can redistribute it and/or modify it under
9 // the terms of the GNU Lesser General Public License version 2.1 as published
10 // by the Free Software Foundation, with special exception defined in the file
11 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 // distribution for complete text of the license and disclaimer of any warranty.
13 //
14 // Alternatively, this file may be used under the terms of Open CASCADE
15 // commercial license or contractual agreement.
16
17
18 #include <Adaptor2d_HCurve2d.hxx>
19 #include <Adaptor3d_HSurface.hxx>
20 #include <Adaptor3d_TopolTool.hxx>
21 #include <AppBlend_Approx.hxx>
22 #include <Blend_CurvPointFuncInv.hxx>
23 #include <Blend_FuncInv.hxx>
24 #include <Blend_Function.hxx>
25 #include <Blend_RstRstFunction.hxx>
26 #include <Blend_SurfCurvFuncInv.hxx>
27 #include <Blend_SurfPointFuncInv.hxx>
28 #include <Blend_SurfRstFunction.hxx>
29 #include <BRep_Builder.hxx>
30 #include <BRep_Tool.hxx>
31 #include <BRepAdaptor_HCurve2d.hxx>
32 #include <BRepAdaptor_HSurface.hxx>
33 #include <BRepBlend_Line.hxx>
34 #include <BRepLib.hxx>
35 #include <BRepTopAdaptor_TopolTool.hxx>
36 #include <ChFi3d.hxx>
37 #include <ChFi3d_Builder.hxx>
38 #include <ChFi3d_Builder_0.hxx>
39 #include <ChFiDS_CommonPoint.hxx>
40 #include <ChFiDS_HData.hxx>
41 #include <ChFiDS_HElSpine.hxx>
42 #include <ChFiDS_ListIteratorOfListOfStripe.hxx>
43 #include <ChFiDS_SequenceOfSurfData.hxx>
44 #include <ChFiDS_Spine.hxx>
45 #include <ChFiDS_Stripe.hxx>
46 #include <ChFiDS_SurfData.hxx>
47 #include <Geom2d_Curve.hxx>
48 #include <Geom_Surface.hxx>
49 #include <gp_Pnt2d.hxx>
50 #include <Precision.hxx>
51 #include <ShapeFix.hxx>
52 #include <Standard_ConstructionError.hxx>
53 #include <Standard_ErrorHandler.hxx>
54 #include <Standard_Failure.hxx>
55 #include <Standard_NoSuchObject.hxx>
56 #include <Standard_NotImplemented.hxx>
57 #include <Standard_OutOfRange.hxx>
58 #include <TColStd_ListIteratorOfListOfInteger.hxx>
59 #include <TColStd_MapIteratorOfMapOfInteger.hxx>
60 #include <TColStd_MapOfInteger.hxx>
61 #include <TopAbs.hxx>
62 #include <TopAbs_Orientation.hxx>
63 #include <TopAbs_ShapeEnum.hxx>
64 #include <TopExp.hxx>
65 #include <TopExp_Explorer.hxx>
66 #include <TopoDS.hxx>
67 #include <TopoDS_Edge.hxx>
68 #include <TopoDS_Face.hxx>
69 #include <TopoDS_Shape.hxx>
70 #include <TopoDS_Vertex.hxx>
71 #include <TopOpeBRepBuild_HBuilder.hxx>
72 #include <TopOpeBRepDS_BuildTool.hxx>
73 #include <TopOpeBRepDS_Curve.hxx>
74 #include <TopOpeBRepDS_CurveExplorer.hxx>
75 #include <TopOpeBRepDS_CurvePointInterference.hxx>
76 #include <TopOpeBRepDS_DataStructure.hxx>
77 #include <TopOpeBRepDS_HDataStructure.hxx>
78 #include <TopOpeBRepDS_ListOfInterference.hxx>
79 #include <TopOpeBRepDS_PointIterator.hxx>
80 #include <TopTools_ListIteratorOfListOfShape.hxx>
81 #include <TopTools_ListOfShape.hxx>
82
83 #ifdef DRAW
84 #include <TestTopOpeTools.hxx>
85 #include <TestTopOpe.hxx>
86 #endif
87 #ifdef OCCT_DEBUG
88 #include <OSD_Chronometer.hxx>
89
90
91
92 // variables for performances 
93
94
95 OSD_Chronometer cl_total,cl_extent,cl_perfsetofsurf,cl_perffilletonvertex,
96 cl_filds,cl_reconstruction,cl_setregul,cl_perform1corner,cl_perform2corner,
97 cl_performatend,cl_perform3corner,cl_performmore3corner;
98
99 Standard_EXPORT Standard_Real t_total, t_extent,t_perfsetofsurf,
100 t_perffilletonvertex, t_filds,t_reconstruction,t_setregul, t_perfsetofkgen,
101 t_perfsetofkpart,t_makextremities,t_performatend,t_startsol,t_performsurf,
102 t_perform1corner,t_perform2corner,t_perform3corner,t_performmore3corner,
103 t_batten,t_inter,t_sameinter,t_same,t_plate,t_approxplate,t_t2cornerinit,
104 t_perf2cornerbyinter,t_chfikpartcompdata,t_cheminement,t_remplissage,
105 t_t3cornerinit ,t_spherique,t_torique, t_notfilling,t_filling,t_sameparam,
106 t_computedata,t_completedata,t_t2cornerDS,t_t3cornerDS;
107                
108 extern void ChFi3d_InitChron(OSD_Chronometer& ch);
109 extern void ChFi3d_ResultChron(OSD_Chronometer & ch, Standard_Real& time);
110 extern Standard_Boolean ChFi3d_GettraceCHRON();
111 #endif
112
113
114 //=======================================================================
115 //function : CompleteDS
116 //purpose  : 
117 //=======================================================================
118
119 static void CompleteDS(TopOpeBRepDS_DataStructure& DStr,
120                        const TopoDS_Shape& S)
121 {
122   ChFiDS_Map MapEW,MapFS;
123   MapEW.Fill(S,TopAbs_EDGE,TopAbs_WIRE);
124   MapFS.Fill(S,TopAbs_FACE,TopAbs_SHELL);
125   
126   TopExp_Explorer ExpE;
127   for (ExpE.Init(S,TopAbs_EDGE); ExpE.More(); ExpE.Next()) {
128     const TopoDS_Edge& E = TopoDS::Edge(ExpE.Current());
129     Standard_Boolean hasgeom = DStr.HasGeometry(E);
130     if (hasgeom) {
131       const TopTools_ListOfShape& WireListAnc = MapEW(E);
132       TopTools_ListIteratorOfListOfShape itaW(WireListAnc);
133       while (itaW.More()) {
134         const TopoDS_Shape& WireAnc = itaW.Value();
135         DStr.AddShape(WireAnc);
136         itaW.Next();
137       }
138     }
139   }
140   
141   TopExp_Explorer ExpF;
142   for (ExpF.Init(S,TopAbs_FACE); ExpF.More(); ExpF.Next()) {
143     const TopoDS_Face& F = TopoDS::Face(ExpF.Current());
144     Standard_Boolean hasgeom = DStr.HasGeometry(F);
145     if (hasgeom) {
146       const TopTools_ListOfShape& ShellListAnc = MapFS(F);
147       TopTools_ListIteratorOfListOfShape itaS(ShellListAnc);
148       while (itaS.More()) {
149         const TopoDS_Shape& ShellAnc = itaS.Value();
150         DStr.AddShape(ShellAnc);
151         itaS.Next();
152       }
153     }
154   }
155   
156   // set the range on the DS Curves
157   for (Standard_Integer ic = 1; ic <= DStr.NbCurves(); ic++) {
158     Standard_Real parmin = RealLast(), parmax = RealFirst();
159     const TopOpeBRepDS_ListOfInterference& LI = DStr.CurveInterferences(ic);
160     for (TopOpeBRepDS_PointIterator it(LI);
161          it.More();
162          it.Next() ) {
163       Standard_Real par = it.Parameter();
164       parmin = Min (parmin,par); parmax = Max (parmax,par);
165     }
166     DStr.ChangeCurve(ic).SetRange(parmin,parmax);
167   }
168 }
169
170 void ChFi3d_Builder::Delete()
171 {}
172
173 //=======================================================================
174 //function : ExtentAnalyse
175 //purpose  : 
176 //=======================================================================
177
178 void ChFi3d_Builder::ExtentAnalyse ()
179 {
180   Standard_Integer nbedges, nbs;
181   for (Standard_Integer iv = 1; iv <= myVDataMap.Extent(); iv++) {
182     nbs = myVDataMap(iv).Extent();
183     const TopoDS_Vertex& Vtx = myVDataMap.FindKey(iv);
184     //nbedges = ChFi3d_NumberOfEdges(Vtx, myVEMap); 
185     nbedges = ChFi3d_NumberOfSharpEdges(Vtx, myVEMap, myEFMap); 
186     switch (nbs) {
187     case 1 :
188       ExtentOneCorner(Vtx, myVDataMap.FindFromIndex(iv).First());
189       break;
190     case 2 :
191       if (nbedges <= 3)
192         ExtentTwoCorner(Vtx, myVDataMap.FindFromIndex(iv));
193       break;
194     case 3 :
195       if (nbedges <= 3)
196         ExtentThreeCorner(Vtx, myVDataMap.FindFromIndex(iv));
197       break;
198     default : 
199       break;
200     }
201   }
202 }
203
204 //=======================================================================
205 //function : Compute
206 //purpose  : 
207 //=======================================================================
208
209 void  ChFi3d_Builder::Compute()
210 {
211   
212 #ifdef OCCT_DEBUG   //perf 
213   t_total=0;t_extent=0; t_perfsetofsurf=0;t_perffilletonvertex=0;
214   t_filds=0;t_reconstruction=0;t_setregul=0;
215   t_perfsetofkpart=0; t_perfsetofkgen=0;t_makextremities=0;
216   t_performsurf=0;t_startsol=0; t_perform1corner=0;t_perform2corner=0;
217   t_perform3corner=0;t_performmore3corner=0;t_inter=0;t_same=0;t_sameinter=0;
218   t_plate=0;t_approxplate=0; t_batten=0;t_remplissage=0;t_t3cornerinit=0;
219   t_spherique=0;t_torique=0;t_notfilling=0;t_filling=0;t_performatend=0;
220   t_t2cornerinit=0; t_perf2cornerbyinter=0;t_chfikpartcompdata=0;
221   t_cheminement=0; t_sameparam=0; t_computedata=0;t_completedata=0;
222   t_t2cornerDS=0;t_t3cornerDS=0;
223   ChFi3d_InitChron(cl_total);
224   ChFi3d_InitChron(cl_extent);
225 #endif 
226   
227   if (myListStripe.IsEmpty())
228     Standard_Failure::Raise("There are no suitable edges for chamfer or fillet");
229   
230   Reset();
231   myDS = new TopOpeBRepDS_HDataStructure();
232   TopOpeBRepDS_DataStructure& DStr = myDS->ChangeDS();
233   done = Standard_True;
234   hasresult=Standard_False;
235 #ifdef DRAW
236   TestTopOpe::CurrentDS(myDS);
237   TopoDS_Shape bids;
238   TestTopOpe::Shapes(myShape,bids);
239 #endif
240   
241   // filling of myVDatatMap
242   ChFiDS_ListIteratorOfListOfStripe itel;
243   
244   for (itel.Initialize(myListStripe);itel.More(); itel.Next()) {
245     if ((itel.Value()->Spine()->FirstStatus() <= ChFiDS_BreakPoint))
246       myVDataMap.Add(itel.Value()->Spine()->FirstVertex(),itel.Value());
247     else if (itel.Value()->Spine()->FirstStatus() == ChFiDS_FreeBoundary)
248       ExtentOneCorner(itel.Value()->Spine()->FirstVertex(),itel.Value());
249     if ((itel.Value()->Spine()->LastStatus() <= ChFiDS_BreakPoint))
250       myVDataMap.Add(itel.Value()->Spine()->LastVertex() ,itel.Value());
251     else if (itel.Value()->Spine()->LastStatus() == ChFiDS_FreeBoundary)
252       ExtentOneCorner(itel.Value()->Spine()->LastVertex(),itel.Value());
253   }
254   // preanalysis to evaluate the extensions.
255   ExtentAnalyse();
256   
257   
258 #ifdef OCCT_DEBUG //perf 
259   ChFi3d_ResultChron(cl_extent,t_extent);
260   ChFi3d_InitChron(cl_perfsetofsurf);
261 #endif
262   
263   // Construction of the stripe of fillet on each stripe.
264   for (itel.Initialize(myListStripe);itel.More(); itel.Next()) {
265     itel.Value()->Spine()->SetErrorStatus(ChFiDS_Ok);
266     try {
267       OCC_CATCH_SIGNALS
268       PerformSetOfSurf(itel.Value());
269     }
270     catch(Standard_Failure) {
271       Handle(Standard_Failure) exc = Standard_Failure::Caught();
272 #ifdef OCCT_DEBUG
273       cout <<"EXCEPTION Stripe compute " << exc << endl;
274 #endif
275       badstripes.Append(itel.Value());
276       done = Standard_True;
277       if (itel.Value()->Spine()->ErrorStatus()==ChFiDS_Ok) 
278       itel.Value()->Spine()->SetErrorStatus(ChFiDS_Error);
279     }
280     if (!done) badstripes.Append(itel.Value());
281     done = Standard_True;
282   }
283   done = (badstripes.IsEmpty());
284   
285 #ifdef OCCT_DEBUG //perf 
286   ChFi3d_ResultChron(cl_perfsetofsurf,t_perfsetofsurf);
287   ChFi3d_InitChron(cl_perffilletonvertex);
288 #endif 
289   
290   //construct fillets on each vertex + feed the Ds
291   if (done) {
292     Standard_Integer j;
293     for (j=1;j<=myVDataMap.Extent();j++)
294     {
295       try
296       {
297         OCC_CATCH_SIGNALS
298         PerformFilletOnVertex(j);
299       }
300       catch(Standard_Failure)
301       {
302         Handle(Standard_Failure) exc = Standard_Failure::Caught();
303 #ifdef OCCT_DEBUG
304         cout <<"EXCEPTION Corner compute " << exc << endl;
305 #endif
306         badvertices.Append(myVDataMap.FindKey(j));
307         hasresult=Standard_False;
308         done = Standard_True;
309       }
310       if (!done) badvertices.Append(myVDataMap.FindKey(j));
311       done = Standard_True;
312     }
313     if (!hasresult) done = badvertices.IsEmpty();
314   }
315   
316
317 #ifdef OCCT_DEBUG //perf 
318   ChFi3d_ResultChron(cl_perffilletonvertex,t_perffilletonvertex);
319   ChFi3d_InitChron(cl_filds);
320 #endif
321   
322   TColStd_MapOfInteger MapIndSo;
323   TopExp_Explorer expso(myShape,TopAbs_SOLID);
324   for(; expso.More(); expso.Next()){
325     const TopoDS_Shape& cursol = expso.Current();
326     Standard_Integer indcursol = DStr.AddShape(cursol);
327     MapIndSo.Add(indcursol);
328   }
329   TopExp_Explorer expsh(myShape,TopAbs_SHELL,TopAbs_SOLID);
330   for(; expsh.More(); expsh.Next()){
331     const TopoDS_Shape& cursh = expsh.Current();
332     Standard_Integer indcursh = DStr.AddShape(cursh);
333     MapIndSo.Add(indcursh);
334   }
335   if (done) {
336     Standard_Integer i1;
337     for (itel.Initialize(myListStripe), i1=0;
338          itel.More(); 
339          itel.Next(), i1++) {
340       const Handle(ChFiDS_Stripe)& st = itel.Value();
341       // 05/02/02 akm vvv : (OCC119) First we'll check ain't there 
342       //                    intersections between fillets
343       ChFiDS_ListIteratorOfListOfStripe itel1;
344       Standard_Integer i2;
345       for (itel1.Initialize(myListStripe), i2=0;
346            itel1.More(); 
347            itel1.Next(), i2++) {
348         if (i2 <= i1)
349           // Do not twice intersect the stripes
350           continue;
351         Handle(ChFiDS_Stripe) aCheckStripe = itel1.Value();
352         try {
353           OCC_CATCH_SIGNALS
354           ChFi3d_StripeEdgeInter (st, aCheckStripe, DStr, tol2d);
355         }
356         catch(Standard_Failure) {
357           Handle(Standard_Failure) exc = Standard_Failure::Caught();
358 #ifdef OCCT_DEBUG
359           cout <<"EXCEPTION Fillets compute " << exc << endl;
360 #endif
361           badstripes.Append(itel.Value());
362           hasresult=Standard_False;
363           done = Standard_False;
364           break;
365         }
366       }
367       // 05/02/02 akm ^^^
368       Standard_Integer solidindex = st->SolidIndex();
369       ChFi3d_FilDS(solidindex,st,DStr,myRegul,tolesp,tol2d);
370       if (!done) break;
371     }
372     
373 #ifdef OCCT_DEBUG //perf 
374     ChFi3d_ResultChron(cl_filds,t_filds);
375     ChFi3d_InitChron(cl_reconstruction);
376 #endif
377     
378     
379     if (done) {
380       BRep_Builder B1;
381       CompleteDS(DStr,myShape);
382       //Update tolerances on vertex to max adjacent edges or
383       //Update tolerances on degenerated edge to max of adjacent vertexes.
384       TopOpeBRepDS_CurveExplorer cex(DStr);
385       for(;cex.More();cex.Next()){
386         TopOpeBRepDS_Curve& c = *((TopOpeBRepDS_Curve*)(void*)&(cex.Curve()));
387         Standard_Real tolc = 0.;
388         Standard_Boolean degen = c.Curve().IsNull();
389         if(!degen) tolc = c.Tolerance();
390         Standard_Integer ic = cex.Index();
391         TopOpeBRepDS_PointIterator It(myDS->CurvePoints(ic));
392         for(;It.More();It.Next()){
393           Handle(TopOpeBRepDS_CurvePointInterference) II;
394           II = Handle(TopOpeBRepDS_CurvePointInterference)::DownCast(It.Value());
395           if (II.IsNull()) continue;
396           TopOpeBRepDS_Kind gk = II->GeometryType();
397           Standard_Integer gi = II->Geometry();
398           if(gk == TopOpeBRepDS_VERTEX){
399             const TopoDS_Vertex& v = TopoDS::Vertex(myDS->Shape(gi));
400             Standard_Real tolv = BRep_Tool::Tolerance(v);
401             if( tolv > 0.0001 ) {
402               tolv += 0.0003;
403               if( tolc < tolv ) tolc = tolv + 0.00001;
404             }
405             if(degen && tolc < tolv) tolc = tolv;
406             else if(tolc>tolv) B1.UpdateVertex(v,tolc);
407           }
408           else if(gk == TopOpeBRepDS_POINT){
409             TopOpeBRepDS_Point& p = DStr.ChangePoint(gi);
410             Standard_Real tolp = p.Tolerance();
411             if(degen && tolc < tolp) tolc = tolp;
412             else if(tolc>tolp) p.Tolerance(tolc);
413           }
414         }
415         if(degen) c.Tolerance(tolc);
416       }
417       myCoup->Perform(myDS);
418       TColStd_MapIteratorOfMapOfInteger It(MapIndSo);
419       for(; It.More(); It.Next()){
420         Standard_Integer indsol = It.Key();
421         const TopoDS_Shape& curshape = DStr.Shape(indsol);
422         myCoup->MergeSolid(curshape,TopAbs_IN);
423       }
424       
425       Standard_Integer i=1,n=DStr.NbShapes();
426       for (;i<=n;i++) {
427         const TopoDS_Shape S = DStr.Shape(i);
428         if (S.ShapeType() != TopAbs_EDGE) continue;
429         Standard_Boolean issplitIN = myCoup->IsSplit(S,TopAbs_IN);
430         if ( !issplitIN ) continue;
431         TopTools_ListIteratorOfListOfShape it(myCoup->Splits(S,TopAbs_IN));
432         for (; it.More(); it.Next() ) {
433           const TopoDS_Edge& newE = TopoDS::Edge(it.Value());
434           Standard_Real tole = BRep_Tool::Tolerance(newE);
435           TopExp_Explorer exv(newE,TopAbs_VERTEX);
436           for (; exv.More(); exv.Next() ) {
437             const TopoDS_Vertex& v = TopoDS::Vertex(exv.Current());
438             Standard_Real tolv = BRep_Tool::Tolerance(v);
439             if (tole>tolv) B1.UpdateVertex(v,tole);
440           }
441         }
442       }
443       if (!hasresult) {
444       B1.MakeCompound(TopoDS::Compound(myShapeResult));
445       for(It.Reset(); It.More(); It.Next()){
446         Standard_Integer indsol = It.Key();
447         const TopoDS_Shape& curshape = DStr.Shape(indsol);
448         TopTools_ListIteratorOfListOfShape 
449           its = myCoup->Merged(curshape,TopAbs_IN);
450         if(!its.More()) B1.Add(myShapeResult,curshape);
451         else {
452           //If the old type of Shape is Shell, Shell is placed instead of Solid, 
453           //However there is a problem for compound of open Shell.
454           while (its.More()) {
455             const TopAbs_ShapeEnum letype = curshape.ShapeType();
456             if (letype == TopAbs_SHELL){
457               TopExp_Explorer expsh2(its.Value(),TopAbs_SHELL);
458               const TopoDS_Shape& cursh = expsh2.Current();
459               TopoDS_Shape tt = cursh;
460               B1.Add(myShapeResult,cursh);
461               its.Next();
462             }
463             else {
464               B1.Add(myShapeResult,its.Value());
465               its.Next();
466             }
467           }
468         }
469       }
470       }
471       else {
472        done=Standard_False;
473        B1.MakeCompound(TopoDS::Compound(badShape));
474       for(It.Reset(); It.More(); It.Next()){
475         Standard_Integer indsol = It.Key();
476         const TopoDS_Shape& curshape = DStr.Shape(indsol);
477         TopTools_ListIteratorOfListOfShape 
478           its = myCoup->Merged(curshape,TopAbs_IN);
479         if(!its.More()) B1.Add(badShape,curshape);
480         else {
481           while (its.More()) { 
482             B1.Add(badShape,its.Value());
483             its.Next();
484           }
485         }
486       }
487       }
488 #ifdef OCCT_DEBUG //perf 
489       ChFi3d_ResultChron(cl_reconstruction ,t_reconstruction);
490       ChFi3d_InitChron(cl_setregul);
491 #endif
492       
493       // Regularities are coded after cutting.
494       SetRegul();
495       
496       
497 #ifdef OCCT_DEBUG //perf 
498  ChFi3d_ResultChron(cl_setregul ,t_setregul);
499 #endif
500     }
501   }
502 #ifdef OCCT_DEBUG //perf 
503   ChFi3d_ResultChron(cl_total,t_total);
504 #endif
505       
506   
507   // display of time for perfs 
508   
509 #ifdef OCCT_DEBUG
510   if(ChFi3d_GettraceCHRON()){
511     cout<<endl; 
512     cout<<"COMPUTE: temps total "<<t_total<<"s  dont :"<<endl;
513     cout<<"- Init + ExtentAnalyse "<<t_extent<<"s"<<endl;  
514     cout<<"- PerformSetOfSurf "<<t_perfsetofsurf<<"s"<<endl;
515     cout<<"- PerformFilletOnVertex "<<t_perffilletonvertex<<"s"<<endl; 
516     cout<<"- FilDS "<<t_filds<<"s"<<endl; 
517     cout<<"- Reconstruction "<<t_reconstruction<<"s"<<endl;
518     cout<<"- SetRegul "<<t_setregul<<"s"<<endl<<endl;
519
520     cout<<endl;
521     cout <<"temps PERFORMSETOFSURF "<<t_perfsetofsurf <<"s  dont : "<<endl;
522     cout <<"- SetofKPart "<<t_perfsetofkpart<<"s"<<endl;
523     cout <<"- SetofKGen "<< t_perfsetofkgen <<"s"<<endl;
524     cout <<"- MakeExtremities "<<t_makextremities<<"s"<<endl<<endl;
525     
526     
527     cout <<"temps SETOFKGEN "<< t_perfsetofkgen<<"s dont : "<<endl;
528     cout<<"- PerformSurf "<<t_performsurf<<"s"<<endl;
529     cout<<"- starsol "<< t_startsol <<"s"<<endl<<endl;
530     
531     cout<<"temps PERFORMSURF "<<t_performsurf<<"s  dont : "  << endl;
532     cout<<"- computedata "<<t_computedata<<"s"<<endl;
533     cout<<"- completedata "<<t_completedata<<"s"<<endl<<endl;
534     
535     
536     cout<<"temps PERFORMFILLETVERTEX "<<t_perffilletonvertex <<"s dont : "  << endl;
537     cout<<"- PerformOneCorner "<<t_perform1corner<<"s"<<endl;
538     cout<<"- PerformIntersectionAtEnd "<<t_performatend<<"s"<<endl;
539     cout<<"- PerformTwoCorner "<<t_perform2corner<<"s"<<endl;
540     cout<<"- PerformThreeCorner "<<t_perform3corner<<"s"<<endl;
541     cout<<"- PerformMoreThreeCorner "<<t_performmore3corner<<"s"<<endl<<endl;
542     
543     
544     cout<<"temps PerformOneCorner "<<t_perform1corner<<"s dont:"<<endl;
545     cout<<"- temps condition if (same) "<<t_same << "s "<<endl; 
546     cout<<"- temps condition if (inter) "<<t_inter<<"s " <<endl;
547     cout<<"- temps condition if (same inter) "<<t_sameinter<<"s " <<endl<<endl;
548     
549     cout<<"temps PerformTwocorner "<<t_perform2corner<<"s  dont:"<<endl;
550     cout<<"- temps initialisation "<< t_t2cornerinit<<"s"<<endl;
551     cout<<"- temps PerformTwoCornerbyInter "<<t_perf2cornerbyinter<<"s"<<endl;
552     cout<<"- temps ChFiKPart_ComputeData "<<t_chfikpartcompdata <<"s"<<endl;
553     cout<<"- temps cheminement "<<t_cheminement<<"s"<<endl;
554     cout<<"- temps remplissage "<<t_remplissage<<"s"<<endl;
555     cout<<"- temps mise a jour stripes  "<<t_t2cornerDS<<"s"<<endl<<endl;
556     
557     cout<<" temps PerformThreecorner "<<t_perform3corner<<"s  dont:"<<endl;
558     cout<<"- temps initialisation "<< t_t3cornerinit<<"s"<<endl;
559     cout<<"- temps cas spherique  "<<t_spherique<<"s"<<endl;
560     cout<<"- temps cas torique  "<<t_torique<<"s"<<endl;
561     cout<<"- temps notfilling "<<t_notfilling<<"s"<<endl;
562     cout<<"- temps filling "<<t_filling<<"s"<<endl;
563     cout<<"- temps mise a jour stripes  "<<t_t3cornerDS<<"s"<<endl<<endl;
564     
565     cout<<"temps PerformMore3Corner "<<t_performmore3corner<<"s dont:"<<endl;
566     cout<<"-temps plate "<<t_plate << "s "<<endl; 
567     cout<<"-temps approxplate "<<t_approxplate<<"s " <<endl;
568     cout<<"-temps batten "<< t_batten<<"s " <<endl<<endl;
569     
570     cout <<"TEMPS DIVERS "<<endl;
571     cout<<"-temps ChFi3d_sameparameter "<<t_sameparam<<"s"<<endl<<endl;
572   }
573 #endif
574   //
575   // Inspect the new faces to provide sameparameter 
576   // if it is necessary
577   if (IsDone())
578   {
579     Standard_Real SameParTol = Precision::Confusion();
580     Standard_Integer aNbSurfaces, iF;
581     TopTools_ListIteratorOfListOfShape aIt;
582     //
583     aNbSurfaces=myDS->NbSurfaces();
584     
585     for (iF=1; iF<=aNbSurfaces; ++iF) {
586       const TopTools_ListOfShape& aLF=myCoup->NewFaces(iF);
587       aIt.Initialize(aLF);
588       for (; aIt.More(); aIt.Next()) {
589         const TopoDS_Shape& aF=aIt.Value();
590         BRepLib::SameParameter(aF, SameParTol, Standard_True);
591         ShapeFix::SameParameter(aF, Standard_False, SameParTol);
592       }
593     }
594   }
595 }
596
597 //=======================================================================
598 //function : PerformSingularCorner
599 //purpose  : Load vertex and degenerated edges.
600 //=======================================================================
601
602 void ChFi3d_Builder::PerformSingularCorner
603 (const Standard_Integer Index){
604   ChFiDS_ListIteratorOfListOfStripe It;
605   Handle(ChFiDS_Stripe) stripe;
606   TopOpeBRepDS_DataStructure&  DStr = myDS->ChangeDS();
607   const TopoDS_Vertex& Vtx = myVDataMap.FindKey(Index);
608   
609   Handle(ChFiDS_SurfData) Fd;
610   Standard_Integer i, Icurv;
611   Standard_Integer Ivtx = 0;
612   for (It.Initialize(myVDataMap(Index)), i=0; It.More(); It.Next(),i++){
613     stripe = It.Value(); 
614     // SurfData concerned and its CommonPoints,
615     Standard_Integer sens = 0;
616     Standard_Integer num = ChFi3d_IndexOfSurfData(Vtx,stripe,sens);
617     Standard_Boolean isfirst = (sens == 1);
618     Fd =  stripe->SetOfSurfData()->Sequence().Value(num);
619     const ChFiDS_CommonPoint& CV1 = Fd->Vertex(isfirst,1);
620     const ChFiDS_CommonPoint& CV2 = Fd->Vertex(isfirst,2);
621     // Is it always degenerated ?
622     if ( CV1.Point().IsEqual( CV2.Point(), 0) ) { 
623       // if yes the vertex is stored in the stripe
624       // and the edge at end is created
625       if (i==0) Ivtx = ChFi3d_IndexPointInDS(CV1, DStr);
626       Standard_Real tolreached;
627       Standard_Real Pardeb, Parfin; 
628       gp_Pnt2d VOnS1, VOnS2;
629       Handle(Geom_Curve) C3d;
630       Handle(Geom2d_Curve) PCurv;
631       TopOpeBRepDS_Curve Crv;
632       if (isfirst) {
633         VOnS1 = Fd->InterferenceOnS1().PCurveOnSurf()->
634                     Value(Fd->InterferenceOnS1().FirstParameter());
635         VOnS2 = Fd->InterferenceOnS2().PCurveOnSurf()->
636                      Value(Fd->InterferenceOnS2().FirstParameter());
637       }
638       else {
639         VOnS1 = Fd->InterferenceOnS1().PCurveOnSurf()->
640                     Value(Fd->InterferenceOnS1().LastParameter());
641         VOnS2 = Fd->InterferenceOnS2().PCurveOnSurf()->
642                      Value(Fd->InterferenceOnS2().LastParameter());
643       }
644       
645       ChFi3d_ComputeArete(CV1, VOnS1,
646                           CV2, VOnS2,
647                           DStr.Surface(Fd->Surf()).Surface(),
648                           C3d, PCurv,
649                           Pardeb,Parfin,tolapp3d,tolapp2d,tolreached,0);
650       Crv = TopOpeBRepDS_Curve(C3d,tolreached);
651       Icurv = DStr.AddCurve(Crv);
652
653       stripe->SetCurve(Icurv, isfirst);
654       stripe->SetParameters(isfirst, Pardeb,Parfin);
655       stripe->ChangePCurve(isfirst) = PCurv;
656       stripe->SetIndexPoint(Ivtx, isfirst, 1);
657       stripe->SetIndexPoint(Ivtx, isfirst, 2);    
658     }
659   }  
660 }
661
662 //=======================================================================
663 //function : PerformFilletOnVertex
664 //purpose  : 
665 //=======================================================================
666
667 void ChFi3d_Builder::PerformFilletOnVertex
668 (const Standard_Integer Index){
669   
670   ChFiDS_ListIteratorOfListOfStripe It;
671   Handle(ChFiDS_Stripe) stripe;
672   Handle(ChFiDS_Spine) sp;
673   const TopoDS_Vertex& Vtx = myVDataMap.FindKey(Index);
674   
675   Handle(ChFiDS_SurfData) Fd;
676   Standard_Integer i;
677   Standard_Boolean nondegenere = Standard_True;
678   Standard_Boolean toujoursdegenere = Standard_True; 
679   Standard_Boolean isfirst = Standard_False;
680   for (It.Initialize(myVDataMap(Index)), i=0; It.More(); It.Next(),i++){
681     stripe = It.Value(); 
682     sp = stripe->Spine();
683     // SurfData and its CommonPoints,
684     Standard_Integer sens = 0;
685     Standard_Integer num = ChFi3d_IndexOfSurfData(Vtx,stripe,sens);
686     isfirst = (sens == 1);
687     Fd =  stripe->SetOfSurfData()->Sequence().Value(num);
688     const ChFiDS_CommonPoint& CV1 = Fd->Vertex(isfirst,1);
689     const ChFiDS_CommonPoint& CV2 = Fd->Vertex(isfirst,2);
690     // Is it always degenerated ?
691     if ( CV1.Point().IsEqual( CV2.Point(), 0) )  
692       nondegenere = Standard_False;
693     else  toujoursdegenere = Standard_False;
694   }
695   
696   // calcul du nombre de faces = nombre d'aretes
697 /*  TopTools_ListIteratorOfListOfShape ItF,JtF,ItE;
698   Standard_Integer nbf = 0, jf = 0;
699   for (ItF.Initialize(myVFMap(Vtx)); ItF.More(); ItF.Next()){
700     jf++;
701     Standard_Integer kf = 1;
702     const TopoDS_Shape& cur = ItF.Value();
703     for (JtF.Initialize(myVFMap(Vtx)); JtF.More() && (kf < jf); JtF.Next(), kf++){
704       if(cur.IsSame(JtF.Value())) break;
705     }
706     if(kf == jf) nbf++;
707   }
708   Standard_Integer nba=myVEMap(Vtx).Extent();
709   for (ItE.Initialize(myVEMap(Vtx)); ItE.More(); ItE.Next()){
710     const TopoDS_Edge& cur = TopoDS::Edge(ItE.Value());
711     if (BRep_Tool::Degenerated(cur)) nba--;
712   }
713   nba=nba/2;*/
714   Standard_Integer nba = ChFi3d_NumberOfSharpEdges(Vtx, myVEMap, myEFMap);
715
716   if (nondegenere) { // Normal processing
717     switch (i) {
718     case 1 : 
719       {
720         if(sp->Status(isfirst) == ChFiDS_FreeBoundary) return; 
721         if(nba>3) {
722 #ifdef OCCT_DEBUG //perf    
723           ChFi3d_InitChron(cl_performatend);
724 #endif
725           PerformIntersectionAtEnd(Index);
726 #ifdef OCCT_DEBUG
727           ChFi3d_ResultChron(cl_performatend,t_performatend);
728 #endif 
729         }
730         else { 
731 #ifdef OCCT_DEBUG //perf    
732           ChFi3d_InitChron(cl_perform1corner);
733 #endif
734           if (MoreSurfdata(Index))
735              PerformMoreSurfdata(Index);
736           else PerformOneCorner(Index);
737 #ifdef OCCT_DEBUG //perf 
738           ChFi3d_ResultChron(cl_perform1corner,t_perform1corner);
739 #endif  
740         }
741       }
742       break;
743     case 2 : 
744       {
745         if(nba>3){
746 #ifdef OCCT_DEBUG //perf 
747           ChFi3d_InitChron(cl_performmore3corner);
748 #endif
749           PerformMoreThreeCorner(Index, i);
750 #ifdef OCCT_DEBUG //perf 
751           ChFi3d_ResultChron(cl_performmore3corner,t_performmore3corner);
752 #endif
753         }
754         else { 
755 #ifdef OCCT_DEBUG //perf 
756           ChFi3d_InitChron(cl_perform2corner);
757 #endif
758           PerformTwoCorner(Index);
759 #ifdef OCCT_DEBUG //perf 
760           ChFi3d_ResultChron(cl_perform2corner,t_perform2corner);
761 #endif
762         }
763       }
764       break;
765     case 3 : 
766       {
767         if(nba>3){
768 #ifdef OCCT_DEBUG //perf 
769           ChFi3d_InitChron(cl_performmore3corner);
770 #endif
771           PerformMoreThreeCorner(Index, i);
772 #ifdef OCCT_DEBUG //perf 
773           ChFi3d_ResultChron(cl_performmore3corner,t_performmore3corner);
774 #endif
775         }
776         else {
777 #ifdef OCCT_DEBUG //perf 
778           ChFi3d_InitChron(cl_perform3corner);
779 #endif
780           PerformThreeCorner(Index);
781 #ifdef OCCT_DEBUG //perf 
782           ChFi3d_ResultChron(cl_perform3corner,t_perform3corner);
783 #endif
784         }
785       }
786       break;
787       default : {
788 #ifdef OCCT_DEBUG //perf 
789         ChFi3d_InitChron(cl_performmore3corner);
790 #endif
791         PerformMoreThreeCorner(Index, i);
792 #ifdef OCCT_DEBUG //perf 
793         ChFi3d_ResultChron(cl_performmore3corner,t_performmore3corner);
794 #endif
795       }
796     }
797   }
798   else { // Single case processing
799     if (toujoursdegenere) PerformSingularCorner(Index);
800     else                  PerformMoreThreeCorner(Index, i);//Last chance...
801   }              
802 }
803
804
805 //=======================================================================
806 //function : Reset
807 //purpose  : 
808 //=======================================================================
809
810 void  ChFi3d_Builder::Reset()
811 {
812   done = Standard_False;
813   myVDataMap.Clear();
814   myRegul.Clear();
815   myEVIMap.Clear();
816   badstripes.Clear();
817   badvertices.Clear();
818
819   ChFiDS_ListIteratorOfListOfStripe itel;
820   for (itel.Initialize(myListStripe); itel.More(); ){
821     if(!itel.Value()->Spine().IsNull()){
822       itel.Value()->Reset();
823       itel.Next();
824     }
825     else myListStripe.Remove(itel);
826   }
827 }
828
829 //=======================================================================
830 //function : Generated
831 //purpose  : 
832 //=======================================================================
833
834 const TopTools_ListOfShape& ChFi3d_Builder::Generated(const TopoDS_Shape& EouV)
835 {
836   myGenerated.Clear();
837   if(EouV.IsNull()) return myGenerated;
838   if(EouV.ShapeType() != TopAbs_EDGE &&
839      EouV.ShapeType() != TopAbs_VERTEX) return myGenerated;
840   if(myEVIMap.IsBound(EouV)) {
841     const TColStd_ListOfInteger& L = myEVIMap.Find(EouV);
842     TColStd_ListIteratorOfListOfInteger IL;
843     for(IL.Initialize(L); IL.More(); IL.Next()){
844       Standard_Integer I = IL.Value();
845       const TopTools_ListOfShape& LS =  myCoup->NewFaces(I);
846       TopTools_ListIteratorOfListOfShape ILS;
847       for(ILS.Initialize(LS); ILS.More(); ILS.Next()){
848         myGenerated.Append(ILS.Value());
849       }
850     }
851   }
852   return myGenerated;
853 }
854
855