mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
33 lines
827 B
Plaintext
Executable File
33 lines
827 B
Plaintext
Executable File
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
|
|
|
|
|