tests/bugs/iges/bug60820_1

   1 puts "========================"
   2 puts "BUC60820"
   3 puts "========================"
   4
   5 igesbrep [locate_data_file buc60820.igs] a *
   6
   7 tpcompound result
   8
   9 puts [checkshape result r]
  10
  11 tclean result
  12 incmesh result 0.1
  13 triangles result
  14 set info [trinfo result]
  15 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  16 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  17
  18 if { $tri <= 0 || $nod <= 0 } {
  19     puts "Error : Problems with shading"
  20 }
  21
  22 set 2dviewer 0