Computer Science Canada :: View topic

setscreen ("graphics:max,max")
var col : int

for decreasing k : 10 .. 0
for i : 1 .. 10
col := RGB.AddColor (i / 10, i / 10, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for
for decreasing i : 10 .. 1
col := RGB.AddColor (i / 10, i / 10, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for

for i : 1 .. 10
col := RGB.AddColor (i / 10, 0, 0)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for
for decreasing i : 10 .. 1
col := RGB.AddColor (i / 10, 0, 0)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for

for i : 1 .. 10
col := RGB.AddColor (0, i / 10, 0)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for
for decreasing i : 10 .. 1
col := RGB.AddColor (0, i / 10, 0)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for

for i : 1 .. 10
col := RGB.AddColor (0, 0, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for
for decreasing i : 10 .. 1
col := RGB.AddColor (0, 0, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for

for i : 1 .. 10
col := RGB.AddColor (i / 10, i / 10, 0)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for
for decreasing i : 10 .. 1
col := RGB.AddColor (i / 10, i / 10, 0)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for

for i : 1 .. 10
col := RGB.AddColor (i / 10, 0, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for
for decreasing i : 10 .. 1
col := RGB.AddColor (i / 10, 0, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for

for i : 1 .. 10
col := RGB.AddColor (0, i / 10, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for
for decreasing i : 10 .. 1
col := RGB.AddColor (0, i / 10, i / 10)
colorback (col)
cls
delay (k);
drawfilloval (maxx div 2, maxy div 2, k,k,7)
end for

end for
colorback (white)
cls

for i : 1 .. maxx
col := RGB.AddColor (i / maxx, i / maxx, i / maxx)
drawfilloval (maxx div 2, maxy div 2, i, i, col)
delay (1)
end for

setscreen ("offscreenonly")

for decreasing i : maxx .. 1
col := RGB.AddColor (i / maxx, i / maxx, i / maxx)
drawfilloval (maxx div 2, maxy div 2, i, i, col)
View.Update
cls
end for

setscreen ("nooffscreenonly")

for i : 1 .. 50
drawfilloval (maxx div 2, maxy div 2, i, 50 - i, 7)
drawfilloval (maxx div 2, maxy div 2, 50 - i, i, 7)
end for

for decreasing i : 50 .. 1
drawfilloval (maxx div 2, maxy div 2, i, 50 - i, 7)
drawfilloval (maxx div 2, maxy div 2, 50 - i, i, 7)
cls
end for

Author:	SuperGenius [ Thu Jun 17, 2004 9:44 am ]
Post subject:
ouch.... my eyeballs hurt

Author:	zomg [ Wed Oct 13, 2004 1:39 pm ]
Post subject:
LOL sweet My Fricken eyes i tried it on my sister and she acted weird like the whole rest of the day lololol it was great fun

Author:	the_short1 [ Tue Nov 02, 2004 10:06 pm ]
Post subject:
very nice.. good use of RGB... flashy.. hurts the eyes.. . PERFECT.. only issue... VERY LONG for such a symple program.. maybe consider revisiosn and optimizatiojn to limit coding... .gj

Author:	chunginator [ Mon Nov 15, 2004 11:23 am ]
Post subject:
i cnat ess teh firgen kuboard. haha sweet prog

Author:	computer_killer [ Wed Dec 15, 2004 12:09 pm ]
Post subject:	holy shit
my eyes hurt, sweet thats kool

Author:	Cervantes [ Wed Dec 15, 2004 5:40 pm ]
Post subject:
Err, not exactly. Because his uses RGB, it goes much smoother from colour to colour. Yours, however, is a harsh colour change. True, it's less lines. But sacrificing quality for saving lines is generally not good. In any case, this topic is 6 months old.

Author:	the_short1 [ Thu Dec 16, 2004 5:54 pm ]
Post subject:
he just goes to all the oldest posts and posts in them for bits i think.,.. which is kinda anoyin..

Author:	josh [ Wed Dec 29, 2004 4:53 pm ]
Post subject:
very cool program, that could be part of a good intro screen...