diff options
author | Karl Berry <karl@freefriends.org> | 2009-05-23 00:23:51 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-05-23 00:23:51 +0000 |
commit | a683c3d7e9fac38ec713f23fb6b9d2c7143aea82 (patch) | |
tree | 424ab223921f85fd3f167a4ccd0e2d37d05c2927 /Master/texmf-dist/doc/latex/latex-graphics-companion/3-3-17.mp | |
parent | 5beb5368a684995153c8566797ba054f21c666af (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.mp | 33 |
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; |