tests/bugs/iges/bug272_3

   1 puts "========"
   2 puts "OCC272"
   3 puts "========"
   4
   5 igesbrep [locate_data_file 919-004-T02-01-FT-VL.igs] a *
   6
   7 tpcompound result
   8 puts [checkshape result]
   9 puts [checkshape result r]
  10
  11 if { [llength [whatis result]] == 3 } {
  12     puts "Error : There is no result"
  13 }
  14
  15 set 2dviewer 0
  16