#I2----------------------------------------------
polyline p 0 0 10  0 0 0  20 0 0  20 0 10  
beziercurve bc 4  20 0 10  15 0 11  5 0 9  0 0 10
mkedge bc bc
wire p p bc
mkplane p p
prism p p 0 20 0
plane pc 10 10 0 0 0 1
pcylinder pc pc 5 20
bfuse f p pc
nexplode f f
depouille result f 0 0 1 f_7 5 0 0 20 0 0 1

set square 1994.6