%@AUTEUR: Alex Aguado
%@DATE: 15 novembre 2011
prologues := 3;

input mp-solid
figureespace(-6u,-6u,6u,6u);
Initialisation(1000,30,30,16);
creux:=true;
intensite:=1;
%drawoptions(withcolor 0.4white);
%incolor:=blanc;
%outcolor:=1.1*gris;
incolor=0.5[jaune,white];
outcolor=0.5[vert,white];

nb:=34; subh:=55;
Objettore1("R=2","r=1");
Objetplan2("An=(-2.4,0,0)","Bn=(-2.4,1,2)","Cn=(-2.4,1,1)");
angy:=90; angz:=30;
ObjetSepare1(3,4);
AffichageObjet3;
TR:=(0,0,2);
ObjetSepare1(3,4);
AffichageObjet4;
finespace;
end;