puts "========================"
puts " BUC60977 "
puts " OCC358 "
puts "========================"
#####
puts "The helical pipe is not shaded in AISViewer"
#####

restore [locate_data_file OCC358a.brep] f 
checkshape f

restore [locate_data_file OCC358b.brep] w
checkshape w

pipe result w f

vinit
vdisplay result
vfit
vsetdispmode result 1

checktrinfo result -tri 8970 -nod 4919
checkprops result -s 24861.2 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png