summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-graphics-companion/3-1-8.mp
diff options
context:
space:
mode:
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.mp30
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;