diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /usergrps/uktug/baskervi/7_1/0-3-12.mp |
Initial commit
Diffstat (limited to 'usergrps/uktug/baskervi/7_1/0-3-12.mp')
-rw-r--r-- | usergrps/uktug/baskervi/7_1/0-3-12.mp | 22 |
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; |