input mp-solid

unit:=0.75;

figureespace(-10u,-10u,10u,10u);
Initialisation(500,30,20,100);
outcolor:=blanc;
totalobj:=50;
%for k=101 upto totalobj:
%  perso[k]:=false;
%endfor;
subh:=1;
for k=0 upto totalobj:
  angx:=uniformdeviate(90);
  angy:=uniformdeviate(90);
  angz:=uniformdeviate(90);
  TR:=(-4+uniformdeviate(4),uniformdeviate(2),uniformdeviate(1));
  Objetpave[k]("L=0.3","H=0.2","P=0.1");
endfor;
nbobj:=totalobj;
DessineFusion;
finespace;
end