Novel method ...
autocam off
color backdrop 0
`position camera 0,0,-49
sync on
for x=0 to 100
for y=0 to 100
d=rnd(20)
if d=1 then dot x,y
next y
next x
get image 1,0,0,100,100
make object sphere 1,-100,50,50
texture object 1,1
scale object texture 1,5,5
xrotate object 1,-90
set object transparency 1,1
make object sphere 2,-150,50,50
texture object 2,1
scale object texture 2,5,5
xrotate object 2,-90
zrotate object 2,3
set object transparency 2,1
make object sphere 3,-200,50,50
texture object 3,1
scale object texture 3,5,5
xrotate object 3,-90
zrotate object 3,6
do
scroll object texture 1,0,0.004
scroll object texture 2,0,0.005
scroll object texture 3,0,0.006
sync
loop