summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/7_1/0-0-10.mp
diff options
context:
space:
mode:
Diffstat (limited to 'usergrps/uktug/baskervi/7_1/0-0-10.mp')
-rw-r--r--usergrps/uktug/baskervi/7_1/0-0-10.mp29
1 files changed, 29 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/7_1/0-0-10.mp b/usergrps/uktug/baskervi/7_1/0-0-10.mp
new file mode 100644
index 0000000000..b6f86c9ee2
--- /dev/null
+++ b/usergrps/uktug/baskervi/7_1/0-0-10.mp
@@ -0,0 +1,29 @@
+input graph
+defaultfont:="ptmr8r";
+warningcheck:=0;
+beginfig(1)
+path m[],w[];
+def wcheck(expr decade,value) =
+ augment.w1(decade,0);
+ augment.w1(decade,value);
+ augment.w1(decade+5,value);
+ augment.w1(decade+5,0);
+enddef;
+def mcheck(expr decade,value) =
+ augment.m1(decade+5,0);
+ augment.m1(decade+5,value);
+ augment.m1(decade+10,value);
+ augment.m1(decade+10,0);
+enddef;
+draw begingraph(3.75in,2in);
+gdata ("decade.dat",y,
+ wcheck((scantokens y1),(scantokens y2));
+ mcheck((scantokens y1),(scantokens y3)););
+gfill m1--cycle;
+gdraw w1;
+glabel.bot (btex Number of burials per decade
+ ($n \approx 4300$) etex,OUT);
+frame.llft;
+endgraph rotated 90;
+endfig;
+end;