summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/3-2-7.mp
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;