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

defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
u=1cm;
path p[];
p1:=(.5u,.5u)--(1.5u,.5u)--(.5u,1.5u)
 --(1.5u,1.5u)--(.5u,.5u)--cycle;
fill (p1 shifted (0,2.5u))
 rotatedaround ((u,3.5u),90);
draw p1 shifted (u,4u);
fill p1 shifted (3.5u,3u);
p2 =(2u,2u)..(u,3.5u)..(2u,5u)
 ..(4.5u,4u)..(7u,5u);
pickup pencircle scaled 4pt;
draw p2;
endfig;
end;