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

% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
path p,q;
u=.5cm;
q=(0u,0u)--(6u,0u)--(4u,3u);
draw q;
p=(0u,0u){curl 4000}..(6u,0u)
  ..{curl 4000}(4u,3u);
draw p;
endfig;
end;