summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/4-1-20.mp
blob: 40205dca97d72db0e2b6c823d6840e159c0ad03c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
% --- 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("(this is a PostScript comment!)");
  z0=origin;
  z1-z0=(u,u);
  z2-z1=(-u,-.5u);
  draw z0..z1{dir-50}..z2;
  special("(this is another PostScript comment!)");
  special("(z2 will be located at ("
    & decimal x2 & "," & decimal y2 & "))");
endfig;
end;