err.circles????

kalin · **Posted:** Wed Jan 21, 2004 4:20 pm

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

sport · **Posted:** Wed Jan 21, 2004 4:29 pm

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

kalin · **Posted:** Wed Jan 21, 2004 4:30 pm

Yeah, boredom....happens waaaaaaaaaaaaaaaay tooo often

shorthair · **Posted:** 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 · **Posted:** Wed Jan 21, 2004 4:35 pm

that is nice.

kalin · **Posted:** 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........

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