Laz^3 1,
That's a pretty neat effect. I tinkered with the code for a minute and got the following. Basically all I did was changed it so it only syncs the video once per cycle. It draws a lot faster this way on my PC. Also, I only run cycle2 every 500K steps now instead of 50K which works out to 100 different color blocks being drawn out each blur/fade cycle. Nothing much, but I thought you might be interested. On my AMD Turion 64 it takes about 10-12 seconds between blur/fade effects. Here's the code:
sync on : sync rate 0
width = screen width()
height = screen height()
pos_x = width/4+(rnd(width/4))
pos_y = height/4+(rnd(height/4))
cycle2 = 0
disperse = 2
red = rnd(255)
green = rnd(255)
blue = rnd(255)
bitmapNum = 0
do
for cycle = 0 to 5000
dot pos_x,pos_y,rgb(red,green,blue)
pos_x = pos_x + rnd(disperse) - disperse/2
pos_y = pos_y + rnd(disperse) - disperse/2
if pos_x < 0 then pos_x = width
if pos_x > width then pos_x = 0
if pos_y < 0 then pos_y = height
if pos_y > height then pos_y = 0
inc cycle2
next cycle
if mousemovex()>30 then end
if mousemovey()>30 then end
if inkey$() = "" : else : end : endif
red = rnd(255) : green = rnd(255) : blue = rnd(255)
if cycle2 > 500000
get image 1,0,0,width,height,1
inc bitmapNum
create bitmap bitmapNum,width,height
paste image 1,0,0
blur bitmap bitmapNum,2
fade bitmap bitmapNum,95
get image 1,0,0,width,height,1
set current bitmap 0
paste image 1,0,0
cycle2 = 0
endif
sync
loop
