Shinny balls
Posted: Tue Feb 10, 2015 5:19 am
rem shinny balls
rem iPhone 6 plus / 8.2 b5
sw=screen_width()
sh=screen_height()
graphics
loop:
x=rnd(sw)
y=rnd(sh)
r=rnd(255)
g=rnd(255)
b=rnd(255)
rad=rnd(90)
for a=rad to 1 step -1
str=(rad-a+10)/100
fill color r*str/255,g*str/255,b*str/255
fill circle x,y size a
next a
goto loop
rem iPhone 6 plus / 8.2 b5
sw=screen_width()
sh=screen_height()
graphics
loop:
x=rnd(sw)
y=rnd(sh)
r=rnd(255)
g=rnd(255)
b=rnd(255)
rad=rnd(90)
for a=rad to 1 step -1
str=(rad-a+10)/100
fill color r*str/255,g*str/255,b*str/255
fill circle x,y size a
next a
goto loop