From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- usergrps/uktug/baskervi/7_1/0-3-10.mp | 34 ++++++++++++++++++++++++++++++++++ 1 file changed, 34 insertions(+) create mode 100644 usergrps/uktug/baskervi/7_1/0-3-10.mp (limited to 'usergrps/uktug/baskervi/7_1/0-3-10.mp') diff --git a/usergrps/uktug/baskervi/7_1/0-3-10.mp b/usergrps/uktug/baskervi/7_1/0-3-10.mp new file mode 100644 index 0000000000..3784d00cff --- /dev/null +++ b/usergrps/uktug/baskervi/7_1/0-3-10.mp @@ -0,0 +1,34 @@ +input graph +defaultfont:="ptmr8r"; +warningcheck:=0; +beginfig(1) +numeric r,last; path c,w; +r:=5; c:=fullcircle scaled 2r; +last:=0.0; +def wedge (expr lang,value,perc) = + numeric current,n,half,xoff,yoff; + picture p; + n:=perc*3.6; + current:=last+n; half:=last+(n/2); + w:=buildcycle((0,0)--(2r,0) rotated last, + c, (2r,0)--(0,0) rotated current); + gfill w withcolor + (0.8-(perc/100),0.8-(perc/100),0.8-(perc/100)); + gdraw w; + if perc > 5: + p = lang infont defaultfont + scaled defaultscale; + glabel(image(unfill bbox p; draw p), + 3/4r*dir(half)); + fi; + last:=current; +enddef; +draw begingraph(3in,3in); +defaultscale:=0.7; +gdata ("langs.dat",c, + wedge(c1, (scantokens c2), + (scantokens c3));); +autogrid(,); frame withcolor white; +endgraph; +endfig; +end; -- cgit v1.2.3