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

% --- end of displayed preamble in the book ---

  newCircle.a(btex start etex);
  newCircle.b(btex end etex);
  a.c=origin;
  b.c-a.c=(3cm,1cm);

defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
ncloop(a)(a)
  "angleA(0)", "armA(1cm)", "offsetA((0,2mm))",
  "angleB(0)", "armB(1cm)", "offsetB((0,-3mm))",
  "linecolor(blue)","linewidth(1pt)",
  "loopsize(1cm)";
drawObj(a);
endfig;
end;