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=d4faebc074dd1e6867e72a70b25704600fa31f77;hp=0000000000000000000000000000000000000000;hb=146790b73eb20d2272e00296cfff3d2539dae7a1;hpb=2d234af911ec062a36b45701b19b1065c765eb4e

diff --git a/doc/figures/source.mp~ b/doc/figures/source.mp~
new file mode 100644
index 0000000..d4faebc
--- /dev/null
+++ b/doc/figures/source.mp~
@@ -0,0 +1,42 @@
+input mp-solid
+
+nb:=8;
+unit:=0.8;
+xm:=6;
+
+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;
+r:=1; q:=4;
+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;
+
+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;
+r:=1; q:=4;
+Lumiere:=(0,0,3);
+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;
+
+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;
+r:=1; q:=4;
+Lumiere:=(0,0,10);
+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;
+
+end