diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /info/examples/lgc/12-0-4.mp |
Initial commit
Diffstat (limited to 'info/examples/lgc/12-0-4.mp')
-rw-r--r-- | info/examples/lgc/12-0-4.mp | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/info/examples/lgc/12-0-4.mp b/info/examples/lgc/12-0-4.mp new file mode 100644 index 0000000000..4f2e95623e --- /dev/null +++ b/info/examples/lgc/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; |