functional language for computing with geometry
DEF TrellisMed3D = (T:2:-0.25 ~ S:2:0.5 ~ OffSet:<1,1,1> ~ Trellis):<hcol,r2 - r0>;
DEF TheMedTrellis = T:3:(hcol+3): TrellisMed3D;
DEF MedTrellis = Radial:24: (T:1:r0:TheMedTrellis);
DEF DoubleMedTrellis = STRUCT: <MedTrellis, R:<1,2>:(PI/24), MedTrellis >;