doc/figures/Facteurechelle.mp

   1 input mp-solid
   2
   3 vardef Transform(expr PT)=%pour la torsion.
   4   save $;
   5   color $;
   6   Xpart($)=1.25*Xpart(PT);
   7   Ypart($)=0.75*Ypart(PT);
   8   Zpart($)=0.5*Zpart(PT);
   9   $
  10 enddef;
  11
  12 outcolor:=jaune;
  13 incolor:=0.5[vert,blanc];
  14
  15 figureespace(-10u,-10u,10u,10u);
  16 Initialisation(500,50,20,15);
  17 outcolor:=blanc;
  18 subh:=8;TR:=(0,0,-2);
  19 Objetgrille1("am=-7","an=7","bm=-7","bn=7");
  20 nb:=24; subh:=36;
  21 outcolor:=0.5[rouge,blanc];
  22 TR:=(0,0,0);
  23 Objettore2("R=4","r=2");
  24 nbobj:=2;
  25 DessineFusion;
  26 TraceAxes;
  27 finespace;
  28
  29 figureespace(-10u,-10u,10u,10u);
  30 Initialisation(500,50,20,15);
  31 outcolor:=blanc;
  32 subh:=8;TR:=(0,0,-1);
  33 Objetgrille1("am=-5","an=5","bm=-5","bn=5");
  34 nb:=24; subh:=36;
  35 TR:=(0,0,0);
  36 transformation:=true;
  37 outcolor:=0.5[rouge,blanc];
  38 Objettore2("R=4","r=2");
  39 nbobj:=2;
  40 DessineFusion;
  41 TraceAxes;
  42 finespace;
  43 end