0024255: Regressions in test cases on OCCT vc9 win64 Release
[occt.git] / src / BRepLib / BRepLib.cxx
1 // Created on: 1993-12-15
2 // Created by: Remi LEQUETTE
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 //pmn 26/09/97 Add parameters of approximation in BuildCurve3d
18 //  Modified by skv - Thu Jun  3 12:39:19 2004 OCC5898
19
20 #include <BRepLib.ixx>
21 #include <BRepAdaptor_Surface.hxx>
22 #include <BRepAdaptor_HSurface.hxx>
23 #include <BRepAdaptor_HCurve2d.hxx>
24 #include <BRep_Tool.hxx>
25 #include <BRep_Builder.hxx>
26 #include <Geom_Surface.hxx>
27 #include <Geom_RectangularTrimmedSurface.hxx>
28 #include <Geom_Plane.hxx>
29 #include <Geom_Curve.hxx>
30 #include <Geom_BSplineCurve.hxx>
31 #include <Geom_TrimmedCurve.hxx>
32 #include <Geom2d_Curve.hxx>
33 #include <Geom2d_TrimmedCurve.hxx>
34 #include <Geom2d_BSplineCurve.hxx>
35 #include <GeomLib.hxx>
36 #include <TopExp_Explorer.hxx>
37 #include <TopoDS.hxx>
38 #include <TopoDS_Edge.hxx>
39 #include <TopoDS_Face.hxx>
40 #include <TopoDS_Vertex.hxx>
41 #include <TopTools_MapOfShape.hxx>
42 #include <TopTools_IndexedDataMapOfShapeListOfShape.hxx>
43 #include <TopTools_ListIteratorOfListOfShape.hxx>
44 #include <TopExp.hxx>
45 #include <gp.hxx>
46 #include <gp_Ax2.hxx>
47 #include <gp_Pln.hxx>
48 #include <Standard_Real.hxx>
49 #include <Precision.hxx>
50 #include <BRep_GCurve.hxx>
51 #include <BRep_TEdge.hxx>
52 #include <BRep_TFace.hxx>
53 #include <AppParCurves_MultiCurve.hxx>
54 #include <AppParCurves_MultiBSpCurve.hxx>
55 #include <BRep_ListOfCurveRepresentation.hxx>
56 #include <BRep_CurveRepresentation.hxx>
57 #include <BRep_ListIteratorOfListOfCurveRepresentation.hxx>
58 #include <BRep_TVertex.hxx>
59 #include <AdvApprox_ApproxAFunction.hxx>
60 #include <Approx_SameParameter.hxx>
61 #include <TColgp_Array1OfPnt.hxx>
62 #include <TColgp_Array1OfPnt2d.hxx>
63 #include <TColStd_Array1OfReal.hxx>
64 #include <TColStd_MapOfTransient.hxx>
65 #include <GeomAdaptor_Curve.hxx>
66 #include <GeomAdaptor_HCurve.hxx>
67 #include <GeomAdaptor_Surface.hxx>
68 #include <GeomAdaptor_HSurface.hxx>
69 #include <Geom2dAdaptor_Curve.hxx>
70 #include <Geom2dAdaptor_HCurve.hxx>
71 #include <Geom2dAdaptor.hxx>
72 #include <Geom2dConvert.hxx>
73 #include <GCPnts_QuasiUniformDeflection.hxx>
74 #include <BSplCLib.hxx>
75 #include <ElSLib.hxx>
76 #include <Adaptor3d_CurveOnSurface.hxx>
77 #include <Extrema_LocateExtPC.hxx>
78 #include <ProjLib_ProjectedCurve.hxx>
79 #include <BRepClass3d_SolidClassifier.hxx>
80 #include <Bnd_Box.hxx>
81 #include <BRepBndLib.hxx>
82 #include <Approx_CurvilinearParameter.hxx>
83 #include <Geom_BSplineSurface.hxx>
84
85
86 // TODO - not thread-safe static variables
87 static Standard_Real thePrecision = Precision::Confusion();     
88 static Handle(Geom_Plane) thePlane;
89
90 //=======================================================================
91 //function : Precision
92 //purpose  : 
93 //=======================================================================
94
95 void BRepLib::Precision(const Standard_Real P)
96 {
97   thePrecision = P;
98 }
99
100 //=======================================================================
101 //function : Precision
102 //purpose  : 
103 //=======================================================================
104
105 Standard_Real  BRepLib::Precision()
106 {
107   return thePrecision;
108 }
109
110 //=======================================================================
111 //function : Plane
112 //purpose  : 
113 //=======================================================================
114
115 void  BRepLib::Plane(const Handle(Geom_Plane)& P)
116 {
117   thePlane = P;
118 }
119
120
121 //=======================================================================
122 //function : Plane
123 //purpose  : 
124 //=======================================================================
125
126 const Handle(Geom_Plane)&  BRepLib::Plane()
127 {
128   if (thePlane.IsNull()) thePlane = new Geom_Plane(gp::XOY());
129   return thePlane;
130 }
131 //=======================================================================
132 //function : CheckSameRange
133 //purpose  : 
134 //=======================================================================
135
136 Standard_Boolean  BRepLib::CheckSameRange(const TopoDS_Edge& AnEdge,
137   const Standard_Real Tolerance) 
138 {
139   Standard_Boolean  IsSameRange = Standard_True,
140     first_time_in = Standard_True ;
141
142   BRep_ListIteratorOfListOfCurveRepresentation an_Iterator
143     ((*((Handle(BRep_TEdge)*)&AnEdge.TShape()))->ChangeCurves());
144
145   Standard_Real first, last;
146   Standard_Real current_first =0., current_last =0. ;
147   Handle(BRep_GCurve) geometric_representation_ptr ;
148
149   while (IsSameRange && an_Iterator.More()) {
150     geometric_representation_ptr =
151       Handle(BRep_GCurve)::DownCast(an_Iterator.Value());
152     if (!geometric_representation_ptr.IsNull()) {
153
154       first = geometric_representation_ptr->First();
155       last =  geometric_representation_ptr->Last();
156       if (first_time_in ) {
157         current_first = first ;
158         current_last = last   ;
159         first_time_in = Standard_False ;
160       }
161       else {
162         IsSameRange = (Abs(current_first - first) <= Tolerance) 
163           && (Abs(current_last -last) <= Tolerance ) ;
164       }
165     }
166     an_Iterator.Next() ;
167   }
168   return IsSameRange ;
169 }
170
171 //=======================================================================
172 //function : SameRange
173 //purpose  : 
174 //=======================================================================
175
176 void BRepLib::SameRange(const TopoDS_Edge& AnEdge,
177   const Standard_Real Tolerance) 
178 {
179   BRep_ListIteratorOfListOfCurveRepresentation an_Iterator
180     ((*((Handle(BRep_TEdge)*)&AnEdge.TShape()))->ChangeCurves());
181
182   Handle(Geom2d_Curve) Curve2dPtr, Curve2dPtr2, NewCurve2dPtr, NewCurve2dPtr2;
183   TopLoc_Location LocalLoc ;
184
185   Standard_Boolean first_time_in = Standard_True,
186     has_curve,
187     has_closed_curve ;
188   Handle(BRep_GCurve) geometric_representation_ptr ;
189   Standard_Real first,
190     current_first,
191     last,
192     current_last ;
193
194   const Handle(Geom_Curve) C = BRep_Tool::Curve(AnEdge,
195     LocalLoc,
196     current_first,
197     current_last);
198   if (!C.IsNull()) {
199     first_time_in = Standard_False ;
200   }
201
202   while (an_Iterator.More()) {
203     geometric_representation_ptr =
204       Handle(BRep_GCurve)::DownCast(an_Iterator.Value());
205     if (! geometric_representation_ptr.IsNull()) {
206       has_closed_curve =
207         has_curve = Standard_False ;
208       first = geometric_representation_ptr->First();
209       last =  geometric_representation_ptr->Last();
210       if (geometric_representation_ptr->IsCurveOnSurface()) {
211         Curve2dPtr = geometric_representation_ptr->PCurve() ; 
212         has_curve = Standard_True ;
213       }
214       if (geometric_representation_ptr->IsCurveOnClosedSurface()) {
215         Curve2dPtr2 = geometric_representation_ptr->PCurve2() ;
216         has_closed_curve = Standard_True ;
217       }
218       if (has_curve || has_closed_curve) {
219         if (first_time_in) {
220           current_first = first ;
221           current_last = last ;
222           first_time_in = Standard_False ;
223         }
224
225         if (Abs(first - current_first) > Precision::Confusion() ||
226           Abs(last - current_last) > Precision::Confusion() )
227         {
228           if (has_curve)
229           {
230             GeomLib::SameRange(Tolerance,
231               Curve2dPtr,
232               geometric_representation_ptr->First(),
233               geometric_representation_ptr->Last(),
234               current_first,
235               current_last,
236               NewCurve2dPtr);
237             geometric_representation_ptr->PCurve(NewCurve2dPtr) ;
238           }
239           if (has_closed_curve)
240           {
241             GeomLib::SameRange(Tolerance,
242               Curve2dPtr2,
243               geometric_representation_ptr->First(),
244               geometric_representation_ptr->Last(),
245               current_first,
246               current_last,
247               NewCurve2dPtr2);
248             geometric_representation_ptr->PCurve2(NewCurve2dPtr2) ;
249           }
250         }
251       }
252     }
253     an_Iterator.Next() ;
254   }
255   BRep_Builder B;
256   B.Range(TopoDS::Edge(AnEdge),
257     current_first,
258     current_last) ;
259
260   B.SameRange(AnEdge,
261     Standard_True) ;
262 }
263
264 //=======================================================================
265 //function : EvaluateMaxSegment
266 //purpose  : return MaxSegment to pass in approximation, if MaxSegment==0 provided
267 //=======================================================================
268
269 static Standard_Integer evaluateMaxSegment(const Standard_Integer aMaxSegment,
270   const Adaptor3d_CurveOnSurface& aCurveOnSurface)
271 {
272   if (aMaxSegment != 0) return aMaxSegment;
273
274   Handle(Adaptor3d_HSurface) aSurf   = aCurveOnSurface.GetSurface();
275   Handle(Adaptor2d_HCurve2d) aCurv2d = aCurveOnSurface.GetCurve();
276
277   Standard_Real aNbSKnots = 0, aNbC2dKnots = 0;
278
279   if (aSurf->GetType() == GeomAbs_BSplineSurface) {
280     Handle(Geom_BSplineSurface) aBSpline = aSurf->BSpline();
281     aNbSKnots = Max(aBSpline->NbUKnots(), aBSpline->NbVKnots());
282   }
283   if (aCurv2d->GetType() == GeomAbs_BSplineCurve) {
284     aNbC2dKnots = aCurv2d->NbKnots();
285   }
286   Standard_Integer aReturn = (Standard_Integer) (  30 + Max(aNbSKnots, aNbC2dKnots) ) ;
287   return aReturn;
288 }
289
290 //=======================================================================
291 //function : BuildCurve3d
292 //purpose  : 
293 //=======================================================================
294
295 Standard_Boolean  BRepLib::BuildCurve3d(const TopoDS_Edge& AnEdge,
296   const Standard_Real Tolerance,
297   const GeomAbs_Shape Continuity,
298   const Standard_Integer MaxDegree,
299   const Standard_Integer MaxSegment)
300 {
301   Standard_Integer //ErrorCode,
302     //                   ReturnCode = 0,
303     ii,
304     //                   num_knots,
305     jj;
306
307   TopLoc_Location LocalLoc,L[2],LC;
308   Standard_Real f,l,fc,lc, first[2], last[2],
309     tolerance,
310     max_deviation,
311     average_deviation ;
312   Handle(Geom2d_Curve) Curve2dPtr, Curve2dArray[2]  ;
313   Handle(Geom_Surface) SurfacePtr, SurfaceArray[2]  ;
314
315   Standard_Integer not_done ;
316   // if the edge has a 3d curve returns true
317
318
319   const Handle(Geom_Curve) C = BRep_Tool::Curve(AnEdge,LocalLoc,f,l);
320   if (!C.IsNull()) 
321     return Standard_True;
322   //
323   // this should not exists but UpdateEdge makes funny things 
324   // if the edge is not same range 
325   //
326   if (! CheckSameRange(AnEdge,
327     Precision::Confusion())) {
328       SameRange(AnEdge,
329         Tolerance) ;
330   }
331
332
333
334   // search a curve on a plane
335   Handle(Geom_Surface) S;
336   Handle(Geom2d_Curve) PC;
337   Standard_Integer i = 0;
338   Handle(Geom_Plane) P;
339   not_done = 1 ;
340
341   while (not_done) {
342     i++;
343     BRep_Tool::CurveOnSurface(AnEdge,PC,S,LocalLoc,f,l,i);
344     Handle(Geom_RectangularTrimmedSurface) RT = 
345       Handle(Geom_RectangularTrimmedSurface)::DownCast(S);
346     if ( RT.IsNull()) {
347       P = Handle(Geom_Plane)::DownCast(S);
348     }
349     else {
350       P = Handle(Geom_Plane)::DownCast(RT->BasisSurface());
351     }
352     not_done = ! (S.IsNull() || !P.IsNull()) ;
353   }
354   if (! P.IsNull()) {
355     // compute the 3d curve
356     gp_Ax2 axes = P->Position().Ax2();
357     Handle(Geom_Curve) C3d = GeomLib::To3d(axes,PC);
358     if (C3d.IsNull())
359       return Standard_False;
360     // update the edge
361     Standard_Real First, Last;
362
363     BRep_Builder B;
364     B.UpdateEdge(AnEdge,C3d,LocalLoc,0.0e0);
365     BRep_Tool::Range(AnEdge, S, LC, First, Last);
366     B.Range(AnEdge, First, Last); //Do not forget 3D range.(PRO6412)
367   }
368   else {
369     //
370     // compute the 3d curve using existing surface
371     //
372     fc = f ;
373     lc = l ;
374     if (!BRep_Tool::Degenerated(AnEdge)) {
375       jj = 0 ;
376       for (ii = 0 ; ii < 3 ; ii++ ) {
377         BRep_Tool::CurveOnSurface(TopoDS::Edge(AnEdge),
378           Curve2dPtr,
379           SurfacePtr,
380           LocalLoc,
381           fc,
382           lc,
383           ii) ;
384
385         if (!Curve2dPtr.IsNull() && jj < 2){
386           Curve2dArray[jj] = Curve2dPtr ;
387           SurfaceArray[jj] = SurfacePtr ;
388           L[jj] = LocalLoc ;
389           first[jj] = fc ;
390           last[jj] = lc ;
391           jj += 1 ;
392         }
393       }
394       f = first[0] ;
395       l = last[0] ;
396       Curve2dPtr = Curve2dArray[0] ;
397       SurfacePtr = SurfaceArray[0] ;
398
399       Geom2dAdaptor_Curve     AnAdaptor3dCurve2d (Curve2dPtr, f, l) ;
400       GeomAdaptor_Surface     AnAdaptor3dSurface (SurfacePtr) ;
401       Handle(Geom2dAdaptor_HCurve) AnAdaptor3dCurve2dPtr =
402         new Geom2dAdaptor_HCurve(AnAdaptor3dCurve2d) ;
403       Handle(GeomAdaptor_HSurface) AnAdaptor3dSurfacePtr =
404         new GeomAdaptor_HSurface (AnAdaptor3dSurface) ;
405       Adaptor3d_CurveOnSurface  CurveOnSurface( AnAdaptor3dCurve2dPtr,
406         AnAdaptor3dSurfacePtr) ;
407
408       Handle(Geom_Curve) NewCurvePtr ;
409
410       GeomLib::BuildCurve3d(Tolerance,
411         CurveOnSurface,
412         f,
413         l,
414         NewCurvePtr,
415         max_deviation,
416         average_deviation,
417         Continuity,
418         MaxDegree,
419         evaluateMaxSegment(MaxSegment,CurveOnSurface)) ;
420       BRep_Builder B;   
421       tolerance = BRep_Tool::Tolerance(AnEdge) ;
422       //Patch
423       //max_deviation = Max(tolerance, max_deviation) ;
424       max_deviation = Max( tolerance, Tolerance );
425       if (NewCurvePtr.IsNull())
426         return Standard_False;
427       B.UpdateEdge(TopoDS::Edge(AnEdge),
428         NewCurvePtr,
429         L[0],
430         max_deviation) ;
431       if (jj == 1 ) {
432         //
433         // if there is only one curve on surface attached to the edge
434         // than it can be qualified sameparameter
435         //
436         B.SameParameter(TopoDS::Edge(AnEdge),
437           Standard_True) ;
438       }
439     }
440     else {
441       return Standard_False ;
442     }
443
444   }         
445   return Standard_True;
446 }
447 //=======================================================================
448 //function : BuildCurves3d
449 //purpose  : 
450 //=======================================================================
451
452 Standard_Boolean  BRepLib::BuildCurves3d(const TopoDS_Shape& S) 
453
454 {
455   return BRepLib::BuildCurves3d(S,
456     1.0e-5) ;
457 }
458
459 //=======================================================================
460 //function : BuildCurves3d
461 //purpose  : 
462 //=======================================================================
463
464 Standard_Boolean  BRepLib::BuildCurves3d(const TopoDS_Shape& S,
465   const Standard_Real Tolerance,
466   const GeomAbs_Shape Continuity,
467   const Standard_Integer MaxDegree,
468   const Standard_Integer MaxSegment)
469 {
470   Standard_Boolean boolean_value,
471     ok = Standard_True;
472   TopTools_MapOfShape a_counter ;
473   TopExp_Explorer ex(S,TopAbs_EDGE);
474
475   while (ex.More()) {
476     if (a_counter.Add(ex.Current())) {
477       boolean_value = 
478         BuildCurve3d(TopoDS::Edge(ex.Current()),
479         Tolerance, Continuity,
480         MaxDegree, MaxSegment);
481       ok = ok && boolean_value ;
482     }
483     ex.Next();
484   }
485   return ok;
486 }
487 //=======================================================================
488 //function : UpdateEdgeTolerance
489 //purpose  : 
490 //=======================================================================
491
492 Standard_Boolean  BRepLib::UpdateEdgeTol(const TopoDS_Edge& AnEdge,
493   const Standard_Real MinToleranceRequested,
494   const Standard_Real MaxToleranceToCheck)
495 {
496
497   Standard_Integer curve_on_surface_index,
498     curve_index,
499     not_done,
500     has_closed_curve,
501     has_curve,
502     jj,
503     ii,
504     geom_reference_curve_flag = 0,
505     max_sampling_points = 90,
506     min_sampling_points = 30 ;
507
508   Standard_Real factor = 100.0e0,
509     //     sampling_array[2],
510     safe_factor = 1.4e0,
511     current_last,
512     current_first,
513     max_distance,
514     coded_edge_tolerance,
515     edge_tolerance = 0.0e0 ;
516   Handle(TColStd_HArray1OfReal) parameters_ptr ;
517   Handle(BRep_GCurve) geometric_representation_ptr ;
518
519   if (BRep_Tool::Degenerated(AnEdge)) return Standard_False ;
520   coded_edge_tolerance = BRep_Tool::Tolerance(AnEdge) ;
521   if (coded_edge_tolerance > MaxToleranceToCheck) return Standard_False ;
522
523   const Handle(BRep_TEdge)& TE = *((Handle(BRep_TEdge)*)&AnEdge.TShape());
524   BRep_ListOfCurveRepresentation& list_curve_rep = TE->ChangeCurves() ;
525   BRep_ListIteratorOfListOfCurveRepresentation an_iterator(list_curve_rep),
526     second_iterator(list_curve_rep) ;
527   Handle(Geom2d_Curve) curve2d_ptr, new_curve2d_ptr;
528   Handle(Geom_Surface) surface_ptr ;
529   TopLoc_Location local_location ;
530   GCPnts_QuasiUniformDeflection  a_sampler ;
531   GeomAdaptor_Curve  geom_reference_curve ;
532   Adaptor3d_CurveOnSurface  curve_on_surface_reference ; 
533   Handle(Geom_Curve) C = BRep_Tool::Curve(AnEdge,
534     local_location,
535     current_first,
536     current_last);
537   curve_on_surface_index = -1 ;
538   if (!C.IsNull()) {
539     if (! local_location.IsIdentity()) {
540       C = Handle(Geom_Curve)::
541         DownCast(C-> Transformed(local_location.Transformation()) ) ;
542     }
543     geom_reference_curve.Load(C) ;
544     geom_reference_curve_flag = 1 ;
545     a_sampler.Initialize(geom_reference_curve,
546       MinToleranceRequested * factor,
547       current_first,
548       current_last) ;
549   }
550   else {
551     not_done = 1 ;
552     curve_on_surface_index = 0 ;  
553
554     while (not_done && an_iterator.More()) {
555       geometric_representation_ptr =
556         Handle(BRep_GCurve)::DownCast(second_iterator.Value());
557       if (!geometric_representation_ptr.IsNull() 
558         && geometric_representation_ptr->IsCurveOnSurface()) {
559           curve2d_ptr = geometric_representation_ptr->PCurve() ;
560           local_location = geometric_representation_ptr->Location() ;
561           current_first = geometric_representation_ptr->First();
562           //first = geometric_representation_ptr->First();
563           current_last =  geometric_representation_ptr->Last();
564           // must be inverted 
565           //
566           if (! local_location.IsIdentity() ) {
567             surface_ptr = Handle(Geom_Surface)::
568               DownCast( geometric_representation_ptr->Surface()->
569               Transformed(local_location.Transformation()) ) ;
570           }
571           else {
572             surface_ptr = 
573               geometric_representation_ptr->Surface() ;
574           }
575           not_done = 0 ;
576       }
577       curve_on_surface_index += 1 ;
578     }
579     Geom2dAdaptor_Curve     AnAdaptor3dCurve2d (curve2d_ptr) ;
580     GeomAdaptor_Surface     AnAdaptor3dSurface (surface_ptr) ;
581     Handle(Geom2dAdaptor_HCurve) AnAdaptor3dCurve2dPtr =
582       new Geom2dAdaptor_HCurve(AnAdaptor3dCurve2d) ;
583     Handle(GeomAdaptor_HSurface) AnAdaptor3dSurfacePtr =
584       new GeomAdaptor_HSurface (AnAdaptor3dSurface) ;
585     curve_on_surface_reference.Load( AnAdaptor3dCurve2dPtr) ;
586     curve_on_surface_reference.Load( AnAdaptor3dSurfacePtr) ;
587     a_sampler.Initialize(curve_on_surface_reference,
588       MinToleranceRequested * factor,
589       current_first,
590       current_last) ;
591   }
592   TColStd_Array1OfReal   sampling_parameters(1,a_sampler.NbPoints()) ;
593   for (ii = 1 ; ii <= a_sampler.NbPoints() ; ii++) {
594     sampling_parameters(ii) = a_sampler.Parameter(ii) ;
595   }
596   if (a_sampler.NbPoints() < min_sampling_points) {
597     GeomLib::DensifyArray1OfReal(min_sampling_points,
598       sampling_parameters,
599       parameters_ptr) ;
600   }
601   else if (a_sampler.NbPoints() > max_sampling_points) {
602     GeomLib::RemovePointsFromArray(max_sampling_points,
603       sampling_parameters,
604       parameters_ptr) ; 
605   }
606   else {
607     jj = 1 ;
608     parameters_ptr =
609       new TColStd_HArray1OfReal(1,sampling_parameters.Length()) ;
610     for (ii = sampling_parameters.Lower() ; ii <= sampling_parameters.Upper() ; ii++) {
611       parameters_ptr->ChangeArray1()(jj) =
612         sampling_parameters(ii) ;
613       jj +=1 ;
614     }
615   }
616
617   curve_index = 0 ;
618
619   while (second_iterator.More()) {
620     geometric_representation_ptr =
621       Handle(BRep_GCurve)::DownCast(second_iterator.Value());
622     if (! geometric_representation_ptr.IsNull() && 
623       curve_index != curve_on_surface_index) {
624         has_closed_curve =
625           has_curve = Standard_False ;
626         //      first = geometric_representation_ptr->First();
627         //      last =  geometric_representation_ptr->Last();
628         local_location = geometric_representation_ptr->Location() ;
629         if (geometric_representation_ptr->IsCurveOnSurface()) {
630           curve2d_ptr = geometric_representation_ptr->PCurve() ; 
631           has_curve = Standard_True ;
632         }
633         if (geometric_representation_ptr->IsCurveOnClosedSurface()) {
634           curve2d_ptr = geometric_representation_ptr->PCurve2() ;
635           has_closed_curve = Standard_True ;
636         }
637
638         if (has_curve ||
639           has_closed_curve) {
640             if (! local_location.IsIdentity() ) {
641               surface_ptr = Handle(Geom_Surface)::
642                 DownCast( geometric_representation_ptr->Surface()->
643                 Transformed(local_location.Transformation()) ) ;
644             }
645             else {
646               surface_ptr = 
647                 geometric_representation_ptr->Surface() ;
648             }
649             Geom2dAdaptor_Curve     an_adaptor_curve2d (curve2d_ptr) ;
650             GeomAdaptor_Surface     an_adaptor_surface(surface_ptr) ;
651             Handle(Geom2dAdaptor_HCurve) an_adaptor_curve2d_ptr =
652               new Geom2dAdaptor_HCurve(an_adaptor_curve2d) ;
653             Handle(GeomAdaptor_HSurface) an_adaptor_surface_ptr =
654               new GeomAdaptor_HSurface (an_adaptor_surface) ;
655             Adaptor3d_CurveOnSurface a_curve_on_surface(an_adaptor_curve2d_ptr,
656               an_adaptor_surface_ptr) ;
657
658             if (BRep_Tool::SameParameter(AnEdge)) {
659
660               GeomLib::EvalMaxParametricDistance(a_curve_on_surface,
661                 geom_reference_curve,
662                 MinToleranceRequested,
663                 parameters_ptr->Array1(),
664                 max_distance) ;
665             }
666             else if (geom_reference_curve_flag) {
667               GeomLib::EvalMaxDistanceAlongParameter(a_curve_on_surface,
668                 geom_reference_curve,
669                 MinToleranceRequested,
670                 parameters_ptr->Array1(),
671                 max_distance) ;
672             }
673             else {
674
675               GeomLib::EvalMaxDistanceAlongParameter(a_curve_on_surface,
676                 curve_on_surface_reference,
677                 MinToleranceRequested,
678                 parameters_ptr->Array1(),
679                 max_distance) ;
680             }
681             max_distance *= safe_factor ;
682             edge_tolerance = Max(max_distance, edge_tolerance) ;
683         }
684
685
686     }
687     curve_index += 1 ;
688     second_iterator.Next() ; 
689   }
690
691   TE->Tolerance(edge_tolerance);
692   return Standard_True ;
693
694 }
695 //=======================================================================
696 //function : UpdateEdgeTolerance
697 //purpose  : 
698 //=======================================================================
699
700 Standard_Boolean BRepLib::UpdateEdgeTolerance(const TopoDS_Shape& S,
701   const Standard_Real MinToleranceRequested,
702   const Standard_Real MaxToleranceToCheck) 
703 {
704   TopExp_Explorer ex(S,TopAbs_EDGE);
705   TopTools_MapOfShape  a_counter ;
706
707   Standard_Boolean     return_status = Standard_False,
708     local_flag ;
709
710   while (ex.More()) {
711     if (a_counter.Add(ex.Current())) {
712       local_flag =
713         BRepLib::UpdateEdgeTol(TopoDS::Edge(ex.Current()),
714         MinToleranceRequested,
715         MaxToleranceToCheck) ;
716       if (local_flag && ! return_status) {
717         return_status = Standard_True ;
718       }
719     }
720     ex.Next();
721   }
722   return return_status ;
723 }
724
725 //=======================================================================
726 //function : SetEdgeTol
727 //purpose  : 
728 //=======================================================================
729
730 static void SetEdgeTol(const TopoDS_Edge& E,
731   const TopoDS_Face& F)
732 {
733   TopLoc_Location L;
734   const Handle(Geom_Surface)& S = BRep_Tool::Surface(F,L);
735   TopLoc_Location l = L.Predivided(E.Location());
736
737   const Handle(BRep_TEdge)& TE = *((Handle(BRep_TEdge)*)&E.TShape());
738   BRep_ListIteratorOfListOfCurveRepresentation itcr(TE->ChangeCurves());
739
740   while (itcr.More()) {
741     const Handle(BRep_CurveRepresentation)& cr = itcr.Value();
742     if(cr->IsCurveOnSurface(S,l)) return;
743     itcr.Next();
744   }
745
746   Handle(Geom_Plane) GP;
747   Handle(Geom_RectangularTrimmedSurface) GRTS;
748   GRTS = Handle(Geom_RectangularTrimmedSurface)::DownCast(S);
749   if(!GRTS.IsNull())
750     GP = Handle(Geom_Plane)::DownCast(GRTS->BasisSurface());
751   else
752     GP = Handle(Geom_Plane)::DownCast(S);
753
754   Handle(GeomAdaptor_HCurve) HC = new GeomAdaptor_HCurve();
755   Handle(GeomAdaptor_HSurface) HS = new GeomAdaptor_HSurface();
756
757   TopLoc_Location LC;
758   Standard_Real First, Last;
759   GeomAdaptor_Curve& GAC = HC->ChangeCurve();
760   GAC.Load(BRep_Tool::Curve(E,LC,First,Last));
761   LC = L.Predivided(LC);
762
763   if (!LC.IsIdentity()) {
764     GP = Handle(Geom_Plane)::DownCast(
765       GP->Transformed(LC.Transformation()));
766   }
767   GeomAdaptor_Surface& GAS = HS->ChangeSurface();
768   GAS.Load(GP);
769
770   ProjLib_ProjectedCurve Proj(HS,HC);
771   Handle(Geom2d_Curve) pc = Geom2dAdaptor::MakeCurve(Proj);
772
773   gp_Pln pln = GAS.Plane();
774   Standard_Real d2 = 0.;
775   Standard_Integer nn = 23;
776   Standard_Real unsurnn = 1./nn;
777   for(Standard_Integer i = 0; i <= nn; i++){
778     Standard_Real t = unsurnn*i;
779     Standard_Real u = First*(1.-t) + Last*t;
780     gp_Pnt Pc3d = HC->Value(u);
781     gp_Pnt2d p2d = pc->Value(u);
782     gp_Pnt Pcons = ElSLib::Value(p2d.X(),p2d.Y(),pln);
783     Standard_Real eps = Max(Pc3d.XYZ().SquareModulus(), Pcons.XYZ().SquareModulus());
784     eps = Epsilon(eps);
785     Standard_Real temp = Pc3d.SquareDistance(Pcons);
786     if(temp <= eps)
787     {
788       temp = 0.;
789     }
790     if(temp > d2) d2 = temp;
791   }
792   d2 = 1.5*sqrt(d2);
793   TE->UpdateTolerance(d2);
794 }
795
796 //=======================================================================
797 //function : SameParameter
798 //purpose  : 
799 //=======================================================================
800 void  BRepLib::SameParameter(const TopoDS_Shape& S,
801   const Standard_Real Tolerance,
802   const Standard_Boolean forced) 
803 {
804   TopExp_Explorer ex(S,TopAbs_EDGE);
805   TopTools_MapOfShape  Done;
806   BRep_Builder brB;
807
808   while (ex.More()) {
809     if (Done.Add(ex.Current())) {
810       if (forced) {
811         brB.SameRange(TopoDS::Edge(ex.Current()), Standard_False);
812         brB.SameParameter(TopoDS::Edge(ex.Current()), Standard_False);
813       }
814       BRepLib::SameParameter(TopoDS::Edge(ex.Current()),Tolerance);
815     }
816     ex.Next();
817   }
818
819   Done.Clear();
820   BRepAdaptor_Surface BS;
821   for(ex.Init(S,TopAbs_FACE); ex.More(); ex.Next()){
822     const TopoDS_Face& curface = TopoDS::Face(ex.Current());
823     if(!Done.Add(curface)) continue;
824     BS.Initialize(curface);
825     if(BS.GetType() != GeomAbs_Plane) continue;
826     TopExp_Explorer ex2;
827     for(ex2.Init(curface,TopAbs_EDGE); ex2.More(); ex2.Next()){
828       const TopoDS_Edge& E = TopoDS::Edge(ex2.Current());
829       SetEdgeTol(E,curface);
830     }
831   }
832   BRepLib::UpdateTolerances(S);
833 }
834
835 //================================================================
836 //function : SameParameter
837 //WARNING  : New spec DUB LBO 9/9/97.
838 //  Recode in the edge the best tolerance found, 
839 //  for vertex extremities it is required to find something else
840 //================================================================
841 static Standard_Boolean EvalTol(const Handle(Geom2d_Curve)& pc,
842   const Handle(Geom_Surface)& s,
843   const GeomAdaptor_Curve&    gac,
844   const Standard_Real         tol,
845   Standard_Real&              tolbail)
846 {
847   Standard_Integer ok = 0;
848   Standard_Real f = gac.FirstParameter();
849   Standard_Real l = gac.LastParameter();
850   Extrema_LocateExtPC Projector;
851   Projector.Initialize(gac,f,l,tol);
852   Standard_Real u,v;
853   gp_Pnt p;
854   tolbail = tol;
855   for(Standard_Integer i = 1; i <= 5; i++){
856     Standard_Real t = i/6.;
857     t = (1.-t) * f + t * l;
858     pc->Value(t).Coord(u,v);
859     p = s->Value(u,v);
860     Projector.Perform(p,t);
861     if (Projector.IsDone()) {
862       Standard_Real dist2 = Projector.SquareDistance();
863       if(dist2 > tolbail * tolbail) tolbail = sqrt (dist2);
864       ok++;
865     }
866   }
867   return (ok > 2);
868 }
869
870 static Standard_Real ComputeTol(const Handle(Adaptor3d_HCurve)& c3d,
871   const Handle(Adaptor2d_HCurve2d)& c2d,
872   const Handle(Adaptor3d_HSurface)& surf,
873   const Standard_Integer        nbp)
874
875 {
876
877   TColStd_Array1OfReal dist(1,nbp+10);
878   dist.Init(-1.);
879
880   Adaptor3d_CurveOnSurface  cons(c2d,surf);
881   Standard_Real d2 = 0.;
882   Standard_Real first = c3d->FirstParameter();
883   Standard_Real last  = c3d->LastParameter();
884   Standard_Integer i = 0;
885   for(i = 0; i <= nbp; i++){
886     const Standard_Real t = IntToReal(i)/IntToReal(nbp);
887     const Standard_Real u = first*(1.-t) + last*t;
888     gp_Pnt Pc3d = c3d->Value(u);
889     gp_Pnt Pcons = cons.Value(u);
890     if (Precision::IsInfinite(Pcons.X()) ||
891       Precision::IsInfinite(Pcons.Y()) ||
892       Precision::IsInfinite(Pcons.Z())) {
893         d2=Precision::Infinite();
894         break;
895     }
896     Standard_Real temp = Pc3d.SquareDistance(Pcons);
897
898
899     dist(i+1) = temp;
900
901
902     if(temp > d2) d2 = temp;
903   }
904
905
906   Standard_Boolean ana = Standard_False;
907   Standard_Real D2 = 0;
908   Standard_Integer N1 = 0;
909   Standard_Integer N2 = 0;
910   Standard_Integer N3 = 0;
911
912   for( i = 1; i<= nbp+10; i++)
913     if( dist(i) > 0 ) {
914       if( dist(i) < 1.0 ) N1++;
915       else N2++;
916     }
917
918     if( N1 > N2 && N2 != 0 ) N3 = 100*N2/(N1+N2);
919     if( N3 < 10 && N3 != 0 ) {
920       ana = Standard_True;
921       for( i = 1; i<= nbp+10; i++)
922         if( dist(i) > 0 && dist(i) < 1.0 )
923           if( dist(i) > D2 ) D2 = dist(i);
924     }
925
926     //d2 = 1.5*sqrt(d2);
927     d2 = (!ana) ? 1.5*sqrt(d2) : 1.5*sqrt(D2);
928     if(d2<1.e-7) d2 = 1.e-7;
929
930     return d2;
931 }
932
933 void BRepLib::SameParameter(const TopoDS_Edge&  AnEdge,
934   const Standard_Real Tolerance)
935 {
936   if (BRep_Tool::SameParameter(AnEdge)) return;
937
938   const Standard_Integer NCONTROL = 22;
939
940   Handle(GeomAdaptor_HCurve) HC = new GeomAdaptor_HCurve();
941   Handle(Geom2dAdaptor_HCurve) HC2d = new Geom2dAdaptor_HCurve();
942   Handle(GeomAdaptor_HSurface) HS = new GeomAdaptor_HSurface();
943   GeomAdaptor_Curve& GAC = HC->ChangeCurve();
944   Geom2dAdaptor_Curve& GAC2d = HC2d->ChangeCurve2d();
945   GeomAdaptor_Surface& GAS = HS->ChangeSurface();
946   Standard_Real f3d =0.,l3d =0.;
947   TopLoc_Location L3d;
948   Handle(Geom_Curve) C3d;
949
950   const Handle(BRep_TEdge)& TE = *((Handle(BRep_TEdge)*) &AnEdge.TShape());
951   BRep_ListOfCurveRepresentation& CList = TE->ChangeCurves();
952   BRep_ListIteratorOfListOfCurveRepresentation It(CList);
953
954   Standard_Boolean NotDone = Standard_True;
955
956   while (NotDone && It.More()) {
957     Handle(BRep_GCurve) GCurve = Handle(BRep_GCurve)::DownCast(It.Value());
958     if (!GCurve.IsNull() && GCurve->IsCurve3D()) {
959       C3d = GCurve->Curve3D() ;
960       f3d = GCurve->First();
961       l3d = GCurve->Last();
962       L3d = GCurve->Location() ;
963       NotDone = Standard_False;
964     } 
965     It.Next() ;
966   }
967
968   if(C3d.IsNull()) return;
969
970   // modified by NIZHNY-OCC486  Tue Aug 27 17:15:13 2002 :
971   Standard_Boolean m_TrimmedPeriodical = Standard_False;
972   Handle(Standard_Type) TheType = C3d->DynamicType();
973   if( TheType == STANDARD_TYPE(Geom_TrimmedCurve))
974   {
975     const Handle(Geom_Curve)& gtC = (*((Handle(Geom_TrimmedCurve)*)&C3d))->BasisCurve();
976     m_TrimmedPeriodical = gtC->IsPeriodic();
977   }
978   // modified by NIZHNY-OCC486  Tue Aug 27 17:15:17 2002 .
979
980   BRep_Builder B;
981   if(!C3d->IsPeriodic()) {
982     Standard_Real Udeb = C3d->FirstParameter();
983     Standard_Real Ufin = C3d->LastParameter();
984     // modified by NIZHNY-OCC486  Tue Aug 27 17:17:14 2002 :
985     //if (Udeb > f3d) f3d = Udeb;
986     //if (l3d > Ufin) l3d = Ufin;
987     if(!m_TrimmedPeriodical)
988     {
989       if (Udeb > f3d) f3d = Udeb;
990       if (l3d > Ufin) l3d = Ufin;
991     }
992     // modified by NIZHNY-OCC486  Tue Aug 27 17:17:55 2002 .
993   }
994   if(!L3d.IsIdentity()){
995     C3d = Handle(Geom_Curve)::DownCast(C3d->Transformed(L3d.Transformation()));
996   }
997   GAC.Load(C3d,f3d,l3d);
998
999   Standard_Boolean IsSameP = 1;
1000   Standard_Real maxdist = 0.;
1001
1002   //  Modified by skv - Thu Jun  3 12:39:19 2004 OCC5898 Begin
1003   Standard_Real anEdgeTol = BRep_Tool::Tolerance(AnEdge);
1004   //  Modified by skv - Thu Jun  3 12:39:20 2004 OCC5898 End
1005   Standard_Boolean SameRange = BRep_Tool::SameRange(AnEdge);
1006   Standard_Boolean YaPCu = Standard_False;
1007   It.Initialize(CList);
1008
1009   while (It.More()) {
1010     Standard_Boolean isANA = Standard_False;
1011     Standard_Boolean isBSP = Standard_False;
1012     Handle(BRep_GCurve) GCurve = Handle(BRep_GCurve)::DownCast(It.Value());
1013     Handle(Geom2d_Curve) PC[2];
1014     Handle(Geom_Surface) S;
1015     if (!GCurve.IsNull() && GCurve->IsCurveOnSurface()) {
1016       YaPCu = Standard_True;
1017       PC[0] = GCurve->PCurve();
1018       TopLoc_Location PCLoc = GCurve->Location();
1019       S = GCurve->Surface();
1020       if (!PCLoc.IsIdentity() ) {
1021         S = Handle(Geom_Surface)::DownCast(S->Transformed(PCLoc.Transformation()));
1022       }
1023
1024       GAS.Load(S);
1025       if (GCurve->IsCurveOnClosedSurface()) {
1026         PC[1] = GCurve->PCurve2();
1027       }
1028
1029       // Eval tol2d to compute SameRange
1030       Standard_Real UResol = Max(GAS.UResolution(Tolerance), Precision::PConfusion());
1031       Standard_Real VResol = Max(GAS.VResolution(Tolerance), Precision::PConfusion());
1032       Standard_Real Tol2d  = Min(UResol, VResol);
1033       for(Standard_Integer i = 0; i < 2; i++){
1034         Handle(Geom2d_Curve) curPC = PC[i];
1035         Standard_Boolean updatepc = 0;
1036         if(curPC.IsNull()) break;
1037         if(!SameRange){
1038           GeomLib::SameRange(Tol2d,
1039             PC[i],GCurve->First(),GCurve->Last(),
1040             f3d,l3d,curPC);
1041
1042           updatepc = (curPC != PC[i]);
1043
1044         }
1045         Standard_Boolean goodpc = 1;
1046         GAC2d.Load(curPC,f3d,l3d);
1047
1048         Standard_Real error = ComputeTol(HC, HC2d, HS, NCONTROL);
1049
1050         if(GAC2d.GetType() == GeomAbs_BSplineCurve && 
1051           GAC2d.Continuity() == GeomAbs_C0) {
1052             Handle(Geom2d_BSplineCurve) bs2d = GAC2d.BSpline();
1053             Handle(Geom2d_BSplineCurve) bs2dsov = bs2d;
1054             Standard_Real fC0 = bs2d->FirstParameter(), lC0 = bs2d->LastParameter();
1055             Standard_Boolean repar = Standard_True;
1056             gp_Pnt2d OriginPoint;
1057             bs2d->D0(fC0, OriginPoint);
1058             Geom2dConvert::C0BSplineToC1BSplineCurve(bs2d, Tol2d);
1059             isBSP = Standard_True; 
1060
1061             if(bs2d->IsPeriodic()) { // -------- IFV, Jan 2000
1062               gp_Pnt2d NewOriginPoint;
1063               bs2d->D0(bs2d->FirstParameter(), NewOriginPoint);
1064               if(Abs(OriginPoint.X() - NewOriginPoint.X()) > Precision::PConfusion() ||
1065                 Abs(OriginPoint.Y() - NewOriginPoint.Y()) > Precision::PConfusion()    ) {
1066
1067                   TColStd_Array1OfReal Knotbs2d (1, bs2d->NbKnots());
1068                   bs2d->Knots(Knotbs2d);
1069
1070                   for(Standard_Integer Index = 1; Index <= bs2d->NbKnots(); Index++) {
1071                     bs2d->D0(Knotbs2d(Index), NewOriginPoint);
1072                     if(Abs(OriginPoint.X() - NewOriginPoint.X()) > Precision::PConfusion() ||
1073                       Abs(OriginPoint.Y() - NewOriginPoint.Y()) > Precision::PConfusion()    ) continue;
1074
1075                     bs2d->SetOrigin(Index);
1076                     break;
1077                   }
1078               }
1079             }
1080
1081             if(bs2d->Continuity() == GeomAbs_C0) {
1082               Standard_Real tolbail;
1083               if(EvalTol(curPC,S,GAC,Tolerance,tolbail)){
1084                 bs2d = bs2dsov;
1085                 Standard_Real UResbail = GAS.UResolution(tolbail);
1086                 Standard_Real VResbail = GAS.VResolution(tolbail);
1087                 Standard_Real Tol2dbail  = Min(UResbail,VResbail);
1088                 bs2d->D0(bs2d->FirstParameter(), OriginPoint); 
1089
1090                 Standard_Integer nbp = bs2d->NbPoles();
1091                 TColgp_Array1OfPnt2d poles(1,nbp);
1092                 bs2d->Poles(poles);
1093                 gp_Pnt2d p = poles(1), p1;
1094                 Standard_Real d = Precision::Infinite();
1095                 for(Standard_Integer ip = 2; ip <= nbp; ip++) {
1096                   p1 = poles(ip);
1097                   d = Min(d,p.SquareDistance(p1));
1098                   p = p1;
1099                 }
1100                 d = sqrt(d)*.1;
1101
1102                 Tol2dbail = Max(Min(Tol2dbail,d),Tol2d);
1103
1104                 Geom2dConvert::C0BSplineToC1BSplineCurve(bs2d,Tol2dbail);
1105
1106                 if(bs2d->IsPeriodic()) { // -------- IFV, Jan 2000
1107                   gp_Pnt2d NewOriginPoint;
1108                   bs2d->D0(bs2d->FirstParameter(), NewOriginPoint);
1109                   if(Abs(OriginPoint.X() - NewOriginPoint.X()) > Precision::PConfusion() ||
1110                     Abs(OriginPoint.Y() - NewOriginPoint.Y()) > Precision::PConfusion()    ) {
1111
1112                       TColStd_Array1OfReal Knotbs2d (1, bs2d->NbKnots());
1113                       bs2d->Knots(Knotbs2d);
1114
1115                       for(Standard_Integer Index = 1; Index <= bs2d->NbKnots(); Index++) {
1116                         bs2d->D0(Knotbs2d(Index), NewOriginPoint);
1117                         if(Abs(OriginPoint.X() - NewOriginPoint.X()) > Precision::PConfusion() ||
1118                           Abs(OriginPoint.Y() - NewOriginPoint.Y()) > Precision::PConfusion()    ) continue;
1119
1120                         bs2d->SetOrigin(Index);
1121                         break;
1122                       }
1123                   }
1124                 }
1125
1126
1127                 if(bs2d->Continuity() == GeomAbs_C0) {
1128                   goodpc = 1;
1129                   bs2d = bs2dsov;
1130                   repar = Standard_False;
1131                 }
1132               }
1133               else goodpc = 0;
1134             }
1135
1136             if(goodpc){
1137               if(repar) {
1138                 Standard_Integer NbKnots = bs2d->NbKnots();
1139                 TColStd_Array1OfReal Knots(1,NbKnots);
1140                 bs2d->Knots(Knots);
1141                 //          BSplCLib::Reparametrize(f3d,l3d,Knots);
1142                 BSplCLib::Reparametrize(fC0,lC0,Knots);
1143                 bs2d->SetKnots(Knots);
1144                 GAC2d.Load(bs2d,f3d,l3d);
1145                 curPC = bs2d;
1146                 Standard_Boolean updatepcsov = updatepc;
1147                 updatepc = Standard_True;
1148
1149                 Standard_Real error1 = ComputeTol(HC, HC2d, HS, NCONTROL);
1150                 if(error1 > error) {
1151                   bs2d = bs2dsov;
1152                   GAC2d.Load(bs2d,f3d,l3d);
1153                   curPC = bs2d;
1154                   updatepc = updatepcsov;
1155                   isANA = Standard_True;
1156                 }
1157                 else {
1158                   error = error1;
1159                 }
1160               }
1161
1162               //check, if new BSpline "good" or not --------- IFV, Jan of 2000
1163               GeomAbs_Shape cont = bs2d->Continuity();
1164               Standard_Boolean IsBad = Standard_False;
1165
1166               if(cont > GeomAbs_C0 && error > Max(1.e-3,Tolerance)) {
1167                 Standard_Integer NbKnots = bs2d->NbKnots();
1168                 TColStd_Array1OfReal Knots(1,NbKnots);
1169                 bs2d->Knots(Knots);
1170                 Standard_Real critratio = 10.; 
1171                 Standard_Real dtprev = Knots(2) - Knots(1), dtratio = 1.;
1172                 Standard_Real dtmin = dtprev;
1173                 Standard_Real dtcur;
1174                 for(Standard_Integer j = 2; j < NbKnots; j++) {
1175                   dtcur = Knots(j+1) - Knots(j);
1176                   dtmin = Min(dtmin, dtcur);
1177
1178                   if(IsBad) continue;
1179
1180                   if(dtcur > dtprev) dtratio = dtcur/dtprev;
1181                   else dtratio = dtprev/dtcur;
1182                   if(dtratio > critratio) {IsBad = Standard_True;}
1183                   dtprev = dtcur;
1184
1185                 }
1186                 if(IsBad) {
1187                   // To avoid failures in Approx_CurvilinearParameter 
1188                   bs2d->Resolution(Max(1.e-3,Tolerance), dtcur);
1189                   if(dtmin < dtcur) IsBad = Standard_False;
1190                 }
1191               }
1192
1193
1194               if(IsBad ) { //if BSpline "bad", try to reparametrize it
1195                 // by its curve length
1196
1197                 //            GeomAbs_Shape cont = bs2d->Continuity();
1198                 if(cont > GeomAbs_C2) cont = GeomAbs_C2;
1199                 Standard_Integer maxdeg = bs2d->Degree();
1200                 if(maxdeg == 1) maxdeg = 14;
1201                 Approx_CurvilinearParameter AppCurPar(HC2d, HS, Max(1.e-3,Tolerance),
1202                   cont, maxdeg, 10);
1203                 if(AppCurPar.IsDone() || AppCurPar.HasResult()) {
1204                   bs2d = AppCurPar.Curve2d1();
1205                   GAC2d.Load(bs2d,f3d,l3d);
1206                   curPC = bs2d;
1207
1208                   if(Abs(bs2d->FirstParameter() - fC0) > Tol2d ||
1209                     Abs(bs2d->LastParameter() - lC0) > Tol2d    ) {
1210                       Standard_Integer NbKnots = bs2d->NbKnots();
1211                       TColStd_Array1OfReal Knots(1,NbKnots);
1212                       bs2d->Knots(Knots);
1213                       //                  BSplCLib::Reparametrize(f3d,l3d,Knots);
1214                       BSplCLib::Reparametrize(fC0,lC0,Knots);
1215                       bs2d->SetKnots(Knots);
1216                       GAC2d.Load(bs2d,f3d,l3d);
1217                       curPC = bs2d;
1218
1219                   }
1220                 }
1221               }
1222
1223
1224             }
1225         }
1226
1227
1228         if(goodpc){
1229           //      Approx_SameParameter SameP(HC,HC2d,HS,Tolerance);
1230           Standard_Real aTol = (isANA && isBSP) ? 1.e-7 : Tolerance;
1231           Approx_SameParameter SameP(HC,HC2d,HS,aTol);
1232
1233           if (SameP.IsSameParameter()) {
1234             maxdist = Max(maxdist,SameP.TolReached());
1235             if(updatepc){
1236               if (i == 0) GCurve->PCurve(curPC);
1237               else GCurve->PCurve2(curPC);
1238             }
1239           }
1240           else if (SameP.IsDone()) {
1241             Standard_Real tolreached = SameP.TolReached();
1242             if(tolreached < error) {
1243               curPC = SameP.Curve2d();
1244               updatepc = Standard_True;
1245               maxdist = Max(maxdist,tolreached);
1246             }
1247             else {
1248               maxdist = Max(maxdist, error);
1249             }
1250             if(updatepc){
1251               if (i == 0) GCurve->PCurve(curPC);
1252               else GCurve->PCurve2(curPC);
1253             }
1254           }
1255           else IsSameP = 0;
1256
1257         }
1258         else IsSameP = 0;
1259
1260         //  Modified by skv - Thu Jun  3 12:39:19 2004 OCC5898 Begin
1261         if (!IsSameP) {
1262           if (anEdgeTol > error) {
1263             maxdist = Max(maxdist, anEdgeTol);
1264             IsSameP = Standard_True;
1265           }
1266         }
1267         //  Modified by skv - Thu Jun  3 12:39:20 2004 OCC5898 End
1268       }
1269     }
1270     It.Next() ;
1271   }
1272   B.Range(AnEdge,f3d,l3d);
1273   B.SameRange(AnEdge,Standard_True);
1274   if ( IsSameP) {
1275     // Reduce eventually the tolerance of the edge, as
1276     // all its representations are processed (except for some associated
1277     // to planes and not stored in the edge !) 
1278     // The same cannot be done with vertices that cannot be enlarged 
1279     // or left as is.
1280     if (YaPCu) {
1281       // Avoid setting too small tolerances.
1282       maxdist = Max(maxdist,Precision::Confusion());
1283       TopoDS_Vertex V1,V2;
1284       TopExp::Vertices(AnEdge,V1,V2);
1285       if (!V1.IsNull())
1286         B.UpdateVertex(V1,maxdist);
1287       if (!V2.IsNull())
1288         B.UpdateVertex(V2,maxdist);
1289       TE->Modified(Standard_True);
1290       TE->Tolerance(maxdist);
1291     }
1292     B.SameParameter(AnEdge,Standard_True);
1293   }
1294 }
1295
1296 //=======================================================================
1297 //function : UpdateTolerances
1298 //purpose  : 
1299 //=======================================================================
1300 void  BRepLib::UpdateTolerances(const TopoDS_Shape& aShape,
1301   const Standard_Boolean verifyTolerance) 
1302 {
1303
1304   // Harmonize tolerances
1305   // with rule Tolerance(VERTEX)>=Tolerance(EDGE)>=Tolerance(FACE)
1306   BRep_Builder B;
1307   Standard_Real tol=0;
1308   if (verifyTolerance) {
1309     // Set tolerance to its minimum value
1310     Handle(Geom_Surface) S;
1311     TopLoc_Location l;
1312     TopExp_Explorer ex;
1313     Bnd_Box aB;
1314     Standard_Real aXmin, aYmin, aZmin, aXmax, aYmax, aZmax, dMax;
1315     for (ex.Init(aShape, TopAbs_FACE); ex.More(); ex.Next()) {
1316       const TopoDS_Face& curf=TopoDS::Face(ex.Current());
1317       S = BRep_Tool::Surface(curf, l);
1318       if (!S.IsNull()) {
1319         aB.SetVoid();
1320         BRepBndLib::Add(curf,aB);
1321         if (S->DynamicType() == STANDARD_TYPE(Geom_RectangularTrimmedSurface)) {
1322           S = (*((Handle(Geom_RectangularTrimmedSurface)*)&S))->BasisSurface();
1323         }
1324         GeomAdaptor_Surface AS(S);
1325         switch (AS.GetType()) {
1326         case GeomAbs_Plane: 
1327         case GeomAbs_Cylinder: 
1328         case GeomAbs_Cone: 
1329           {
1330             tol=Precision::Confusion();
1331             break;
1332           }
1333         case GeomAbs_Sphere: 
1334         case GeomAbs_Torus: 
1335           {
1336             tol=Precision::Confusion()*2;
1337             break;
1338           }
1339         default:
1340           tol=Precision::Confusion()*4;
1341         }
1342         if (!aB.IsWhole()) {
1343           aB.Get(aXmin, aYmin, aZmin, aXmax, aYmax, aZmax);
1344           dMax=1.;
1345           if (!aB.IsOpenXmin() && !aB.IsOpenXmax()) dMax=aXmax-aXmin;
1346           if (!aB.IsOpenYmin() && !aB.IsOpenYmax()) aYmin=aYmax-aYmin;
1347           if (!aB.IsOpenZmin() && !aB.IsOpenZmax()) aZmin=aZmax-aZmin;
1348           if (aYmin>dMax) dMax=aYmin;
1349           if (aZmin>dMax) dMax=aZmin;
1350           tol=tol*dMax;
1351           // Do not process tolerances > 1.
1352           if (tol>1.) tol=0.99;
1353         }
1354         const Handle(BRep_TFace)& Tf = *((Handle(BRep_TFace)*)&curf.TShape());
1355         Tf->Tolerance(tol);
1356       }
1357     }
1358   }
1359
1360   //Process edges
1361   TopTools_IndexedDataMapOfShapeListOfShape parents;
1362   TopExp::MapShapesAndAncestors(aShape, TopAbs_EDGE, TopAbs_FACE, parents);
1363   TopTools_ListIteratorOfListOfShape lConx;
1364   Standard_Integer iCur;
1365   for (iCur=1; iCur<=parents.Extent(); iCur++) {
1366     tol=0;
1367     for (lConx.Initialize(parents(iCur)); lConx.More(); lConx.Next()) {
1368       tol=Max(tol, BRep_Tool::Tolerance(TopoDS::Face(lConx.Value())));
1369     }
1370     // Update can only increase tolerance, so if the edge has a greater
1371     //  tolerance than its faces it is not concerned
1372     B.UpdateEdge(TopoDS::Edge(parents.FindKey(iCur)), tol);
1373   }
1374
1375   //Vertices are processed
1376   parents.Clear();
1377   TopExp::MapShapesAndAncestors(aShape, TopAbs_VERTEX, TopAbs_EDGE, parents);
1378   TColStd_MapOfTransient Initialized;
1379   TopTools_MapOfShape Done;
1380   Standard_Integer nbV = parents.Extent();
1381   for (iCur=1; iCur<=nbV; iCur++) {
1382     tol=0;
1383     Done.Clear();
1384     const TopoDS_Vertex& V = TopoDS::Vertex(parents.FindKey(iCur));
1385     Bnd_Box box;
1386     box.Add(BRep_Tool::Pnt(V));
1387     gp_Pnt p3d;
1388     for (lConx.Initialize(parents(iCur)); lConx.More(); lConx.Next()) {
1389       const TopoDS_Edge& E = TopoDS::Edge(lConx.Value());
1390       if(!Done.Add(E)) continue;
1391       tol=Max(tol, BRep_Tool::Tolerance(E));
1392       if(!BRep_Tool::SameRange(E)) continue;
1393       Standard_Real par = BRep_Tool::Parameter(V,E);
1394       Handle(BRep_TEdge)& TE = *((Handle(BRep_TEdge)*)&E.TShape());
1395       BRep_ListIteratorOfListOfCurveRepresentation itcr(TE->Curves());
1396       const TopLoc_Location& Eloc = E.Location();
1397       while (itcr.More()) {
1398         // For each CurveRepresentation, check the provided parameter
1399         const Handle(BRep_CurveRepresentation)& cr = itcr.Value();
1400         const TopLoc_Location& loc = cr->Location();
1401         TopLoc_Location L = (Eloc * loc);
1402         if (cr->IsCurve3D()) {
1403           const Handle(Geom_Curve)& C = cr->Curve3D();
1404           if (!C.IsNull()) { // edge non degenerated
1405             p3d = C->Value(par);
1406             p3d.Transform(L.Transformation());
1407             box.Add(p3d);
1408           }
1409         }
1410         else if (cr->IsCurveOnSurface()) {
1411           const Handle(Geom_Surface)& Su = cr->Surface();
1412           const Handle(Geom2d_Curve)& PC = cr->PCurve();
1413           Handle(Geom2d_Curve) PC2;
1414           if (cr->IsCurveOnClosedSurface()) {
1415             PC2 = cr->PCurve2();
1416           }
1417           gp_Pnt2d p2d = PC->Value(par);
1418           p3d = Su->Value(p2d.X(),p2d.Y());
1419           p3d.Transform(L.Transformation());
1420           box.Add(p3d);
1421           if (!PC2.IsNull()) {
1422             p2d = PC2->Value(par);
1423             p3d = Su->Value(p2d.X(),p2d.Y());
1424             p3d.Transform(L.Transformation());
1425             box.Add(p3d);
1426           }
1427         }
1428         itcr.Next();
1429       }
1430     }
1431     Standard_Real aXmin, aYmin, aZmin, aXmax, aYmax, aZmax;
1432     box.Get(aXmin, aYmin, aZmin, aXmax, aYmax, aZmax);
1433     aXmax -= aXmin; aYmax -= aYmin; aZmax -= aZmin;
1434     tol = Max(tol,sqrt(aXmax*aXmax+aYmax*aYmax+aZmax*aZmax));
1435     tol += 2.*Epsilon(tol);
1436     if (verifyTolerance) {
1437       // ASet minimum value of the tolerance 
1438       // Attention to sharing of the vertex by other shapes
1439       const Handle(BRep_TVertex)& TV = *((Handle(BRep_TVertex)*)&V.TShape());
1440       if (Initialized.Add(TV)) 
1441         TV->Tolerance(tol);
1442       else 
1443         B.UpdateVertex(V, tol);
1444     }
1445     else {
1446       // Update can only increase tolerance, so if the edge has a greater
1447       //  tolerance than its faces it is not concerned
1448       B.UpdateVertex(V, tol);
1449     }
1450   }
1451 }
1452
1453 //=======================================================================
1454 //function : OrientClosedSolid
1455 //purpose  : 
1456 //=======================================================================
1457 Standard_Boolean BRepLib::OrientClosedSolid(TopoDS_Solid& solid) 
1458 {
1459   // Set material inside the solid
1460   BRepClass3d_SolidClassifier where(solid);
1461   where.PerformInfinitePoint(Precision::Confusion());
1462   if (where.State()==TopAbs_IN) {
1463     solid.Reverse();
1464   }
1465   else if (where.State()==TopAbs_ON || where.State()==TopAbs_UNKNOWN) 
1466     return Standard_False;
1467
1468   return Standard_True;
1469 }
1470
1471 //=======================================================================
1472 //function : tgtfaces
1473 //purpose  : check the angle at the border between two squares.
1474 //           Two shares should have a shared front edge.
1475 //=======================================================================
1476
1477 static Standard_Boolean tgtfaces(const TopoDS_Edge& Ed,
1478   const TopoDS_Face& F1,
1479   const TopoDS_Face& F2,
1480   const Standard_Real ta,
1481   const Standard_Boolean couture)
1482 {
1483   // Check if pcurves exist on both faces of edge
1484   Standard_Real aFirst,aLast;
1485   Handle(Geom2d_Curve) aCurve;
1486   aCurve = BRep_Tool::CurveOnSurface(Ed,F1,aFirst,aLast);
1487   if(aCurve.IsNull())
1488     return Standard_False;
1489   aCurve = BRep_Tool::CurveOnSurface(Ed,F2,aFirst,aLast);
1490   if(aCurve.IsNull())
1491     return Standard_False;
1492
1493   Standard_Real u;
1494   TopoDS_Edge E = Ed;
1495   BRepAdaptor_Surface aBAS1(F1,Standard_False);
1496   BRepAdaptor_Surface aBAS2(F2,Standard_False);
1497   Handle(BRepAdaptor_HSurface) HS1 = new BRepAdaptor_HSurface(aBAS1);
1498   Handle(BRepAdaptor_HSurface) HS2;
1499   if(couture) HS2 = HS1;
1500   else HS2 = new BRepAdaptor_HSurface(aBAS2);
1501
1502   E.Orientation(TopAbs_FORWARD);
1503   Handle(BRepAdaptor_HCurve2d) HC2d1 = new BRepAdaptor_HCurve2d();
1504   HC2d1->ChangeCurve2d().Initialize(E,F1);
1505   if(couture) E.Orientation(TopAbs_REVERSED);
1506   Handle(BRepAdaptor_HCurve2d) HC2d2 = new BRepAdaptor_HCurve2d();
1507   HC2d2->ChangeCurve2d().Initialize(E,F2);
1508   Adaptor3d_CurveOnSurface C1(HC2d1,HS1);
1509   Adaptor3d_CurveOnSurface C2(HC2d2,HS2);
1510
1511   Standard_Boolean rev1 = (F1.Orientation() == TopAbs_REVERSED);
1512   Standard_Boolean rev2 = (F2.Orientation() == TopAbs_REVERSED);
1513   Standard_Real f,l,eps, angmax = -M_PI;
1514   Standard_Real ang =0.;
1515   BRep_Tool::Range(E,f,l);
1516   Extrema_LocateExtPC ext;
1517   Standard_Boolean IsInitialized = Standard_False;
1518
1519   eps = (l - f)/100.;
1520   f += eps; // to avoid calculations on  
1521   l -= eps; // points of pointed squares.
1522   gp_Pnt2d p;
1523   gp_Pnt pp1,pp2;//,PP;
1524   gp_Vec du,dv;
1525   gp_Vec d1,d2;
1526   Standard_Real uu, vv, norm;
1527
1528   Standard_Integer i;
1529   Standard_Boolean Nok;
1530   for(i = 0; (i<= 20) && (angmax<=ta) ; i++){
1531     // First suppose that this is sameParameter
1532     Nok = Standard_True;
1533     u = f + (l-f)*i/20;
1534     HC2d1->D0(u,p);
1535     HS1->D1(p.X(),p.Y(),pp1,du,dv);
1536     d1 = (du.Crossed(dv));
1537     norm = d1.Magnitude(); 
1538     if (norm > 1.e-12) d1 /= norm;
1539     else Nok=Standard_False;
1540     if(rev1) d1.Reverse();
1541
1542     HC2d2->D0(u,p);
1543     HS2->D1(p.X(), p.Y(), pp2, du, dv);
1544     d2 = (du.Crossed(dv));
1545     norm = d2.Magnitude();
1546     if (norm> 1.e-12) d2 /= norm;
1547     else Nok=Standard_False;
1548     if(rev2) d2.Reverse();
1549     if (Nok) ang = d1.Angle(d2);
1550
1551     if (Nok &&(ang > ta)) { // Refine by projection
1552       if (! IsInitialized ) {
1553         ext.Initialize(C2,f,l,Precision::PConfusion());
1554         IsInitialized = Standard_True;
1555       }      
1556       ext.Perform(pp1,u);
1557       if(ext.IsDone() && ext.IsMin()){
1558         Extrema_POnCurv poc = ext.Point();
1559         Standard_Real v = poc.Parameter();
1560
1561         HC2d2->D0(v,p);
1562         p.Coord(uu,vv);
1563         HS2->D1(p.X(), p.Y(), pp2, du, dv);
1564         d2 = (du.Crossed(dv));
1565         norm = d2.Magnitude();
1566         if (norm> 1.e-12) d2 /= norm;
1567         else Nok = Standard_False;
1568         if(rev2) d2.Reverse();
1569         if (Nok) ang = d1.Angle(d2);
1570       }
1571     }
1572     if(ang >= angmax) angmax = ang;
1573   }     
1574
1575   return (angmax<=ta);
1576
1577 }
1578
1579
1580 //=======================================================================
1581 // function : EncodeRegularity
1582 // purpose  : code the regularities on all edges of the shape, boundary of 
1583 //            two faces that do not have it.
1584 //=======================================================================
1585
1586 void BRepLib::EncodeRegularity(const TopoDS_Shape& S,
1587   const Standard_Real TolAng)
1588 {
1589   BRep_Builder B;
1590   TopTools_IndexedDataMapOfShapeListOfShape M;
1591   TopExp::MapShapesAndAncestors(S,TopAbs_EDGE,TopAbs_FACE,M);
1592   TopTools_ListIteratorOfListOfShape It;
1593   TopExp_Explorer Ex;
1594   TopoDS_Face F1,F2;
1595   Standard_Boolean found, couture;
1596   for(Standard_Integer i = 1; i <= M.Extent(); i++){
1597     TopoDS_Edge E = TopoDS::Edge(M.FindKey(i));
1598     found = Standard_False; couture = Standard_False;
1599     F1.Nullify();
1600     for(It.Initialize(M.FindFromIndex(i));It.More() && !found;It.Next()){
1601       if(F1.IsNull()) { F1 = TopoDS::Face(It.Value()); }
1602       else {
1603         if(!F1.IsSame(TopoDS::Face(It.Value()))){
1604           found = Standard_True;
1605           F2 = TopoDS::Face(It.Value());
1606         }
1607       }
1608     }
1609     if (!found && !F1.IsNull()){//is it a sewing edge?
1610       TopAbs_Orientation orE = E.Orientation();
1611       TopoDS_Edge curE;
1612       for(Ex.Init(F1,TopAbs_EDGE);Ex.More() && !found;Ex.Next()){
1613         curE= TopoDS::Edge(Ex.Current());
1614         if(E.IsSame(curE) && orE != curE.Orientation()) {
1615           found = Standard_True;
1616           couture = Standard_True;
1617           F2 = F1;
1618         }
1619       }
1620     }
1621     if(found){
1622       if(BRep_Tool::Continuity(E,F1,F2)<=GeomAbs_C0){
1623
1624         try {
1625           if(tgtfaces(E, F1, F2, TolAng, couture)){
1626             B.Continuity(E,F1,F2,GeomAbs_G1);
1627           }
1628         }
1629         catch(Standard_Failure)
1630         {
1631         }
1632       }
1633     }
1634   }
1635 }
1636
1637 //=======================================================================
1638 // function : EncodeRegularity
1639 // purpose  : code the regularity between 2 faces on an edge 
1640 //=======================================================================
1641
1642 void BRepLib::EncodeRegularity(TopoDS_Edge& E,
1643   const TopoDS_Face& F1,
1644   const TopoDS_Face& F2,
1645   const Standard_Real TolAng)
1646 {
1647   BRep_Builder B;
1648   if(BRep_Tool::Continuity(E,F1,F2)<=GeomAbs_C0){
1649     try {
1650       if( tgtfaces(E, F1, F2, TolAng, F1.IsEqual(F2))) {
1651         B.Continuity(E,F1,F2,GeomAbs_G1);
1652       }
1653     }
1654     catch(Standard_Failure)
1655     {
1656     }
1657   }
1658 }
1659
1660 //=======================================================================
1661 //function : SortFaces
1662 //purpose  : 
1663 //=======================================================================
1664
1665 void  BRepLib::SortFaces (const TopoDS_Shape& Sh,
1666   TopTools_ListOfShape& LF)
1667 {
1668   LF.Clear();
1669   TopTools_ListOfShape LTri,LPlan,LCyl,LCon,LSphere,LTor,LOther;
1670   TopExp_Explorer exp(Sh,TopAbs_FACE);
1671   TopLoc_Location l;
1672   Handle(Geom_Surface) S;
1673
1674   for (; exp.More(); exp.Next()) {
1675     const TopoDS_Face&   F = TopoDS::Face(exp.Current());
1676     S = BRep_Tool::Surface(F, l);
1677     if (!S.IsNull()) {
1678       if (S->DynamicType() == STANDARD_TYPE(Geom_RectangularTrimmedSurface)) {
1679         S = (*((Handle(Geom_RectangularTrimmedSurface)*)&S))->BasisSurface();
1680       }
1681       GeomAdaptor_Surface AS(S);
1682       switch (AS.GetType()) {
1683       case GeomAbs_Plane: 
1684         {
1685           LPlan.Append(F);
1686           break;
1687         }
1688       case GeomAbs_Cylinder: 
1689         {
1690           LCyl.Append(F);
1691           break;
1692         }
1693       case GeomAbs_Cone: 
1694         {
1695           LCon.Append(F);
1696           break;
1697         }
1698       case GeomAbs_Sphere: 
1699         {
1700           LSphere.Append(F);
1701           break;
1702         }
1703       case GeomAbs_Torus: 
1704         {
1705           LTor.Append(F);
1706           break;
1707         }
1708       default:
1709         LOther.Append(F);
1710       }
1711     }
1712     else LTri.Append(F);
1713   }
1714   LF.Append(LPlan); LF.Append(LCyl  ); LF.Append(LCon); LF.Append(LSphere);
1715   LF.Append(LTor ); LF.Append(LOther); LF.Append(LTri); 
1716 }
1717
1718 //=======================================================================
1719 //function : ReverseSortFaces
1720 //purpose  : 
1721 //=======================================================================
1722
1723 void  BRepLib::ReverseSortFaces (const TopoDS_Shape& Sh,
1724   TopTools_ListOfShape& LF)
1725 {
1726   LF.Clear();
1727   TopTools_ListOfShape LTri,LPlan,LCyl,LCon,LSphere,LTor,LOther;
1728   TopExp_Explorer exp(Sh,TopAbs_FACE);
1729   TopLoc_Location l;
1730   Handle(Geom_Surface) S;
1731
1732   for (; exp.More(); exp.Next()) {
1733     const TopoDS_Face&   F = TopoDS::Face(exp.Current());
1734     S = BRep_Tool::Surface(F, l);
1735     if (!S.IsNull()) {
1736       if (S->DynamicType() == STANDARD_TYPE(Geom_RectangularTrimmedSurface)) {
1737         S = (*((Handle(Geom_RectangularTrimmedSurface)*)&S))->BasisSurface();
1738       }
1739       GeomAdaptor_Surface AS(S);
1740       switch (AS.GetType()) {
1741       case GeomAbs_Plane: 
1742         {
1743           LPlan.Append(F);
1744           break;
1745         }
1746       case GeomAbs_Cylinder: 
1747         {
1748           LCyl.Append(F);
1749           break;
1750         }
1751       case GeomAbs_Cone: 
1752         {
1753           LCon.Append(F);
1754           break;
1755         }
1756       case GeomAbs_Sphere: 
1757         {
1758           LSphere.Append(F);
1759           break;
1760         }
1761       case GeomAbs_Torus: 
1762         {
1763           LTor.Append(F);
1764           break;
1765         }
1766       default:
1767         LOther.Append(F);
1768       }
1769     }
1770     else LTri.Append(F);
1771   }
1772   LF.Append(LTri); LF.Append(LOther); LF.Append(LTor ); LF.Append(LSphere);
1773   LF.Append(LCon); LF.Append(LCyl  ); LF.Append(LPlan);
1774
1775 }
1776