input mp-solid

  vardef Transform(expr PT)=
  save $ ; color $ ;
  Xpart($)=0.6*Xpart(PT);
  Ypart($)=0.6*Ypart(PT);
  Zpart($)=1.75*Zpart(PT);
  $
enddef ;

figureespace(-4u,-4u,4u,4u);
fill feuillet;
Initialisation(1500,-60,10,25);
nb:=24;
subh:=12;
outcolor:=jaune;
Objetsphere1("R=2");
AffichageObjet1;
finespace;

%2

figureespace(-4u,-4u,4u,4u);
%traits:=false;
fill feuillet;
Initialisation(1500,-60,10,25);
nb:=24;
subh:=12;
outcolor:=jaune;
Objetsphere1("R=2");

transformation:=true;
ObjetDeplacement2(1);

vardef Transform(expr PT)=
    save $ ; color $ ;
  angy:=10*(Zpart(PT));
  $=RotXYZ(PT);
    $
enddef ;

outcolor:=jaune;
ObjetDeplacement3(2);
AffichageObjet3;
finespace;

end