doc/figures/Banane.mp

   1 input mp-solid
   2
   3   vardef Transform(expr PT)=
   4   save $ ; color $ ;
   5   Xpart($)=0.6*Xpart(PT);
   6   Ypart($)=0.6*Ypart(PT);
   7   Zpart($)=1.75*Zpart(PT);
   8   $
   9 enddef ;
  10
  11 figureespace(-4u,-4u,4u,4u);
  12 fill feuillet;
  13 Initialisation(1500,-60,10,25);
  14 nb:=24;
  15 subh:=12;
  16 outcolor:=jaune;
  17 Objetsphere1("R=2");
  18 AffichageObjet1;
  19 finespace;
  20
  21 %2
  22
  23 figureespace(-4u,-4u,4u,4u);
  24 %traits:=false;
  25 fill feuillet;
  26 Initialisation(1500,-60,10,25);
  27 nb:=24;
  28 subh:=12;
  29 outcolor:=jaune;
  30 Objetsphere1("R=2");
  31
  32 transformation:=true;
  33 ObjetDeplacement2(1);
  34
  35 vardef Transform(expr PT)=
  36     save $ ; color $ ;
  37   angy:=10*(Zpart(PT));
  38   $=RotXYZ(PT);
  39     $
  40 enddef ;
  41
  42 outcolor:=jaune;
  43 ObjetDeplacement3(2);
  44 AffichageObjet3;
  45 finespace;
  46
  47 end