functional language for computing with geometry
DEF out = STRUCT:<
MAP:ru0:(intervals:1:12),
MAP:ru1:(intervals:1:12),
MAP:r0v:(intervals:1:12),
MAP:r1v:(intervals:1:12)
>
WHERE
ru0 = BezierCurve:<<0,0,0>,<10,0,0>>,
ru1 = BezierCurve:<<0,10,0>,<2.5,10,3>,<5,10,-3>,<7.5,10,3>,<10,10,0>>,
r0v = BezierCurve:<<0,0,0>,<0,0,3>,<0,10,3>,<0,10,0>>,
r1v = BezierCurve:<<10,0,0>,<10,5,3>,<10,10,0>>
END;
