File: 3-2-2.mp

package info (click to toggle)
texlive-doc 2005.dfsg.2-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 125,100 kB
  • ctags: 12,558
  • sloc: xml: 24,267; perl: 14,394; makefile: 727; sh: 324; lisp: 276; java: 159; sed: 4
file content (23 lines) | stat: -rw-r--r-- 576 bytes parent folder | download | duplicates (11) 
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;