diff options
Diffstat (limited to 'Master/texmf-dist/doc/latex/latex-graphics-companion/12-0-4.mp')
-rw-r--r-- | Master/texmf-dist/doc/latex/latex-graphics-companion/12-0-4.mp | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-graphics-companion/12-0-4.mp b/Master/texmf-dist/doc/latex/latex-graphics-companion/12-0-4.mp new file mode 100644 index 00000000000..4f2e95623e3 --- /dev/null +++ b/Master/texmf-dist/doc/latex/latex-graphics-companion/12-0-4.mp @@ -0,0 +1,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; |