functional language for computing with geometry
DEF CurveAndPolyline (ControlPoints::IsSeq) = STRUCT:< polyline:ControlPoints, MAP:(Bezier:S1:ControlPoints): (Intervals:1:30) >;
CurveAndPolyline:<<0,0,0>,<1,0,0>,<1,0,1>,<1,1,1>,<1,1,0>,<0,1,0>>;