e54706ed |
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 | |
5d1833ef |
11 | set filepath [locate_data_file Amino_172448-65210.igs] |
12 | if [catch { set list [igesbrep $filepath a * ] } res] { |
e54706ed |
13 | puts "Faulty OCC448: here is reading problem" |
14 | } else { |
15 | tpcompound result |
355c1551 |
16 | set ll [llength $list] |
17 | set NbShapes [lindex $list [expr $ll - 1]] |
e54706ed |
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 | |
5747059b |
30 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
e54706ed |
31 | |
355c1551 |
32 | |