Initial commit

1 files changed, 24 insertions, 0 deletions

diff --git a/info/examples/lgc/3-3-15.mp b/info/examples/lgc/3-3-15.mp
new file mode 100644
index 0000000000..79bf68da1d
--- /dev/null
+++ b/info/examples/lgc/3-3-15.mp
@@ -0,0 +1,24 @@
+input graph
+defaultfont:="ptmr8r";
+warningcheck:=0;
+beginfig(1)
+path m; numeric n,width;
+width:=20; defaultscale:=0.6; n:=0;
+def bar(expr name,value) =
+ gfill(n,0)--(n,value)--
+ (n+width,value)--(n+width,0)--cycle
+ withcolor (value/100,value/100,value/100);
+ 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.5in,1.75in);
+setrange((0,0),(11*width,100));
+autogrid(,otick.lft);
+gdata("chap.dat",c,bar(c1,(scantokens c2)););
+endgraph;
+endfig;
+end;