input mp-solid

nb:=16; subh:=18;

figureespace(-10u,-10u,10u,10u);
Initialisation(1000,30,20,30);
numeroteface:=true;
arcenciel:=true;
%outcolor:=0.5[vert,white];
incolor:=0.5[gris,white];
Objettore1("R=2","r=1");
AffichageObjet1;
finespace;

numeroteface:=false;

figureespace(-10u,-10u,10u,10u);
Initialisation(1000,30,20,30);
creux:=true;
arcenciel:=true;
%outcolor:=0.5[vert,white];
incolor:=0.5[gris,white];
Objettore1("R=2","r=1");
string Face;
Face=""&for k=133 step 2 until 193:decimal(k)&","&""& endfor decimal(195)&"";
ObjetEnleve1(scantokens Face);
AffichageObjet1;
finespace;

end