summaryrefslogtreecommitdiff
path: root/info/examples/lgc2/4-1-8.mp
blob: 06dc8fa20bc48b1064c56de1b8576ff3344097c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
% --- start of displayed preamble in the book ---
def square=(unitsquare
    shifted (-.5,-.5) scaled 3mm)
enddef;
def circle=(fullcircle scaled 3mm) enddef;
% --- end of displayed preamble in the book ---
defaultfont:="ptmr8r";
warningcheck:=0;
beginfig(1)
for i=0 upto 4:
  for j=0 upto 4:
    if odd(i+j):
      draw square shifted (i*6mm,j*6mm);
    else:fill circle shifted (i*6mm,j*6mm);
    fi
  endfor;
endfor;
endfig;
end;