input mp-solid

vardef Transform(expr PT)=
  save $;
  color $;
  Xpart($)=Xpart(PT)*(0.5*Norm(PT)+1-0.5*sqrt(3));
  Ypart($)=Ypart(PT)*(0.5*Norm(PT)+1-0.5*sqrt(3));
  Zpart($)=Zpart(PT)*(0.5*Norm(PT)+1-0.5*sqrt(3));
  $
enddef;
  
arcenciel:=true;

figureespace(-6u,-6u,6u,6u);
fill feuillet;
Initialisation(500,60,20,50);
subh:=9;
transformation:=true;
Objetcube1("a=3");
AffichageObjet1;
finespace;
end