summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/D-3-4.mp
diff options
context:
space:
mode:
Diffstat (limited to 'info/examples/lgc2/D-3-4.mp')
-rw-r--r--info/examples/lgc2/D-3-4.mp36
1 files changed, 36 insertions, 0 deletions
diff --git a/info/examples/lgc2/D-3-4.mp b/info/examples/lgc2/D-3-4.mp
new file mode 100644
index 0000000000..80af1fc961
--- /dev/null
+++ b/info/examples/lgc2/D-3-4.mp
@@ -0,0 +1,36 @@
+% --- start of displayed preamble in the book ---
+
+% --- end of displayed preamble in the book ---
+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;