puts "============"
puts "BUC60875"
puts "OCC78"
puts "============"
puts ""
###############################
## Pipe is created incorrectly on two wires
###############################

#datadir /disk4/QA/hotline/GRIDS/chl/data
restore [locate_data_file BUC60875_wire.brep] w 
restore [locate_data_file BUC60875_profile.brep] p
checkshape w
checkshape p

pipe result w p
checkprops result -s 10191.8 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png