doc/figures/exfusion1.mp

   1 input mp-solid
   2
   3 outcolor:=0.5[ciel,blanc];
   4 incolor:=0.5[jaune,blanc];
   5
   6 nb:=24;
   7
   8 figureespace(-10u,-10u,10u,10u);
   9 Initialisation(500,30,10,50);
  10 Lumiere:=Oeil;
  11 angy:=80;
  12 subh:=24;
  13 Objetcalotte1("R=2","phib=-pi/2","phih=pi/6");
  14 outcolor:=0.5[rouge,blanc];
  15 incolor:=0.5[vert,blanc];
  16 TR:=(1,0,0);
  17 Objetcalotte2("R=1.5","phib=-pi/2","phih=pi/6");
  18 outcolor:=0.5[orange,blanc];
  19 incolor:=0.5[gris,blanc];
  20 TR:=(2,0,0);
  21 Objetcalotte3("R=1","phib=-pi/2","phih=pi/6");
  22 nbobj:=3;
  23 DessineFusion;
  24 finespace;
  25 end