functional language for computing with geometry
DEF out = QUOTE:<3.5> * carQueue:5
WHERE
car = (T:2:0.5 ~ STRUCT):< body, T:1:1.5:wheel, T:1:6:wheel >
body = MKPOL:<verts, cells, pols >,
verts = <<0,0>,<3,0>,<7,0>,<6,2>,<4,2>,<3,1>,<1,1>>,
cells = <<1,2,6,7>,<2,3,4,5,6>>,
pols = <<1,2>>,
wheel = S:<1,2>: <0.5,0.5>:(Circle:1:<18,1>)
END,
carQueue (n::IsInt) = (STRUCT~##:n): < car, T:1:(1.2 * (SIZE:1:car)) >
END;
