tests/bugs/iges/bug60820_2

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