tests/bugs/modalg_5/bug23375_1

   1 puts "========================"
   2 puts "OCC23375"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # (OCC 6.5.3 regression) BRepBuilderAPI_Sewing returns wrong result
   7 #######################################################################
   8
   9 restore [locate_data_file bug23375_Volute1.brep] v
  10
  11 explode v
  12 sewing result 0.01 v_1 v_2
  13
  14 # 1
  15 checkshape result
  16
  17 # 2
  18 set tolmaxres [tolmax result]
  19 regexp {max tol = ([-0-9.+eE]+)} $tolmaxres full MaxTolerance
  20 set CMP_TOL 1.e-4
  21 if { ${MaxTolerance} > ${CMP_TOL} } {
  22    puts "Error: invalid tolerance"
  23 }
  24
  25 # 3
  26 catch {freebounds $result -0.01}
  27 set s [explode result_c e]
  28 puts $s
  29 set index [ llength $s ]
  30 if { $index != 0 } {
  31    puts "Error : Number of free edges is $index"
  32 }
  33
  34 set 2dviewer 1