input mp-solid

figureespace(-10u,-10u,10u,10u);
Initialisation(1500,70,20,150);
outcolor:=jaune;
incolor:=0.5[vert,blanc];
Objetoctaedre1("a=1");
nb:=24;subh:=36;
creux:=true;
Objetsphere2("R=1");
string toto;
toto=""&for k=0 upto apj2-2:if ((k div 18) mod 2)=1:decimal(k)&","& fi endfor decimal(863)&"";
ObjetEnleve2(scantokens toto);
nbobj:=2;
DessineFusion;
finespace;
end