# Original bug : ger60224
# Date : 24June98

restore [locate_data_file CTO900_ger60224-part.rle] a 
restore [locate_data_file ger60224-tool.rle] w

mkplane w w
prism p1 w 0 100 0
prism p2 w 0 -100 0

bfuse b p1 p2

bcut result a b
checkprops result -s 60037.4
checkview -display result -2d -s -otherwise { a b } -path ${imagedir}/${test_image}.png