doc/figures/rotation.mp

   1 input mp-solid
   2
   3 subh:=1;
   4
   5 figureespace(-10u,-10u,10u,10u);
   6 Initialisation(500,30,20,50);
   7 Lumiere:=Oeil;
   8 arcenciel:=true;
   9 Objetpave1("L=3","H=2","P=1");
  10 AffichageObjet1;
  11 TraceAxes;
  12 finespace;
  13 angx:=90;
  14 figureespace(-10u,-10u,10u,10u);
  15 Initialisation(500,30,20,50);
  16 Lumiere:=Oeil;
  17 arcenciel:=true;
  18 Objetpave1("L=3","H=2","P=1");
  19 AffichageObjet1;
  20 TraceAxes;
  21 finespace;
  22 angx:=0;
  23 angy:=-45;
  24 figureespace(-10u,-10u,10u,10u);
  25 Initialisation(500,30,20,50);
  26 Lumiere:=Oeil;
  27 arcenciel:=true;
  28 Objetpave1("L=3","H=2","P=1");
  29 AffichageObjet1;
  30 TraceAxes;
  31 finespace;
  32 angy:=0;
  33 angz:=57;
  34 figureespace(-10u,-10u,10u,10u);
  35 Initialisation(500,30,20,50);
  36 Lumiere:=Oeil;
  37 arcenciel:=true;
  38 Objetpave1("L=3","H=2","P=1");
  39 AffichageObjet1;
  40 TraceAxes;
  41 finespace;
  42 end