----------------------------------- recneps Fri Mar 12, 2004 3:00 pm Be proud to be Canadian! :D ----------------------------------- Heres a cool technique, not the fanciest looking, but still cool :) Hope you like it. %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 Fri Mar 12, 2004 3:16 pm ----------------------------------- nice effect.. good zooming leafs ----------------------------------- Dan Fri Mar 12, 2004 10:24 pm ----------------------------------- cool effect. have some bits++ ----------------------------------- the_short1 Sat Mar 13, 2004 12:08 pm ----------------------------------- 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 Sat Mar 13, 2004 1:15 pm ----------------------------------- Use it as you wish :D (it is FREE source code... ;)) ----------------------------------- sport Sat Mar 13, 2004 3:18 pm ----------------------------------- Cool program. Would've looked great at the 2010 Olympics. ----------------------------------- recneps Sun Mar 14, 2004 10:46 am ----------------------------------- Lol "And now a word from our sponsors!" "Go Canada!" ----------------------------------- SuperGenius Mon Mar 15, 2004 3:01 pm ----------------------------------- very nifty, good job ----------------------------------- Jodo Yodo Thu Apr 01, 2004 6:32 pm ----------------------------------- I thought the code was great, so I added a little. %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 Thu Apr 01, 2004 9:52 pm ----------------------------------- thats cool.. is it supposed to leave the lines? anyway its cool ----------------------------------- dragun Mon May 10, 2004 4:56 pm is it possible to put a black background on that program? ----------------------------------- hey is it possible to put a black background on that program? ----------------------------------- the_short1 Mon May 10, 2004 9:19 pm ----------------------------------- sure... at the start colorback (black) cls there u go... black background... ----------------------------------- Young~Money Tue May 11, 2004 7:44 am ----------------------------------- Always be good to be Canadian ----------------------------------- white_dragon Sat May 15, 2004 10:59 am ----------------------------------- can't u use whatdotcolor as a command ----------------------------------- guruguru Sat May 15, 2004 1:17 pm ----------------------------------- 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. put whatdotcolor(100, 100) colorback(blue) put whatdotcolor (100, 100) ----------------------------------- SuperGenius Sat May 15, 2004 10:29 pm ----------------------------------- recneps would you be interested in helping me make a virus to infect people who act like dumbasses while the national anthem is playing? ie. talking, fidgeting with stuff, ect. One time someone had a cd player on and I would have been tempted to beat them but it was a girl. ----------------------------------- the_short1 Sun May 16, 2004 10:32 am ----------------------------------- PM me... i will... i have some good stuff ;)