Computer Science Canada

Animation Introduction

Author:  sean7baldwin [ Tue Oct 05, 2004 1:01 pm ]
Post subject:  Animation Introduction

This is my first animation program I made for my engineering class. Check it out!
code:

var row, col : int

row := 10
col := 1
var starx : int
var stary : int

drawfillbox (0, 0, maxx, maxy, black)
drawfillbox (0, maxy, maxx, 210, blue)
drawfilloval (400, 300, 30, 30, white)

for x : 1 .. 50
    randint (starx, 10, maxx - 10)
    randint (stary, 210, maxy - 10)
    drawfillstar (starx, stary, starx + 10, stary + 10, yellow)
    delay (50)
end for

for y : 1 .. 57
    colourback (blue)
    locate (row, col)
    colour (brightred)
    put "        xxxxxxx      " ..
    locate (row + 1, col)
    colour (brightred)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 2, col)
    colour (brightred)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 3, col)
    colour (brightred)
    colourback (black)
    put "xxOxxxxxxxxxxxxxxx0xxx" ..
    colourback (blue)
    delay (50)
    colour (blue)
    colourback (blue)
    locate (row, col)
    colour (brightred)
    put "        xxxxxxx      " ..
    locate (row + 1, col)
    colour (blue)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 2, col)
    colourback (blue)
    colour (blue)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 3, col)
    colour (black)
    colourback (black)
    put "xxOxxxxxxxxxxxxxxx0xxx" ..
    col := col + 1
    delay (50)
end for

for y : 1 .. 57
    colourback (blue)
    locate (row, col)
    colour (brightred)
    put "        xxxxxxx      " ..
    locate (row + 1, col)
    colour (brightred)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 2, col)
    colour (brightred)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 3, col)
    colour (brightred)
    colourback (black)
    put "xxOxxxxxxxxxxxxxxx0xxx" ..
    colourback (blue)
    delay (50)
    colour (blue)
    colourback (blue)
    locate (row, col)
    colour (brightred)
    put "        xxxxxxx      " ..
    locate (row + 1, col)
    colour (blue)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 2, col)
    colourback (blue)
    colour (blue)
    put "xxxxxxxx       xxxxxxxX" ..
    locate (row + 3, col)
    colour (black)
    colourback (black)
    put "xxOxxxxxxxxxxxxxxx0xxx" ..
    col := col - 1
    delay (50)
end for
View.Update

Author:  GB [ Tue Oct 05, 2004 1:01 pm ]
Post subject: 

OMG DIS IS TEH 1337 H4X!!!! WHAOMG 11/10

Author:  Mazer [ Tue Oct 05, 2004 1:02 pm ]
Post subject: 

Wrong section. Moved to Turing Source.

Author:  Dan [ Tue Oct 05, 2004 1:12 pm ]
Post subject: 

GB wrote:
OMG DIS IS TEH 1337 H4X!!!! WHAOMG 11/10


Sigh, i whonder some days what the world whould be like if we killed off all the 1337 speakers? May be peace on erath.....

Author:  GB [ Tue Oct 05, 2004 1:19 pm ]
Post subject: 

Peace on erath...where is that..in a far far galaxy or what?
Hah I'm joking anyways.

Author:  josh [ Tue Oct 05, 2004 1:26 pm ]
Post subject: 

pretty cool, the car flikers alot though Very Happy

Author:  Paul [ Tue Oct 05, 2004 5:42 pm ]
Post subject: 

Engineering you say? thats great.
it'd be better if u redrew the stars after the car wiped them out.

Author:  zomg [ Thu Oct 14, 2004 11:01 am ]
Post subject: 

I have 2 words to say to that:Vaguely impaleresk[/quote]


: