
puts "========================"
puts " OCC422 "
puts "(case 2)"
puts "========================"
puts ""

plane ps 10 -3 0  1 0 0  0 .2 1
psphere ps ps 20
profile pf o 5 1 5 l 10 c 2 90 l 5 d -1 0 \
l 14 d 0 -1 l 5 c 2 90
prism pr pf 0 0 30
bfuse f ps pr
nexplode f f

depouille result f 0 0 1 f_4 4 0 0 30 0 0 1

checkprops result -s 5719.09 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
