doc/figures/Carre.mp

   1 prologues:=2;
   2
   3 input geometriesyr16;
   4
   5 u:=5mm;
   6
   7 figure(0,0,10u,10u);
   8 pair O;
   9 O=u*(5,5);
  10 path carre;
  11 carre=O--(O+(2u,0))--(O+(2u,2u))--(O+(0,2u))--cycle;
  12 for k=0 upto 9:
  13   if (k mod 2)=0:
  14     draw rotation(carre,O,36*k);
  15   else:
  16     draw rotation(carre,O,36*k) withcolor gris;
  17     fi;
  18 endfor;
  19 fin;
  20
  21 end