summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-graphics-companion/12-0-4.mp
blob: 4f2e95623e34a522c42d90426f03e6cc1de4fc3e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
input graph
path m;
numeric n,width;
width:=20;
defaultscale:=0.6;
n:=0;
def bar(expr name,value,r,g,b) =
 path q;
 q:=(n,0)--(n,value)--
 (n+width,value)--(n+width,0)--cycle;
 gfill q withcolor (r,g,b);
 gdraw q;
 picture p;
 p = name infont defaultfont
     scaled defaultscale
     rotated 90;
 glabel.rt(image(unfill bbox p; draw p),(n,10));
 n:=n+width;
enddef;
draw begingraph(2.4in,1.75in);
setrange((0,0),(11*width,100));
drawoptions(withcolor red);
autogrid(,otick.lft);
drawoptions();
gdata ("chap.dat",c,
  bar(c1,(scantokens c2),
(scantokens c3),(scantokens c4),(scantokens c5)););
endgraph;
endfig;
end;