input mp-solid

outcolor:=0.5[ciel,blanc];
incolor:=0.5[jaune,blanc];

nb:=24;subh:=5;
arcenciel:=true;
creux:=true;
figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,10,20);
Objettronccone1("r=3.5","h=4","H=5");%ok
AffichageObjet1;
TraceAxes;
finespace;
creux:=false;
arcenciel:=false;
angx:=90;
figureespace(-10u,-10u,10u,10u);
Initialisation(500,50,40,20);
Objettronccone1("r=2","h=5","H=7");%ok
AffichageObjet1;
TraceAxes;
finespace;
end