% --- start of displayed preamble in the book --- input graph path m; numeric n,width; width:=20; defaultscale:=0.6; n:=0; def bar(expr name,value) = gfill(n,0)--(n,value)--(n+width,value)--(n+width,0)--cycle withcolor (value/100,value/100,value/100); picture p; p = name infont defaultfont scaled defaultscale rotated 90; glabel.rt(image(unfill bbox p; draw p),(n,10)); n:=n+width; enddef; % --- end of displayed preamble in the book --- defaultfont:="ptmr8r"; warningcheck:=0; beginfig(1) draw begingraph(2.5in,1.75in); setrange((0,0),(11*width,100)); autogrid(,otick.lft); gdata("chap.dat",c,bar(c1,(scantokens c2));); endgraph; endfig; end;