-----------------------------------

s_climax

Wed Jun 16, 2004 11:53 pm


Seizure

-----------------------------------


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

Thu Jun 17, 2004 9:44 am



-----------------------------------

ouch.... my eyeballs hurt


-----------------------------------

zomg

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

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

Mon Nov 15, 2004 11:23 am



-----------------------------------

i cnat ess teh firgen kuboard.  haha sweet prog


-----------------------------------

computer_killer

Wed Dec 15, 2004 12:09 pm


holy shit

-----------------------------------

my eyes hurt, sweet thats kool :D  :evil:


-----------------------------------

MihaiG

Wed Dec 15, 2004 5:22 pm



-----------------------------------

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


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

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


-----------------------------------

Cervantes

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

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

Wed Dec 29, 2004 4:53 pm



-----------------------------------

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