doc/figures/objettronccone.mp

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