3 figureespace(-10u,-10u,10u,10u);
4 Initialisation(500,60,30,25);
8 Objetgrille1("am=-5","an=5","bm=-5","bn=5");
13 angx:=90; TR:=(0,4,0);
14 ObjetPrisme2("axe=(0,0,1)","h=8",for k=0 step 10 until 180:(3*cosd(k),3*sind(k),0), endfor for k=180 step -10 until 0:(cosd(k),sind(k),0), endfor(3,0,0));
21 figureespace(-10u,-10u,10u,10u);
22 Initialisation(500,60,30,25);
25 Objetgrille1("am=-5","an=5","bm=-5","bn=5");
30 angx:=90; TR:=(0,4,0);
32 ObjetPrisme2("axe=(0,0,1)","h=8",for k=0 step 10 until 180:(3*cosd(k),3*sind(k),0), endfor for k=180 step -10 until 0:(cosd(k),sind(k),0), endfor(3,0,0));