0022492: Scaled sphere (Solid with BSplineSurface) is wrongly exported in STEP.
[occt.git] / src / QABUC / QABUC.cxx
index e9ca17a..c5362a0 100755 (executable)
@@ -1161,7 +1161,7 @@ static Standard_Integer BUC60811(Draw_Interpretor& di, Standard_Integer argc, co
   array1.SetValue(3,2,gp_Pnt(200,300,0)); 
   array1.SetValue(3,3,gp_Pnt(400,300,0)); 
   BZ1 = new Geom_BezierSurface(array1);
-  BRepBuilderAPI_MakeFace bzf1( BZ1 );
+  BRepBuilderAPI_MakeFace bzf1( BZ1, Precision::Confusion() );
   TopoDS_Face F1= bzf1.Face();
   ais1 = new AIS_Shape(F1);
   DBRep::Set("F1",F1);
@@ -1209,7 +1209,7 @@ static Standard_Integer BUC60811(Draw_Interpretor& di, Standard_Integer argc, co
 //step 2. offseting the surface. 
   Handle_Geom_OffsetSurface offsurf; 
   offsurf = new Geom_OffsetSurface(BZ1, -100); 
-  BRepBuilderAPI_MakeFace bzf2( offsurf ); 
+  BRepBuilderAPI_MakeFace bzf2( offsurf, Precision::Confusion() ); 
   TopoDS_Face F2= bzf2.Face(); 
   Handle_AIS_Shape ais22 = new AIS_Shape(F2); 
   aContext->Display(ais22); 
@@ -1375,13 +1375,13 @@ static Standard_Integer BUC60856(Draw_Interpretor& di, Standard_Integer /*argc*/
   P1(0,0,20), P2(0,0,45);                                                        
   angle = 2*PI;                                                                  
   Handle(Geom_RectangularTrimmedSurface) S = GC_MakeTrimmedCone (P1, P2, R1, R2).Value();
-  TopoDS_Shape myshape = BRepBuilderAPI_MakeFace(S).Shape();
+  TopoDS_Shape myshape = BRepBuilderAPI_MakeFace(S, Precision::Confusion()).Shape();
   Handle(AIS_Shape) ais1 = new AIS_Shape(myshape);
   aContext->Display(ais1);
   aContext->SetColor(ais1, Quantity_NOC_BLUE1);
   
   Handle(Geom_RectangularTrimmedSurface) S2 = GC_MakeTrimmedCone (P1, P2,R1, 0).Value();
-  TopoDS_Shape myshape2 = BRepBuilderAPI_MakeFace(S2).Shape();
+  TopoDS_Shape myshape2 = BRepBuilderAPI_MakeFace(S2, Precision::Confusion()).Shape();
   Handle(AIS_Shape) ais2 = new AIS_Shape(myshape2);
   aContext->Display(ais2);
   aContext->SetColor(ais2, Quantity_NOC_RED);