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

Username:   Password: 
 RegisterRegister   
 Be proud to be Canadian! :D
Index -> Programming, Turing -> Turing Submissions
Goto page 1, 2  Next
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
recneps




PostPosted: Fri Mar 12, 2004 3:00 pm   Post subject: Be proud to be Canadian! :D

Heres a cool technique, not the fanciest looking, but still cool Smile
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)
Sponsor
Sponsor
Sponsor
sponsor
jonos




PostPosted: Fri Mar 12, 2004 3:16 pm   Post subject: (No subject)

nice effect.. good zooming leafs
Dan




PostPosted: Fri Mar 12, 2004 10:24 pm   Post subject: (No subject)

cool effect. have some bits++
Computer Science Canada Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more!
the_short1




PostPosted: Sat Mar 13, 2004 12:08 pm   Post subject: (No subject)

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




PostPosted: Sat Mar 13, 2004 1:15 pm   Post subject: (No subject)

Use it as you wish Very Happy (it is FREE source code... Wink)
sport




PostPosted: Sat Mar 13, 2004 3:18 pm   Post subject: (No subject)

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




PostPosted: Sun Mar 14, 2004 10:46 am   Post subject: (No subject)

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




PostPosted: Mon Mar 15, 2004 3:01 pm   Post subject: (No subject)

very nifty, good job
Sponsor
Sponsor
Sponsor
sponsor
Jodo Yodo




PostPosted: Thu Apr 01, 2004 6:32 pm   Post subject: (No subject)

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




PostPosted: Thu Apr 01, 2004 9:52 pm   Post subject: (No subject)

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




PostPosted: Mon May 10, 2004 4:56 pm   Post subject: 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




PostPosted: Mon May 10, 2004 9:19 pm   Post subject: (No subject)

sure... at the start

code:

colorback (black)
cls


there u go... black background...
Young~Money




PostPosted: Tue May 11, 2004 7:44 am   Post subject: (No subject)

Always be good to be Canadian
white_dragon




PostPosted: Sat May 15, 2004 10:59 am   Post subject: (No subject)

can't u use whatdotcolor as a command
guruguru




PostPosted: Sat May 15, 2004 1:17 pm   Post subject: (No subject)

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)
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 2  [ 17 Posts ]
Goto page 1, 2  Next
Jump to:   


Style:  
Search: