beziercurve w1 5 0 0 0 20 0 0 20 5 0 25 10 0 10 20 0
mkedge w1 w1 
polyline w2 10 20 0 0 10 0 0 0 0
wire w w1 w2
mkplane w w
prism s w -2 7 10

OFFSETSHAPE 1 {s_4 s_5} $calcul $type

checkprops result -v 765.617
