doc/figures/source.mp~

   1 input mp-solid
   2
   3 nb:=8;
   4 unit:=0.8;
   5 xm:=6;
   6
   7 figureespace(-10u,-10u,10u,10u);
   8 Initialisation(1000,20,45,37.5);
   9 for k=-xm upto xm:
  10   draw Projette((k,-xm,0))--Projette((k,xm,0));
  11   draw Projette((-xm,k,0))--Projette((xm,k,0));
  12 endfor;
  13 r:=1; q:=4;
  14 arcenciel:=true;
  15 draw Tuben("(r*((q+1)*cos(t)-cos((q+1)*t)),r*((q+1)*sin(t)-sin((q+1)*t)),0.5)","(r*(-(q+1)*sin(t)+(q+1)*sin((q+1)*t)),r*((q+1)*cos(t)-(q+1)*cos((q+1)*t)),0)",0.5,0,102,0.06283);
  16 finespace;
  17
  18 figureespace(-10u,-10u,10u,10u);
  19 Initialisation(1000,20,45,37.5);
  20 for k=-xm upto xm:
  21   draw Projette((k,-xm,0))--Projette((k,xm,0));
  22   draw Projette((-xm,k,0))--Projette((xm,k,0));
  23 endfor;
  24 r:=1; q:=4;
  25 Lumiere:=(0,0,3);
  26 arcenciel:=true;
  27 draw Tuben("(r*((q+1)*cos(t)-cos((q+1)*t)),r*((q+1)*sin(t)-sin((q+1)*t)),0.5)","(r*(-(q+1)*sin(t)+(q+1)*sin((q+1)*t)),r*((q+1)*cos(t)-(q+1)*cos((q+1)*t)),0)",0.5,0,102,0.06283);
  28 finespace;
  29
  30 figureespace(-10u,-10u,10u,10u);
  31 Initialisation(1000,20,45,37.5);
  32 for k=-xm upto xm:
  33   draw Projette((k,-xm,0))--Projette((k,xm,0));
  34   draw Projette((-xm,k,0))--Projette((xm,k,0));
  35 endfor;
  36 r:=1; q:=4;
  37 Lumiere:=(0,0,10);
  38 arcenciel:=true;
  39 draw Tuben("(r*((q+1)*cos(t)-cos((q+1)*t)),r*((q+1)*sin(t)-sin((q+1)*t)),0.5)","(r*(-(q+1)*sin(t)+(q+1)*sin((q+1)*t)),r*((q+1)*cos(t)-(q+1)*cos((q+1)*t)),0)",0.5,0,102,0.06283);
  40 finespace;
  41
  42 end