tests/bugs/modalg_5/bug25199

   1 puts "============"
   2 puts "OCC25199"
   3 puts "============"
   4 puts ""
   5 ###############################################################################################
   6 # Bad tolerance edge generated by blend algorithm
   7 ###############################################################################################
   8
   9 restore [locate_data_file OCC615.brep] a
  10 checkshape a
  11 explode a e
  12
  13 if [catch {blend result a 9 a_15 } catch_result] {
  14     puts "Faulty OCC615: function BLEND works with exception"
  15 } else {
  16     puts "OCC615 OK: function CHAMF works OK"
  17 }
  18
  19 explode result E
  20 regexp {Tolerance +MAX=([-0-9.+eE]+)} [tolerance result_21] full MaxTol_1
  21
  22 puts "MaxTolerance = $MaxTol_1"
  23 set MaxTol 0.001
  24
  25 if { $MaxTol_1 > $MaxTol } {
  26     puts "Faulty OCC25199:  Bad tolerance edge generated by blend algorithm"
  27 } else {
  28     puts "OCC25199 OK:  Good tolerance edge generated by blend algorithm"
  29 }
  30
  31 checkprops result -s 197055.
  32 checkshape result
  33 checkview -display result -2d -path ${imagedir}/${test_image}.png