functional language for computing with geometry
DEF displaygraph (n::IsInt)(f::IsFun) =
STRUCT ~ [polyline, polymarker:n] ~ AA:[ID,f];
DEF out = (STRUCT
~ [displaygraph:1:SIN, displaygraph:2:COS, displaygraph:3:(SIN * COS)]
~ C:AL:0 ~ progressiveSum ~ #:32): (2*PI/32);
