functional language for computing with geometry
DEF basisSector = (cylMap ~ EMBED:1):(Intervals:(2*PI/12):4 * Intervals:(r4 - (wstep*(nsteps - 1))):1);
DEF basis = (STRUCT ~ ##:12):<basisSector, R:<1,2>:(2*PI/12)>;
DEF basement = (R:<1,2>:(PI/-48) ~ STRUCT):< stairs, T:3:(hstep*nsteps), basis >;