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