doc/figures/objetcalotte.mp

   1 input mp-solid
   2
   3 outcolor:=0.5[rouge,blanc];
   4 incolor:=0.5[vert,blanc];
   5 angy:=40; nb:=24;
   6 figureespace(-10u,-10u,10u,10u);
   7 Initialisation(500,-20,25,50);
   8 subh:=24;
   9 Objetcalotte1("R=4","phib=-pi/3","phih=pi/4");%ok
  10 AffichageObjet1;
  11 TraceAxes;
  12 finespace;
  13 figureespace(-10u,-10u,10u,10u);
  14 Initialisation(500,20,25,50);
  15 subh:=24;
  16 creux:=true;
  17 Objetcalotte1("R=4","phib=-pi/3","phih=pi/4");%ok
  18 AffichageObjet1;
  19 TraceAxesD(5,5,5);
  20 finespace;
  21 end