3 vardef Transform(expr PT)=%pour la torsion.
6 angz:=subh*(Zpart(PT));
11 incolor:=0.5[vert,blanc];
14 figureespace(-3u,-3u,3u,10u);
15 Initialisation(500,50,20,35);
18 Objetgrille1("am=-2","an=2","bm=-2","bn=2");
21 outcolor:=0.5[rouge,blanc];
22 ObjetPrisme2("axe=(0,0,1)","h=10")((0.5,-0.5,0),(0.5,0.5,0),(-0.5,0.5,0),(-0.5,-0.5,0));
27 figureespace(-3u,-3u,3u,10u);
28 Initialisation(500,50,20,35);
31 Objetgrille1("am=-2","an=2","bm=-2","bn=2");
35 outcolor:=0.5[rouge,blanc];
36 ObjetPrisme2("axe=(0,0,1)","h=10")((0.5,-0.5,0),(0.5,0.5,0),(-0.5,0.5,0),(-0.5,-0.5,0));