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

sean7baldwin

Tue Oct 05, 2004 1:01 pm


Animation Introduction

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

This is my first animation program I made for my engineering class.  Check it out!
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

Tue Oct 05, 2004 1:01 pm



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

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


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

Mazer

Tue Oct 05, 2004 1:02 pm



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

Wrong section. Moved to Turing Source.


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

Dan

Tue Oct 05, 2004 1:12 pm



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

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

Tue Oct 05, 2004 1:19 pm



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

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


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

josh

Tue Oct 05, 2004 1:26 pm



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

pretty cool, the car flikers alot though :D


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

Paul

Tue Oct 05, 2004 5:42 pm



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

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


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

zomg

Thu Oct 14, 2004 11:01 am



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

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