Changed default value of write.surfacecurve.mode to 0.
Added SplitClosedFaces to XSTEPResource/STEP. This is necessary for correct display of closed surfaces (such as a torus) in applications such as ProEngineer, SolidWorks, Rhinoceros. Tests changed in connection with changing tolerance. In test bugs/iges/bug23018 enabled writing pcurves.
Interface_Static::Init("XSTEP" ,"write.surfacecurve.mode", '&',"eval Off");
Interface_Static::Init("XSTEP" ,"write.surfacecurve.mode", '&',"eval On");
// Interface_Static::Init("XSTEP" ,"write.surfacecurve.mode", '&',"eval NoAnalytic");
- Interface_Static::SetIVal ("write.surfacecurve.mode",1);
+ Interface_Static::SetIVal ("write.surfacecurve.mode",0);
// lastpreci : pour recuperer la derniere valeur codee (cf XSControl)
// (0 pour dire : pas codee)
#######################################
restore [locate_data_file bug23018_f-ext.brep] f
+param write.surfacecurve.mode 1
brepiges f ${imagedir}/bug23018_f-ext.igs
set info [entity 6]
regexp {Starting +Point +: +\x28([-0-9.+eE]+),([-0-9.+eE]+),([-0-9.+eE]+)\x29} ${info} full x1 y1 z1
set Tol1 [lindex [split [tolerance OCC9490a] ${aTokList}] 2]
set Tol2 [lindex [split [tolerance OCC9490b] ${aTokList}] 2]
set percent_max 0.1
- set Tolerance_percent [GetPercent ${Tol1} ${Tol2}]
+ set Tolerance_percent [expr abs( ${Tol2})-abs(${Tol1})/abs(${Tol1})*100.]
puts "Tolerance_percent = ${Tolerance_percent} %"
if { ${Tolerance_percent} > ${percent_max} } {
set IsOk 0
set Tol1 [lindex [split [tolerance OCC9531a] ${aTokList}] 2]
set Tol2 [lindex [split [tolerance OCC9531b] ${aTokList}] 2]
set percent_max 0.1
- set Tolerance_percent [GetPercent ${Tol1} ${Tol2}]
+ set Tolerance_percent [expr abs( ${Tol2})-abs(${Tol1})/abs(${Tol1})*100.]
puts "Tolerance_percent = ${Tolerance_percent} %"
if { ${Tolerance_percent} > ${percent_max} } {
set IsOk 0
# Perform sewing of resulting shape. If amount of closed shells of resulting shape is not equal to amount of
# closed shells of initial shape increace tolerance and perform sewing again
set nbClosedShells_Second 0
- set toler 0.00001
+ set toler 0.005
set IsSewingPerformedCorrectly 0
XGetOneShape Shape_Second D_Second
for {set k 0} {$k < 5} {incr k} {