input mp-solid

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

nb:=24;subh:=9;
arcenciel:=true;
creux:=true;
figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,-20,20);
Objetcone1("r=2","h=5");%ok
AffichageObjet1;
TraceAxes;
finespace;
creux:=false;
arcenciel:=false;
figureespace(-10u,-10u,10u,10u);
Initialisation(500,-10,-40,20);
Objetcone1("r=2","h=5");%ok
AffichageObjet1;
TraceAxes;
finespace;
end