3 vardef Transform(expr PT)=%pour la flexion.
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");
20 outcolor:=0.5[rouge,blanc];
21 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));
26 figureespace(-3u,-3u,3u,10u);
27 Initialisation(500,50,20,35);
30 Objetgrille1("am=-2","an=2","bm=-2","bn=2");
33 outcolor:=0.5[rouge,blanc];
34 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));
38 drawarrow Projette((0,0,Zpart(Image((-0.5,0.5,10)))))--Projette(Image((-0.5,0.5,10)));