puts "========================"
puts "BUC60624"
puts "========================"

stepread [locate_data_file buc60624a.stp] a *

tpcompound result
puts [checkshape result]

set 2dviewer 0