summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/4-3-1.mp
blob: d0343b2d2c2eac80155a7b308b8b1d632ff72440 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
% --- start of displayed preamble in the book ---
input metaobj
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
newBox.a(btex Input etex);
a.c=origin;
newEllipse.b(btex what ? etex)
   "framestyle(dashed evenly)";
a.s-b.n=(0,5mm);
newCircle.c(btex no! etex);
c.w-b.e=(1cm,0);
newPolygon.d(btex five etex,5)
   "fit(false)", "polymargin(2mm)";
c.s-d.n=(0,1cm);
ncbar(a)(d) "angleA(180)", "armA(1cm)";
drawObj(a,b,c,d);ncline(a)(b);
ncline(b)(c);ncline(c)(d);
endfig;
end;