tests/bugs/modalg_5/bug25199

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