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

% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
  numeric u;
  u=3cm;
  special("0 0.5 dtransform truncate " &
          "idtransform setlinewidth pop []");
  special("0 setdash");
  special("1 setlinecap 1 setlinejoin ");
  special("10 setmiterlimit");
  special("newpath 0 0 moveto");
  special("-67.28128 56.4566 28.58275 " &
          "152.32063 85.03935 85.03935 curveto");
  special("138.11453 21.78784 18.75612 " &
          "-37.89137 0 42.51967");
  special("curveto stroke");
  setbounds currentpicture
      to ((-24,-1)--(256,-1)
          --(256,109)--(-24,109)--cycle);
endfig;
end;