summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-05-23 00:23:51 +0000
committerKarl Berry <karl@freefriends.org>2009-05-23 00:23:51 +0000
commita683c3d7e9fac38ec713f23fb6b9d2c7143aea82 (patch)
tree424ab223921f85fd3f167a4ccd0e2d37d05c2927 /Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp
parent5beb5368a684995153c8566797ba054f21c666af (diff)
move english latex doc out of texmf-doc
git-svn-id: svn://tug.org/texlive/trunk@13412 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp')
-rw-r--r--Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp33
1 files changed, 33 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp b/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp
new file mode 100644
index 00000000000..b8ce2ff6222
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp
@@ -0,0 +1,33 @@
+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,0.8-(perc/100),0);
+ 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;