doc/figures/Flexion.mp

   1 input mp-solid
   2
   3 vardef Transform(expr PT)=%pour la flexion.
   4   save $;
   5   color $;
   6   angy:=2*(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; subh:=20;
  20 outcolor:=0.5[rouge,blanc];
  21 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));
  22 nbobj:=2;
  23 DessineFusion;
  24 finespace;
  25
  26 figureespace(-3u,-3u,3u,10u);
  27 Initialisation(500,50,20,35);
  28 outcolor:=blanc;
  29 subh:=8;
  30 Objetgrille1("am=-2","an=2","bm=-2","bn=2");
  31 nb:=2; subh:=20;
  32 transformation:=true;
  33 outcolor:=0.5[rouge,blanc];
  34 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));
  35 nbobj:=2;
  36 DessineFusion;
  37 color A;
  38 drawarrow Projette((0,0,Zpart(Image((-0.5,0.5,10)))))--Projette(Image((-0.5,0.5,10)));
  39 finespace;
  40 end