mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-06 10:36:12 +03:00
31 lines
760 B
Plaintext
Executable File
31 lines
760 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
|
|
############################################
|
|
|
|
if [catch { set list [igesbrep [locate_data_file Amino_172448-65210.igs] a * ] } res] {
|
|
puts "Faulty OCC448: here is reading problem"
|
|
} else {
|
|
tpcompound result
|
|
set length [llength $list]
|
|
set NbShapes [lindex $list [expr $length - 1]]
|
|
|
|
#
|
|
# ATANTION!!!!!!! FOR TESTING !!!!!!!
|
|
#
|
|
set GoodNbShapes 1
|
|
if { $NbShapes != $GoodNbShapes } {
|
|
puts "NbShapes=$NbShapes"
|
|
puts "GoodNbShapes=$GoodNbShapes"
|
|
puts "Faulty OCC448: shape number is wrong"
|
|
}
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|