Turing Canadian Animation
| Author |
Message |
Cowboy1543
|
 Posted: Thu Jan 08, 2015 7:56 pm Post subject: Turing Canadian Animation |
|
|
Turing Canadian Animation 
| Description: |
|
Download |
| Filename: |
Canadian+Flag.t |
| Filesize: |
532 Bytes |
| Downloaded: |
350 Time(s) |
|
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
bubb4h0t3p
|
| Posted: Thu Jan 22, 2015 7:17 pm Post subject: Re: Turing Canadian Animation |
|
|
Why not just post the source code if you're not attaching any files and the code is short anyways?, it's this easy
| Turing: | %Made and designed by Cowboy1543%
var col : int := 16
var a : int := 0
var b : int := 0
setscreen ("graphics:450;250,nobuttonbar,nocursor")
colourback (4)
cls
loop
colour (col )
col+= 1
locate (1, 20)
put "******************": 56. .
put "* CANADIAN FLAG! *": 56. .
put "******************"
delay (100)
exit when col = 31
a+= 30
b+= 30
drawfillmapleleaf (30, 210-a, 0, 240-b, 0)
drawfillmapleleaf (420, 210-a, 450, 240-b, 0)
drawfillmapleleaf (0+a, 0, 30+b, 30, 0)
drawfillmapleleaf (420-a, 0, 450-b, 30, 0)
end loop
|
Anyways I guess it's a pretty neat animation nice job
|
|
|
|
|
|
Cowboy1543
|
| Posted: Fri Apr 29, 2016 12:39 pm Post subject: Re: Turing Canadian Animation |
|
|
 
|
|
|
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
