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
   9 pload XDE
  10
  11 cpulimit 2500
  12
  13 set BugNumber OCC210
  14
  15 if [catch { stepread [locate_data_file UKI60591.stp] a * } result] {
  16     puts "Faulty ${BugNumber}: here is reading problem"
  17 } else {
  18     puts "Reading ${BugNumber} OK"
  19     tpcompound r
  20     fixshape result r
  21     checkshape result
  22 }
  23
  24 set 2dviewer 0