1 puts "TODO OCC12345 ALL: Faulty OCC448: shape number is wrong"
7 ############################################
8 ## wrong translation IGES file in "Only visible" mode
9 ############################################
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"
16 set ll [llength $list]
17 set NbShapes [lindex $list [expr $ll - 1]]
20 # ATANTION!!!!!!! FOR TESTING !!!!!!!
23 if { $NbShapes != $GoodNbShapes } {
24 puts "NbShapes=$NbShapes"
25 puts "GoodNbShapes=$GoodNbShapes"
26 puts "Faulty OCC448: shape number is wrong"
30 checkview -display result -2d -path ${imagedir}/${test_image}.png