summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/latex-graphics-companion/3-2-2.mp
blob: 071f6414c2b30cbac828237927ec826813eb46da (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
defaultscale:=1.4;         u=1pt;
picture p,q;               gap:=18u;
for i := 0 upto 6:
 z[i]=(0u,i * gap * u);
endfor;
draw z0--z6;
dotlabels.lft(0,1,2,3,4,5,6);
q=thelabel.urt(btex Poly\TeX etex ,z0);
draw q;
draw q reflectedabout(z0,z0+(2u,0));
draw q shifted(0,gap) withcolor red;
fill bbox q shifted(0,2*gap*u) withcolor green;
draw q shifted(0,2*gap*u) withcolor white;
draw q scaled 2 shifted(0,5*gap*u);
p=q rotatedabout(z0,45);
draw p shifted(10u,3*gap*u);
draw bbox currentpicture withcolor green;
endfig;
end;