Computer Science Canada

Basic yes cool

Author:  Zero [ Thu Nov 27, 2003 5:04 pm ]
Post subject:  Basic yes cool

The code is vary basic, yet I can't help but like the out come of it.
code:
setscreen ("graphics:vga")

for x : 0 .. 100 by 5
    for y : 0 .. 100 by 5
        drawoval (320, 240, x, y, black)
         delay(5)
    end for
end for


again basic, yet cool and i feel it worthy of my first post. Smile

Author:  Homer_simpson [ Thu Nov 27, 2003 7:18 pm ]
Post subject: 

here's a nicer version:
code:
setscreen ("graphics:vga")

for x : 0 .. 100 by 5
    var y := 100 - x
    drawoval (320, 240, x, y, black)
    drawoval (320, 240, y, x, black)
    delay (5)
end for

Author:  Tony [ Thu Nov 27, 2003 7:19 pm ]
Post subject: 

heh, interesting... although I find the design to come out better looking if both loops are run by 10 instead.

also - this should go into [Turing Source Code], Submissions are mostly for compiled programs. It will get moved later.

And try to make more descriptive subjects, so that it would be easier to find stuff Very Happy

Ether way - welcome to compsci 8)

Author:  Zero [ Thu Nov 27, 2003 11:27 pm ]
Post subject: 

Ya sorry about that Tony, I'll do that next time.
the orginal that I did do in my computer eng class was by 10
but i liked by 5 becasue it remined me of the death star so.

and Homer, that is cool, but i guess it would depend on the look you liked and wanted as to say if it is "nicer" or not, but i like it non the less.

Author:  Paul [ Sun Dec 07, 2003 4:19 pm ]
Post subject: 

var col : int
for y : 0 .. 500 by 20
for x : 0 .. 500 by 20
randint (col, 32, 200)
var y2 := 100 - x - y
drawoval (320, 240, x, y, col)
drawoval (320, 240, y, x, col)
delay (50)
end for
end for

Author:  kalin [ Tue Jan 20, 2004 11:11 am ]
Post subject: 

Hey. I personaly like 'em all. You can fiddle with them to make them a little different. I like them!


: