puts "========================" puts "OCC23375" puts "========================" puts "" ####################################################################### # (OCC 6.5.3 regression) BRepBuilderAPI_Sewing returns wrong result ####################################################################### pload XSDRAW restore [locate_data_file bug23375_Volute1.brep] v explode v sewing result 0.01 v_1 v_2 # 1 checkshape result # 2 set tolmaxres [tolmax result] regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance set CMP_TOL 1.e-4 if { ${MaxTolerance} > ${CMP_TOL} } { puts "Error: invalid tolerance" } # 3 freebounds $result -0.01 set s [explode result_c e] puts $s set index [ llength $s ] if { $index != 8 } { puts "Error : Number of free edges is $index" } set 2dviewer 1