Computer Science Canada

Be proud to be Canadian! :D
Author:  recneps [ 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)
Author:  jonos [ Fri Mar 12, 2004 3:16 pm ]
Post subject: 
nice effect.. good zooming leafs
Author:  Dan [ Fri Mar 12, 2004 10:24 pm ]
Post subject: 
cool effect. have some bits++
Author:  the_short1 [ Sat Mar 13, 2004 12:08 pm ]
Post 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)
Author:  recneps [ Sat Mar 13, 2004 1:15 pm ]
Post subject: 
Use it as you wish Very Happy (it is FREE source code... Wink)
Author:  sport [ Sat Mar 13, 2004 3:18 pm ]
Post subject: 
Cool program. Would've looked great at the 2010 Olympics.
Author:  recneps [ Sun Mar 14, 2004 10:46 am ]
Post subject: 
Lol "And now a word from our sponsors!" <Insert animation here> "Go Canada!"
Author:  SuperGenius [ Mon Mar 15, 2004 3:01 pm ]
Post subject: 
very nifty, good job
Author:  Jodo Yodo [ Thu Apr 01, 2004 6:32 pm ]
Post 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?
Author:  valor [ Thu Apr 01, 2004 9:52 pm ]
Post subject: 
thats cool.. is it supposed to leave the lines?
anyway its cool
Author:  dragun [ 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?
Author:  the_short1 [ Mon May 10, 2004 9:19 pm ]
Post subject: 
sure... at the start

code:

colorback (black)
cls


there u go... black background...
Author:  Young~Money [ Tue May 11, 2004 7:44 am ]
Post subject: 
Always be good to be Canadian
Author:  white_dragon [ Sat May 15, 2004 10:59 am ]
Post subject: 
can't u use whatdotcolor as a command
Author:  guruguru [ Sat May 15, 2004 1:17 pm ]
Post 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)
Author:  SuperGenius [ Sat May 15, 2004 10:29 pm ]
Post subject: 
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.
Author:  the_short1 [ Sun May 16, 2004 10:32 am ]
Post subject: 
PM me... i will... i have some good stuff Wink

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy