# Original bug : pro7637
# Date : 16apr97

dset SCALE 100
## Prismed oblong creation (size 200 mm)
profile f1 c 50*SCALE 180 x -100*SCALE c 50*SCALE 180
prism p1 f1 0 0 30*SCALE

## Box creation (size 300 mm)
profile f2 x 300*SCALE y 200*SCALE x -300*SCALE
ttranslate f2 -200*SCALE -50*SCALE 0
prism p2 f2 0 0 -50*SCALE

bfuse result p2 p1

checkprops result -s 1.85425e+09
checkview -display result -2d -otherwise { p2 p1 } -s -path ${imagedir}/${test_image}.png