Refonte de la documentation. Ajout d'une option de coloriage en z dans les surfaces...
[mp-solid.git] / doc / figures / source.mp
index d4faebc..c6b8e5e 100644 (file)
@@ -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:

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.