doc/figures/objetcone.mp

   1 input mp-solid
   2
   3 outcolor:=0.5[ciel,blanc];
   4 incolor:=0.5[jaune,blanc];
   5
   6 nb:=24;subh:=9;
   7 arcenciel:=true;
   8 creux:=true;
   9 figureespace(-10u,-10u,10u,10u);
  10 Initialisation(500,30,-20,20);
  11 Objetcone1("r=2","h=5");%ok
  12 AffichageObjet1;
  13 TraceAxes;
  14 finespace;
  15 creux:=false;
  16 arcenciel:=false;
  17 figureespace(-10u,-10u,10u,10u);
  18 Initialisation(500,-10,-40,20);
  19 Objetcone1("r=2","h=5");%ok
  20 AffichageObjet1;
  21 TraceAxes;
  22 finespace;
  23 end