% --- start of displayed preamble in the book ---
input cmarrows
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
numeric i;i=0;
  string lab;
  forsuffixes n=Bigbrace,Biggbrace,bigbrace, biggbrace, extensiblebrace,
    doublearrow, twoheadarrow, twowayoldarrow,
    twowayarrow, twowaydoublearrow, hookrightarrow, hookleftarrow:
    i:=i+1;
    lab:=str n;
    setup_cmarrows(
      arrow_name = str n;
      parameter_file =  "cmr10.mf";
      macro_name = str n);
    n (0,-i*5mm)--(2cm,-i*5mm);
    label.rt(lab,(2.2cm,-i*5mm));
  endfor;
  i:=0;
  forsuffixes n=
    lefthalfarrow, righthalfarrow,
    parallelarrows, paralleloppositearrows,
    paralleloppositerighthalfarrows, paralleloppositelefthalfarrows,
    mapstoarrow, oldtexarrow,
    shortaxisarrow, texarrow, tailarrow,
    tripplearrow:
    i:=i+1;
    lab:=str n;
    setup_cmarrows(
      arrow_name = str n;
      parameter_file =  "cmr10.mf";
      macro_name = str n);
    n (6cm,-i*5mm)--(8cm,-i*5mm);
    label.rt(lab,(8.2cm,-i*5mm));
  endfor;
endfig;
end;