% --- 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;