Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 Animation Introduction
Index -> Programming, Turing -> Turing Submissions
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
sean7baldwin




PostPosted: 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
Sponsor
Sponsor
Sponsor
sponsor
GB




PostPosted: Tue Oct 05, 2004 1:01 pm   Post subject: (No subject)

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




PostPosted: Tue Oct 05, 2004 1:02 pm   Post subject: (No subject)

Wrong section. Moved to Turing Source.
Dan




PostPosted: Tue Oct 05, 2004 1:12 pm   Post subject: (No 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.....
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
GB




PostPosted: Tue Oct 05, 2004 1:19 pm   Post subject: (No subject)

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




PostPosted: Tue Oct 05, 2004 1:26 pm   Post subject: (No subject)

pretty cool, the car flikers alot though Very Happy
Paul




PostPosted: Tue Oct 05, 2004 5:42 pm   Post subject: (No subject)

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




PostPosted: Thu Oct 14, 2004 11:01 am   Post subject: (No subject)

I have 2 words to say to that:Vaguely impaleresk[/quote]
Sponsor
Sponsor
Sponsor
sponsor
Display posts from previous:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 1  [ 8 Posts ]
Jump to:   


Style:  
Search: