8 figureespace(-10u,-10u,10u,10u);
9 Initialisation(1000,20,45,37.5);
11 draw Projette((k,-xm,0))--Projette((k,xm,0));
12 draw Projette((-xm,k,0))--Projette((xm,k,0));
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);
23 figureespace(-10u,-10u,10u,10u);
24 Initialisation(1000,20,45,37.5);
26 draw Projette((k,-xm,0))--Projette((k,xm,0));
27 draw Projette((-xm,k,0))--Projette((xm,k,0));
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);
36 figureespace(-10u,-10u,10u,10u);
37 Initialisation(1000,20,45,37.5);
39 draw Projette((k,-xm,0))--Projette((k,xm,0));
40 draw Projette((-xm,k,0))--Projette((xm,k,0));
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);