doc/figures/objetbiface.mp

   1 input mp-solid;
   2
   3 %-1"
   4 figureespace(-10u,-10u,10u,10u);
   5 Initialisation(500,-20,40,20);
   6 eclairage:=false;
   7 outcolor:=blanc;
   8 Objetgrille0("am=-6","an=6","bm=-6","bn=6");
   9 AffichageObjet0;
  10 outcolor:=jaune;
  11 ObjetBiface1((5,0,0) for t=0.06544 step 0.06544 until pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
  12 angz:=90;
  13 outcolor:=violet;
  14 ObjetBiface2((5,0,0) for t=pi+0.06544 step 0.06544 until 2*pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
  15 angz:=180;
  16 outcolor:=bleu;
  17 ObjetBiface3((5,0,0) for t=0.06544 step 0.06544 until pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
  18 angz:=-90;
  19 outcolor:=rouge;
  20 ObjetBiface4((5,0,0) for t=0.06544 step 0.06544 until pi:,(5*(cos(t)**2),(3*sin(t)*((cos(t))**3)),0) endfor);
  21 nbobj:=4;
  22 DessineFusion;
  23 TraceAxesD(6,6,6);
  24 finespace;
  25 end