Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Seizure
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
s_climax




PostPosted: Wed Jun 16, 2004 11:53 pm   Post subject: Seizure

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
Sponsor
Sponsor
Sponsor
sponsor
SuperGenius




PostPosted: Thu Jun 17, 2004 9:44 am   Post subject: (No subject)

ouch.... my eyeballs hurt
zomg




PostPosted: Wed Oct 13, 2004 1:39 pm   Post subject: (No 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
the_short1




PostPosted: Tue Nov 02, 2004 10:06 pm   Post subject: (No 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
chunginator




PostPosted: Mon Nov 15, 2004 11:23 am   Post subject: (No subject)

i cnat ess teh firgen kuboard. haha sweet prog
computer_killer




PostPosted: Wed Dec 15, 2004 12:09 pm   Post subject: holy shit

my eyes hurt, sweet thats kool Very Happy Evil or Very Mad
MihaiG




PostPosted: Wed Dec 15, 2004 5:22 pm   Post subject: (No subject)

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




PostPosted: Wed Dec 15, 2004 5:40 pm   Post subject: (No 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.
Sponsor
Sponsor
Sponsor
sponsor
the_short1




PostPosted: Thu Dec 16, 2004 5:54 pm   Post subject: (No subject)

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




PostPosted: Wed Dec 29, 2004 4:53 pm   Post subject: (No subject)

very cool program, that could be part of a good intro screen...
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 10 Posts ]
Jump to:   


Style:  
Search: