doc/figures/Transforigine.mp

   1 input mp-solid
   2
   3 vardef Transform(expr PT)=
   4   save $;
   5   color $;
   6   Xpart($)=Xpart(PT)*(0.5*Norm(PT)+1-0.5*sqrt(3));
   7   Ypart($)=Ypart(PT)*(0.5*Norm(PT)+1-0.5*sqrt(3));
   8   Zpart($)=Zpart(PT)*(0.5*Norm(PT)+1-0.5*sqrt(3));
   9   $
  10 enddef;
  11
  12 arcenciel:=true;
  13
  14 figureespace(-6u,-6u,6u,6u);
  15 fill feuillet;
  16 Initialisation(500,60,20,50);
  17 subh:=9;
  18 transformation:=true;
  19 Objetcube1("a=3");
  20 AffichageObjet1;
  21 finespace;
  22 end