define Box % [box wid $2 ht $3 $1] % define Square % [box wid $2 ht $2 $1] % define Circle % [circle rad $2/2; $1 at last circle.c] % define Ellipse % [ellipse wid $2 ht $3 $1] % define Diamond % [move down $3/2; line up $3/2 right $2/2 then up $3/2 left $2/2 then down $3/2 left $2/2 then down $3/2 right $2/2; move up $3/2; $1;] % define Doublecircle % [circle rad $2/2; circle rad .9*$2/2 at last circle.c; $1 at last circle.c] % define Plaintext % [box invis wid $2 ht $3 $1] %