input mp-solid

vardef Transform(expr PT)=%pour la flexion.
  save $;
  color $;
  angy:=2*(Zpart(PT));
  $=RotXYZ(PT);
  $
enddef;

incolor:=0.5[vert,blanc];
unit:=0.75;

figureespace(-3u,-3u,3u,10u);
Initialisation(500,50,20,35);
outcolor:=blanc;
subh:=8;
Objetgrille1("am=-2","an=2","bm=-2","bn=2");
nb:=2; subh:=20;
outcolor:=0.5[rouge,blanc];
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));
nbobj:=2;
DessineFusion;
finespace;

figureespace(-3u,-3u,3u,10u);
Initialisation(500,50,20,35);
outcolor:=blanc;
subh:=8;
Objetgrille1("am=-2","an=2","bm=-2","bn=2");
nb:=2; subh:=20;
transformation:=true;
outcolor:=0.5[rouge,blanc];
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));
nbobj:=2;
DessineFusion;
color A;
drawarrow Projette((0,0,Zpart(Image((-0.5,0.5,10)))))--Projette(Image((-0.5,0.5,10)));
finespace;
end