functional language for computing with geometry
DEF mypol1 =
(T:<1,2>:<-5,-5> ~ CUBOID):<10,10>;
DEF mypol2 =
S:<1,2>:<0.9,0.9>: mypol1;
DEF mypol3 = mypol1 - mypol2;
DEF out = STRUCT:<
EX:<0,10>: mypol3, T:1:12 ,
LEX:<0,10>: mypol3, T:1:25 ,
(S:3:3 ~ SEX:<0,PI>:16): mypol3
>;