these 3-lines just magically creates beautyfull screenies
they need 640x480x32 mode
lights
set display mode 640,480,32 : hide mouse : create bitmap 1,640,480 : do : set current bitmap 1 : r_x=rnd(639) : r_y=rnd(479) : g_x=rnd(639) : g_y=rnd(479) : b_x=rnd(639) : b_y=rnd(479)
for a=0 to 639 : for c=0 to 479 : r = 255 - sqrt((a-r_x)^2+(c-r_y)^2) : g = 255 - sqrt((a-g_x)^2+(c-g_y)^2) : b = 255 - sqrt((a-b_x)^2+(c-b_y)^2) : if r < 0 : r = 0 : endif : if g < 0 : g = 0 : endif : if b < 0 : b = 0 : endif
ink rgb(r,g,b),0 : dot a,c : next c : next a : copy bitmap 1,0 : set current bitmap 0 : sync : wait 5000 : loop
rings
set display mode 640,480,32 : hide mouse : create bitmap 1,640,480 : do : set current bitmap 1 : r_x=rnd(639) : r_y=rnd(479) : g_x=rnd(639) : g_y=rnd(479) : b_x=rnd(639) : b_y=rnd(479)
for a=0 to 639 : for c=0 to 479 : r = sqrt((a-r_x)^2+(c-r_y)^2) : g = sqrt((a-g_x)^2+(c-g_y)^2) : b = 255 - sqrt((a-b_x)^2+(c-b_y)^2) : if r < 0 : r = 0 : endif : if g < 0 : g = 0 : endif : if b < 0 : b = 0 : endif
ink rgb(r,g,b),0 : dot a,c : next c : next a : copy bitmap 1,0 : set current bitmap 0 : sync : wait 5000 : loop
nova-rings
set display mode 640,480,32 : hide mouse : create bitmap 1,640,480 : do : set current bitmap 1 : r_x=rnd(639) : r_y=rnd(479) : g_x=rnd(639) : g_y=rnd(479) : b_x=rnd(639) : b_y=rnd(479)
for a=0 to 639 : for c=0 to 479 : r = 255 - sqrt((a-r_x)^2+(c-r_y)^2) : g = 255 - sqrt((a-g_x)^2+(c-g_y)^2) : b = sqrt((a-b_x)^2+(c-b_y)^2) : if r < 0 : r = 0 : endif : if g < 0 : g = 0 : endif : if b < 0 : b = 0 : endif
ink rgb(r,g,b),0 : dot a,c : next c : next a : copy bitmap 1,0 : set current bitmap 0 : sync : wait 5000 : loop
overlapping rings
set display mode 640,480,32 : hide mouse : create bitmap 1,640,480 : do : set current bitmap 1 : r_x=rnd(639) : r_y=rnd(479) : g_x=rnd(639) : g_y=rnd(479) : b_x=rnd(639) : b_y=rnd(479)
for a=0 to 639 : for c=0 to 479 : r = sqrt((a-r_x)^2+(c-r_y)^2) : g = sqrt((a-g_x)^2+(c-g_y)^2) : b = sqrt((a-b_x)^2+(c-b_y)^2) : if r < 0 : r = 0 : endif : if g < 0 : g = 0 : endif : if b < 0 : b = 0 : endif
ink rgb(r,g,b),0 : dot a,c : next c : next a : copy bitmap 1,0 : set current bitmap 0 : sync : wait 5000 : loop
Quote: "
UPDATED
Amd 2800+ 1024mb pc3200 A7N8X - Deluxe Ati Radeon 9800PRO 256mb"