functional language for computing with geometry
DEF out = STRUCT:
< (T:1:(1.2 * SIZE:1:House): (OffSet:<0.1,0.2,0.1>:House)), House >
WHERE
House = MKPOL:< verts, cells, pols >
verts = <
<0,0,0>,<3,0,0>,<3,2,0>,<0,2,0>,
<0,0,1.5>,<3,0,1.5>,<3,2,1.5>,<0,2,1.5>,
<0,1,2.2>,<3,1,2.2>
>,
cells = <
<1,2>,<2,3>,<3,4>,<4,1>,
<5,6>,<6,7>,<7,8>,<8,5>,
<1,5>,<2,6>,<3,7>,<4,8>,
<5,9>,<8,9>,<6,10>,<7,10>, <9,10>
pols = <1..17>
END
END;
