summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-19.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-19.mp')
-rw-r--r--Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-19.mp23
1 files changed, 23 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-19.mp b/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-19.mp
new file mode 100644
index 00000000000..7b1ef7b0b12
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-19.mp
@@ -0,0 +1,23 @@
+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;