mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
355c155147
Modified END file of all group bugs. Command nbshape moved to END file. Add begin with variable subgroup Small correction in END file Replaced test case bug726_3 from moddata to modalg
32 lines
753 B
Plaintext
Executable File
32 lines
753 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 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"
|
|
}
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|
|
|