%@AUTEUR: Maxime Chupin
 %@DATE: 3 mars 2007
 
 verbatimtex
 %&latex
 \documentclass{article} 
 \usepackage[latin1]{inputenc}
 \usepackage{amsmath}
 \usepackage[mdugm]{mathdesign}
 \begin{document}
 etex
 
 u = 1cm;
 path carre,droite;
 carre := (1,1)--(-1,1)--(-1,-1)--(1,-1)--cycle;
 droite := (-20u,0)--(20u,0);
 numeric max;
 max := 9;
 
 for i:=0 upto 20:
  beginfig(i+1);
 
  for y:=0 upto max :
   draw droite shifted (10u,y*u) withpen pencircle scaled 1;
  endfor;
 
  for w:=0 upto 4:
   for x:=0 upto max:
    fill carre scaled (0.5*u) shifted (0.5u+2*x*u,0.5*u+2w*u);
   endfor;
  endfor;
 
  for w:=0 upto 3:
   for x:=(-1) upto (max+1):
    fill carre scaled (0.5*u) shifted ((0.5+i/20)*u+2*x*u,0.5*u+2w*u+u);
   endfor;
  endfor;
 
  label.urt(btex \begin{LARGE}Petite illusion d'optique\end{LARGE} etex, 
     (7.5u,-u));
 
  clip currentpicture to 
 	(-0.5u,-u)--(20u,-u)--(20u,max*u)--(-0.5u,max*u)--cycle;
 
 
  endfig;
 endfor;
 
 for i:=0 upto 40:
  beginfig(22+i);
 
  for y:=0 upto 8 :
   draw droite shifted (10u,y*u) withpen pencircle scaled 1;
  endfor;
 
  for w:=0 upto 4:
   for x:=0 upto 9:
    fill carre scaled (0.5*u) shifted (0.5u+2*x*u,0.5*u+2w*u);
   endfor;
  endfor;
 
  for w:=0 upto 3:
   for x:=(-1) upto (max+1):
    fill carre scaled (0.5*u) shifted ((1.5-i/20)*u+2*x*u,0.5*u+2w*u+u);
   endfor;
  endfor;
 
 label.urt(btex \begin{LARGE}Petite illusion d'optique\end{LARGE} etex, (7.5u,-u));
 
 clip currentpicture to 
 	(-0.5u,-u)--(20u,-u)--(20u,max*u)--(-0.5u,max*u)--cycle;
 
  endfig;
 endfor;
 
 for i:=0 upto 20:
  beginfig(63+i);
 
  for y:=0 upto 8 :
   draw droite shifted (10u,y*u) withpen pencircle scaled 1;
  endfor;
 
  for w:=0 upto 4:
   for x:=0 upto 9:
    fill carre scaled (0.5*u) shifted (0.5u+2*x*u,0.5*u+2w*u);
   endfor;
  endfor;
 
  for w:=0 upto 3:
   for x:=(-1) upto (max+1):
    fill carre scaled (0.5*u) shifted ((-0.5+i/20)*u+2*x*u,0.5*u+2w*u+u);
   endfor;
  endfor;
 
 label.urt(btex \begin{LARGE}Petite illusion d'optique\end{LARGE} etex, (7.5u,-u));
 
 clip currentpicture to 
 	(-0.5u,-u)--(20u,-u)--(20u,max*u)--(-0.5u,max*u)--cycle;
 
  endfig;
 endfor;
 
 
 
 end