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-1-8.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-1-8.mp')
-rw-r--r-- | Master/texmf-dist/doc/latex/latex-graphics-companion/3-1-8.mp | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/latex-graphics-companion/3-1-8.mp b/Master/texmf-dist/doc/latex/latex-graphics-companion/3-1-8.mp new file mode 100644 index 00000000000..16450d947c0 --- /dev/null +++ b/Master/texmf-dist/doc/latex/latex-graphics-companion/3-1-8.mp @@ -0,0 +1,30 @@ + +defaultfont:="ptmr8r"; +warningcheck:=0; +beginfig(1) +boolean timetofillbox; timetofillbox := true; +partway := 0.9; +l := .75in; u := 1.75in; n := 4; +theta := 360/n; +z1 = (0,u); +for i := 2 upto n: z[i] = z1 rotated ((i-1)*theta); endfor +forever: + path p; + p := z1 + for j := 2 upto n: --z[j] endfor --cycle; + if timetofillbox: + fill p; + timetofillbox := false; + else: + unfill p; + timetofillbox := true; + fi + pair Z[]; + for j := 1 upto n: Z[j] := partway[z[j-1],z[j]]; endfor + Z1 := partway[z[n],z1]; + for j := 1 upto n: x[j] := xpart Z[j]; y[j] := ypart Z[j]; endfor + if not timetofillbox: l := abs(z1); fi + exitif l < .05u; +endfor +endfig; +end; |