input mp-solid

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

figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,10,50);
nb:=24; subh:=18;
Objetsphere1("R=4");%ok
AffichageObjet1;
TraceAxes;
finespace;
end