puts "=================================="
puts "BUC60661"
puts "It takes visual check for this BUG"
puts "=================================="
puts ""

pload XDE

##################################################################
##DESCRIPTION: It is impossible to nominate "sheding" mode in 3D-viewer for the some shapes in
##  C30 (SUN station), which were stored in "IGES" format previousl and then were retrieved again 
## into "BREP" format. 
##################################################################

restore [locate_data_file buc60661a.brep] buc60661
checkshape buc60661

######################################################################
file delete ${imagedir}/buc60661.igs } 
brepiges buc60661 ${imagedir}/buc60661.igs
######################################################################

dall

if [catch { igesbrep ${imagedir}/buc60661.igs a * } res] {
  puts "Faulty BUC60661: here is reading problem of iges file"
} else {
  puts "Reading of iges in BUC60661 is OK"
}

tpcompound result
checkshape result

vinit
tclean result
vdisplay result
vsetdispmode result 1

checktrinfo result -tri -nod
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
