doc/figures/source.mp

   1 input mp-solid
   2
   3 nb:=8;
   4 unit:=0.8;
   5 xm:=6;
   6
   7 %1
   8 figureespace(-10u,-10u,10u,10u);
   9 Initialisation(1000,20,45,37.5);
  10 for k=-xm upto xm:
  11   draw Projette((k,-xm,0))--Projette((k,xm,0));
  12   draw Projette((-xm,k,0))--Projette((xm,k,0));
  13 endfor;
  14 TraceAxes;
  15 Lumiere:=(0,0,0);
  16 r:=1; q:=4;
  17 eclairage:=true;
  18 arcenciel:=true;
  19 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);
  20 finespace;
  21
  22 %2
  23 figureespace(-10u,-10u,10u,10u);
  24 Initialisation(1000,20,45,37.5);
  25 for k=-xm upto xm:
  26   draw Projette((k,-xm,0))--Projette((k,xm,0));
  27   draw Projette((-xm,k,0))--Projette((xm,k,0));
  28 endfor;
  29 r:=1; q:=4;
  30 Lumiere:=(0,0,3);
  31 arcenciel:=true;
  32 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);
  33 finespace;
  34
  35 %3
  36 figureespace(-10u,-10u,10u,10u);
  37 Initialisation(1000,20,45,37.5);
  38 for k=-xm upto xm:
  39   draw Projette((k,-xm,0))--Projette((k,xm,0));
  40   draw Projette((-xm,k,0))--Projette((xm,k,0));
  41 endfor;
  42 r:=1; q:=4;
  43 Lumiere:=(0,0,10);
  44 arcenciel:=true;
  45 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);
  46 finespace;
  47
  48 end