tests/bugs/iges/buc60823

   1 puts "========================"
   2 puts "BUC60823"
   3 puts "========================"
   4
   5 igesbrep [locate_data_file buc60823.igs] a *
   6
   7 tpcompound result
   8 checkshape result
   9 checkshape result r
  10
  11 tclean result
  12 vinit
  13 vdisplay result
  14 vsetdispmode result 1
  15 vfit
  16
  17 set info [trinfo result]
  18 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  19 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  20
  21 if { $tri != 17618 || $nod != 11153 } {
  22     puts "Shading problem may be, nb tri & nod are changed"
  23 }
  24
  25 set 2dviewer 0
  26