# Original bug : fra60275
# Date : 19Mai98

# for "sfixpcu" command
pload XSDRAW

restore [locate_data_file CTO904_fra60275a.rle] a
restore [locate_data_file fra60275b.rle] b

sfixpcu a a -f
sfixpcu b b -f

checkshape a
checkshape b

tcopy  b w
mkplane f w

prism pp f 0 0 100

bop a pp
bopsection result

set length 539.158