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

% --- end of displayed preamble in the book ---
% graphic converted to gray in book using 'color2gray'
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
numeric u;
u=5mm;
path p[];
p1=fullcircle scaled 5u;
p2=unitsquare scaled 3u shifted (0,5u);
draw p2;
draw p1 withcolor red;
draw interpath(.1,p1,p2) withcolor .25[red,green];
draw interpath(.25,p1,p2) withcolor .5[red,green];
draw interpath(.5,p1,p2) withcolor green;
draw interpath(.75,p1,p2) withcolor .5[green,black];
draw interpath(.9,p1,p2) withcolor .7[green,black];
endfig;
end;