Seizure

s_climax · **Posted:** Wed Jun 16, 2004 11:53 pm

code:

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

SuperGenius · **Posted:** Thu Jun 17, 2004 9:44 am

ouch.... my eyeballs hurt

zomg · **Posted:** Wed Oct 13, 2004 1:39 pm

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

the_short1 · **Posted:** Tue Nov 02, 2004 10:06 pm

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

chunginator · **Posted:** Mon Nov 15, 2004 11:23 am

i cnat ess teh firgen kuboard. haha sweet prog

computer_killer · **Posted:** Wed Dec 15, 2004 12:09 pm

my eyes hurt, sweet thats kool Very Happy

MihaiG · **Posted:** Wed Dec 15, 2004 5:22 pm

that was a preaty pointless program you can get soem of the smae effects with this prog

code:

var col : int
loop
randint (col, 1, 255)
colourback (col)
cls
end loop

try inserting different numbers in the (col,#,#)

Cervantes · **Posted:** Wed Dec 15, 2004 5:40 pm

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.

the_short1 · **Posted:** Thu Dec 16, 2004 5:54 pm

he just goes to all the oldest posts and posts in them for bits i think.,.. which is kinda anoyin..

josh · **Posted:** Wed Dec 29, 2004 4:53 pm

very cool program, that could be part of a good intro screen...

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members