summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/7_1/0-3-12.mp
diff options
context:
space:
mode:
Diffstat (limited to 'usergrps/uktug/baskervi/7_1/0-3-12.mp')
-rw-r--r--usergrps/uktug/baskervi/7_1/0-3-12.mp22
1 files changed, 22 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/7_1/0-3-12.mp b/usergrps/uktug/baskervi/7_1/0-3-12.mp
new file mode 100644
index 0000000000..276cfa4647
--- /dev/null
+++ b/usergrps/uktug/baskervi/7_1/0-3-12.mp
@@ -0,0 +1,22 @@
+input graph
+defaultfont:="ptmr8r";
+warningcheck:=0;
+beginfig(1)
+def sq(expr x,y,num,perc) =
+ gfill(x,y)--(x+10,y)--
+ (x+10,y+10)--(x,y+10)--cycle
+ withcolor (perc/100,perc/100,perc/100);
+ glabel(num,(x+5,y+5))
+ if perc < 50: withcolor white fi;
+enddef;
+defaultscale:=0.7;
+draw begingraph(70mm,80mm);
+setrange((20,10),(110,110));
+autogrid(,);
+gdata ("pot.dat",c,
+ sq((scantokens c1)*10,
+ (scantokens c2)*10,
+ c3, (scantokens c4)););
+endgraph;
+endfig;
+end;