Modification des pages de gardes de la documentation.
[mp-solid.git] / 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

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.