doc/figures/Torsion.mp

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