input mp-solid

vardef Transform(expr PT)=%pour la torsion.
  save $;
  color $;
  Xpart($)=1.25*Xpart(PT);
  Ypart($)=0.75*Ypart(PT);
  Zpart($)=0.5*Zpart(PT);
  $
enddef;

outcolor:=jaune;
incolor:=0.5[vert,blanc];

figureespace(-10u,-10u,10u,10u);
Initialisation(500,50,20,15);
outcolor:=blanc;
subh:=8;TR:=(0,0,-2);
Objetgrille1("am=-7","an=7","bm=-7","bn=7");
nb:=24; subh:=36;
outcolor:=0.5[rouge,blanc];
TR:=(0,0,0);
Objettore2("R=4","r=2");
nbobj:=2;
DessineFusion;
TraceAxes;
finespace;

figureespace(-10u,-10u,10u,10u);
Initialisation(500,50,20,15);
outcolor:=blanc;
subh:=8;TR:=(0,0,-1);
Objetgrille1("am=-5","an=5","bm=-5","bn=5");
nb:=24; subh:=36;
TR:=(0,0,0);
transformation:=true;
outcolor:=0.5[rouge,blanc];
Objettore2("R=4","r=2");
nbobj:=2;
DessineFusion;
TraceAxes;
finespace;
end