blob: c8b98467f7e8cbe64f63df62275fe8155b00472e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
% --- start of displayed preamble in the book ---
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
draw (0,0)..(1cm,0)..(2cm,1cm)..(3cm,3cm);
draw (0,0)--(3cm,3cm);
picture p;
p=currentpicture;
for i within p:
if stroked i:
if length(pathpart i)>2:
draw pathpart i withcolor blue;
fi
fi
endfor;
endfig;
end;
|