summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/D-3-1.mp
blob: 4e4ee328ff8b4817060cdd86b92f39852fd821ca (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
% --- start of displayed preamble in the book ---

% --- end of displayed preamble in the book ---

defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
pickup pencircle scaled 4pt
   yscaled .2pt rotated 60;
n:=4;
for i := (n*20) step -(n) until (n):
 c:=((n*20)-i)/(n*2);
 draw (i,0)..(0,i)..(-i,0)
      ..(0,-(i-n))..(i-n,0)
 withcolor ((100-i)/100,i/100,0);
endfor
endfig;
end;