3 vardef Transform(expr PT)=%pour la torsion.
6 Xpart($)=1.25*Xpart(PT);
7 Ypart($)=0.75*Ypart(PT);
8 Zpart($)=0.5*Zpart(PT);
13 incolor:=0.5[vert,blanc];
15 figureespace(-10u,-10u,10u,10u);
16 Initialisation(500,50,20,15);
19 Objetgrille1("am=-7","an=7","bm=-7","bn=7");
21 outcolor:=0.5[rouge,blanc];
23 Objettore2("R=4","r=2");
29 figureespace(-10u,-10u,10u,10u);
30 Initialisation(500,50,20,15);
33 Objetgrille1("am=-5","an=5","bm=-5","bn=5");
37 outcolor:=0.5[rouge,blanc];
38 Objettore2("R=4","r=2");