In[]:=
image=
Out[]=
In[]:=
image2=ImageCrop[image]
Out[]=
In[]:=
image3=Binarize[image2,0.07]
Out[]=
In[]:=
image4=Image[DiskMatrix[190,465]]
Out[]=
In[]:=
image5=ImageCompose[image2,{image4,0.5}]
Out[]=
In[]:=
mask=Binarize[image5,0.1]
Out[]=
In[]:=
final=SetAlphaChannel[image2,mask]
Out[]=
In[]:=
ci=ConstantImage[Black,{1024,768}]
Out[]=
In[]:=
r=Sort[RandomInteger[{50,200},20]]
Out[]=
{56,56,61,77,90,107,117,118,122,129,132,141,163,169,172,172,174,176,176,178}
In[]:=
i=1;Nest[ImageCompose[#,ImageResize[final,r[[i++]]],{RandomInteger[{100,1024-100}],RandomInteger[{100,768-100}]}]&,ci,20]