% --- start of displayed preamble in the book --- input expressg % --- end of displayed preamble in the book --- defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) z0=origin; drawcardbox(0, 3cm, 1cm, 3mm) (btex Card text etex); z1=(1.5cm,-1cm); drawdiamondbox(1, 2cm, 1cm) (btex jewel etex); z2=(3.5cm,-1.5cm); drawindexbox(2, 3cm, 2cm, 1cm, 5mm) (btex pack etex); endfig; end;