File: 3-1-8.mp

package info (click to toggle)
texlive-lang 2016.20170123-5
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 1,093,148 kB
  • ctags: 15,901
  • sloc: perl: 46,074; xml: 29,603; makefile: 5,248; sh: 3,179; python: 2,949; ansic: 2,846; ruby: 945; lisp: 726; awk: 636; java: 159; sed: 142; cpp: 12
file content (30 lines) | stat: -rw-r--r-- 651 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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;