tests/bugs/modalg_5/bug24174_2

   1 puts "========================"
   2 puts "OCC24174"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # [regression] BRepBuilderAPI_Sewing returns result with very high tolerance
   7 #######################################################################
   8
   9 pload XSDRAW
  10
  11 restore [locate_data_file  bug24174_stitch.brep] a
  12
  13 sewing result 0.1 a
  14
  15 # 0
  16 set log_1 [tolmax a]
  17 regexp {max tol = ([-0-9.+eE]+)} ${log_1} full MaxTolerance_a
  18 set CMP_TOL ${MaxTolerance_a}
  19
  20 # 1
  21 checkshape result
  22
  23 # 2
  24 set log_2 [tolmax result]
  25 regexp {max tol = ([-0-9.+eE]+)} ${log_2} full MaxTolerance_result
  26 if { ${MaxTolerance_result} > ${CMP_TOL} } {
  27    puts "Error: invalid tolerance"
  28 }
  29
  30 # 3
  31 freebounds $result 0
  32 set s [explode result_c e]
  33
  34 set Number [ llength ${s} ]
  35 puts "Number of free edges is ${Number}"
  36 set Number_Free_Edges 9
  37 if { ${Number} != ${Number_Free_Edges} } {
  38    puts "Error : Number of free edges is ${Number}"
  39 }
  40
  41 set 2dviewer 1