tests/bugs/iges/bug28694_9

   1 puts "TODO OCC28694 ALL: ERROR: OCC28694 is reproduced."
   2
   3 puts "========"
   4 puts "OCC28694"
   5 puts "========"
   6 puts ""
   7 ###############################################################
   8 # IGES reader produces too small edge covered by its vertices
   9 ###############################################################
  10
  11 igesbrep [locate_data_file TibTray_Size3.igs] r *
  12
  13 foreach e [explode r e] {
  14   if {[lsearch [dump $e] degenerated] == -1 && [validrange $e] == "edge has no valid range"} {
  15     regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
  16     regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
  17     puts "ERROR: OCC28694 is reproduced. Edge $e (length=$len, tolerance=$tol) is too small"
  18   }
  19 }