X-Git-Url: https://melusine.eu.org/syracuse/G/git/?p=mp-solid.git;a=blobdiff_plain;f=doc%2Ffigures%2Fsource.mp;fp=doc%2Ffigures%2Fsource.mp;h=c6b8e5ef93e677f17391004bf7141a0a0d255c93;hp=d4faebc074dd1e6867e72a70b25704600fa31f77;hb=146790b73eb20d2272e00296cfff3d2539dae7a1;hpb=2d234af911ec062a36b45701b19b1065c765eb4e

diff --git a/doc/figures/source.mp b/doc/figures/source.mp
index d4faebc..c6b8e5e 100644
--- a/doc/figures/source.mp
+++ b/doc/figures/source.mp
@@ -4,17 +4,22 @@ nb:=8;
 unit:=0.8;
 xm:=6;
 
+%1
 figureespace(-10u,-10u,10u,10u);
 Initialisation(1000,20,45,37.5);
 for k=-xm upto xm:
   draw Projette((k,-xm,0))--Projette((k,xm,0));
   draw Projette((-xm,k,0))--Projette((xm,k,0));
 endfor;
+TraceAxes;
+Lumiere:=(0,0,0);
 r:=1; q:=4;
+eclairage:=true;
 arcenciel:=true;
 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);
 finespace;
 
+%2
 figureespace(-10u,-10u,10u,10u);
 Initialisation(1000,20,45,37.5);
 for k=-xm upto xm:
@@ -27,6 +32,7 @@ arcenciel:=true;
 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);
 finespace;
 
+%3
 figureespace(-10u,-10u,10u,10u);
 Initialisation(1000,20,45,37.5);
 for k=-xm upto xm: