tests/bugs/modalg_5/bug24036

   1 puts "========================"
   2 puts "OCC24036"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Regression: sewing is not correct
   7 # (OCC 6.6.0 regression) BRepBuilderAPI_Sewing returns wrong result
   8 #######################################################################
   9
  10 pload XSDRAW
  11
  12 restore [locate_data_file bug24036_data.brep] v
  13 explode v
  14 sewing result 0.00001 v_1 v_2
  15
  16 checkshape result
  17
  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 freebounds $result 0
  26 set s [explode result_c e]
  27
  28 set index [ llength $s ]
  29 puts "Number of free edges is $index"
  30 if { $index != 2 } {
  31    puts "Error : Number of free edges is $index"
  32 }
  33
  34 set 2dviewer 1