Animation Introduction

[sean7baldwin]

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

[GB]

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

[Mazer]

Wrong section. Moved to Turing Source.

[Dan]

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

[GB]

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

[josh]

pretty cool, the car flikers alot though

[Paul]

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

[zomg]

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