puts "TODO OCC12345 ALL: Faulty OCC448: shape number is wrong"

puts "========"
puts " OCC448 "
puts "========"
puts ""
############################################
## wrong translation IGES file in "Only visible" mode
############################################

set filepath [locate_data_file Amino_172448-65210.igs]
if [catch { set list [igesbrep $filepath a * ] } res] {
    puts "Faulty OCC448: here is reading problem"
} else {
    tpcompound result
    set ll [llength $list]
    set NbShapes [lindex $list [expr $ll - 1]]

  #
  # ATANTION!!!!!!! FOR TESTING !!!!!!!
  #
    set GoodNbShapes 1
    if { $NbShapes != $GoodNbShapes } {
	puts "NbShapes=$NbShapes"
	puts "GoodNbShapes=$GoodNbShapes"
	puts "Faulty OCC448: shape number is wrong"
    }
}

checkview -display result -2d -path ${imagedir}/${test_image}.png


