tests/bugs/iges/bug448

   1 puts "TODO OCC12345 ALL: Faulty OCC448: shape number is wrong"
   2
   3 puts "========"
   4 puts " OCC448 "
   5 puts "========"
   6 puts ""
   7 ############################################
   8 ## wrong translation IGES file in "Only visible" mode
   9 ############################################
  10
  11 set filepath [locate_data_file Amino_172448-65210.igs]
  12 if [catch { set list [igesbrep $filepath a * ] } res] {
  13     puts "Faulty OCC448: here is reading problem"
  14 } else {
  15     tpcompound result
  16     set ll [llength $list]
  17     set NbShapes [lindex $list [expr $ll - 1]]
  18
  19   #
  20   # ATANTION!!!!!!! FOR TESTING !!!!!!!
  21   #
  22     set GoodNbShapes 1
  23     if { $NbShapes != $GoodNbShapes } {
  24         puts "NbShapes=$NbShapes"
  25         puts "GoodNbShapes=$GoodNbShapes"
  26         puts "Faulty OCC448: shape number is wrong"
  27     }
  28 }
  29
  30 set 2dviewer 0
  31
  32