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

Username:   Password: 
 RegisterRegister   
 err.circles????
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
kalin




PostPosted: Wed Jan 21, 2004 4:20 pm   Post subject: err.circles????

This is what boredom is all about.......I think..maybe....naw Shocked
code:

setscreen ("graphics:vga")
setscreen ("nocursor")
var c, x, y : int
randomize
const centerx := maxx div 2
const centery := maxy div 2
loop
    for radius : 1 .. 400
        randint (c, 0, 1)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 2)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 3)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 4)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 5)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 6)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 7)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 8)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 9)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 10)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 11)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 12)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 13)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 14)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 15)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 14)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 13)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 12)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 11)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 10)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 9)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 8)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 7)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 6)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 5)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 4)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 3)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
    for radius : 1 .. 400
        randint (c, 0, 2)
        drawoval (centerx, centery, radius, radius, c)
        delay (5)
    end for
end loop

Sponsor
Sponsor
Sponsor
sponsor
sport




PostPosted: Wed Jan 21, 2004 4:29 pm   Post subject: (No subject)

This could work as a great screen saver it real is fun when you're bored
kalin




PostPosted: Wed Jan 21, 2004 4:30 pm   Post subject: (No subject)

Yeah, boredom....happens waaaaaaaaaaaaaaaay tooo often
shorthair




PostPosted: Wed Jan 21, 2004 4:33 pm   Post subject: (No subject)

I sat hter efor a good 2 minutes jsut waiting for ht enext olor , its awsome , i kepr zoning out tying to make shapes with the screen , i was starting to see a vortex and then it just went into flat circles
recneps




PostPosted: Wed Jan 21, 2004 4:35 pm   Post subject: (No subject)

that is nice.
kalin




PostPosted: Wed Jan 21, 2004 4:35 pm   Post subject: (No subject)

Never tried that... and that was done in like ten minutes when I was bored in class oh a month ago....been sitting on my drive since........
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  [ 6 Posts ]
Jump to:   


Style:  
Search: