functional language for computing with geometry
DEF out = MAP: (CoonsPatch:<ru0,ru1,r0v,r1v>): (Domain2D:<12,12>)
WHERE
Domain2D (n,m::IsIntPos) = Intervals:1:n * Intervals:1:m,
ru0 = BezierCurve:<<0,0,0>,<10,0,0>> (AA:COMP ~DISTR) [S1],
ru1 = BezierCurve:<<0,10,0>,<2.5,10,3>,<5,10,-3>,<7.5,10,3>,<10,10,0>> (AA:COMP ~DISTR) [S1],
r0v = BezierCurve:<<0,0,0>,<0,0,3>,<0,10,3>,<0,10,0>> (AA:COMP ~DISTR) [S2],
r1v = BezierCurve:<<10,0,0>,<10,5,3>,<10,10,0>> (AA:COMP ~DISTR) [S2]
END;
