# 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

set square 60037.4
