tests/bugs/modalg_2/bug5157_1

   1 puts "============"
   2 puts "OCC5157"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # DRAW commands vprops and sprops with tolerance 1.e-6 hange on attached shape.
   7 ######################################################
   8
   9 cpulimit 3500
  10 #dchrono h reset; dchrono h start
  11
  12 catch { pload XDE }
  13
  14 set BugNumber OCC5157
  15
  16 set status 0
  17 set filepath [locate_data_file OCC5157.stp]
  18 if {[catch { stepread $filepath a * } catch_result] } {
  19     puts "Faulty ${BugNumber} : here is reading problem"
  20 } else {
  21     tpcompound result
  22 }
  23
  24 set tol_square 1.e-6
  25 set square 35273.9
  26 set 2dviewer 0
  27
  28