tests/bugs/heal/bug210

   1 puts "========="
   2 puts " OCC210 "
   3 puts "========="
   4 puts ""
   5 ##################################################
   6 # Improve FixShape to correct case of touching wires
   7 ##################################################
   8 puts "TODO CR22598 ALL: Faulty shapes in variables faulty_1 to faulty_"
   9
  10 pload XDE
  11
  12 cpulimit 2500
  13
  14 set BugNumber OCC210
  15
  16 set filepath [locate_data_file UKI60591.stp]
  17 if [catch { stepread $filepath a * } result] {
  18     puts "Faulty ${BugNumber}: here is reading problem"
  19 } else {
  20     puts "Reading ${BugNumber} OK"
  21     tpcompound r
  22     fixshape result r
  23     checkshape result
  24 }
  25
  26 checkview -display result -2d -path ${imagedir}/${test_image}.png