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

kalin

Wed Jan 21, 2004 4:20 pm


err.circles????

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

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

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




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

sport

Wed Jan 21, 2004 4:29 pm



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

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


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

kalin

Wed Jan 21, 2004 4:30 pm



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

Yeah, boredom....happens waaaaaaaaaaaaaaaay tooo often


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

shorthair

Wed Jan 21, 2004 4:33 pm



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

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

Wed Jan 21, 2004 4:35 pm



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

that is nice.


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

kalin

Wed Jan 21, 2004 4:35 pm



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

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........