Be proud to be Canadian! :D

[recneps]

Heres a cool technique, not the fanciest looking, but still cool
Hope you like it.

code:

%I am Canadian! var x:int:=0 setscreen("graphics:350;300;nobuttonbar;Title:I Am Canadian") setscreen("offscreenonly") loop drawfillmapleleaf(100+x,0+x,100+x+x,0+x+x,red) drawmapleleaf(100+x,0+x,100+x+x,0+x+x,0) drawfillmapleleaf(250-x,0+x,250-x-x,0+x+x,red) drawmapleleaf(250-x,0+x,250-x-x,0+x+x,0) View.Update delay(25) x+=1 exit when x=125 end loop var font:int:=Font.New("Comic Sans MS:15") Font.Draw("I Am Canadian!",110,225,font,red) drawfilloval(175,180,20,20,yellow) drawfilloval(168,188,3,3,7) drawfilloval(182,188,3,3,7) drawarc(175,180,12,12,200,340,7)

[jonos]

nice effect.. good zooming leafs

[Dan]

cool effect. have some bits++

[the_short1]

hell ya... that lookz SWEET.... can i pass around as a .exe to my friends...
that lookz good... here have 3 BITS>...
also can i add to my compilation of cool turing visuals... with you as author of course? (for my download manager)

[recneps]

Use it as you wish (it is FREE source code... )

[sport]

Cool program. Would've looked great at the 2010 Olympics.

[recneps]

Lol "And now a word from our sponsors!" <Insert animation here> "Go Canada!"

[SuperGenius]

very nifty, good job

[Jodo Yodo]

I thought the code was great, so I added a little.

code:

%I am Canadian! var x : int := 1 var xchange : int := 1 setscreen ("graphics:350;300;nobuttonbar;Title:I Am Canadian") setscreen ("offscreenonly") loop     drawfillmapleleaf (100 + x, 0 + x, 100 + x + x, 0 + x + x, red)     drawmapleleaf (100 + x, 0 + x, 100 + x + x, 0 + x + x, 0)     drawfillmapleleaf (250 - x, 0 + x, 250 - x - x, 0 + x + x, red)     drawmapleleaf (250 - x, 0 + x, 250 - x - x, 0 + x + x, 0)     View.Update     delay (25)     x += xchange     if x = 125 or x = 0 then         xchange := -xchange         %   exit when x = 125     end if end loop var font : int := Font.New ("Comic Sans MS:15") Font.Draw ("I Am Canadian!", 110, 225, font, red) drawfilloval (175, 180, 20, 20, yellow) drawfilloval (168, 188, 3, 3, 7) drawfilloval (182, 188, 3, 3, 7) drawarc (175, 180, 12, 12, 200, 340, 7)

Now the Maple Leafs go back when they hit the borders. Can someone build on this?

[valor]

thats cool.. is it supposed to leave the lines?
anyway its cool

[dragun]

hey is it possible to put a black background on that program?

[the_short1]

sure... at the start

code:

colorback (black) cls

there u go... black background...

[Young~Money]

Always be good to be Canadian

[white_dragon]

can't u use whatdotcolor as a command

[guruguru]

Sure... but what does this have to do with anything? whatdotcolor is a function that takes two coordinates as paramaters and return the color of the pixel at that point.

code:

put whatdotcolor(100, 100) colorback(blue) put whatdotcolor (100, 100)