summaryrefslogtreecommitdiff
path: root/info/examples/lgc/12-0-4.mp
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /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.mp34
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;