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

Username:   Password: 
 RegisterRegister   
 team battle:
Index -> Contests
Goto page Previous  1, 2, 3
View previous topic Printable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
zylum




PostPosted: Thu Mar 11, 2004 11:35 pm   Post subject: (No subject)

lol, you cow!!! Wink anyways, my waves disipate... good work though!!!
*runs away and studies catalysts code"

lol, -zylum
Sponsor
Sponsor
Sponsor
sponsor
Tony




PostPosted: Thu Mar 11, 2004 11:51 pm   Post subject: (No subject)

Laughing you can always count on Catalyst to take any of your effects and add another dimention to it Wink
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
zylum




PostPosted: Thu Mar 11, 2004 11:59 pm   Post subject: (No subject)

in that case, i'll udate my old file:

code:
setscreen ("graphics:220;160,offscreenonly")
const size := ceil (sqrt (2 * 220 ** 2))
var clr : array 1 .. size of int
for i : 1 .. size
    clr (i) := RGB.AddColor (i / (size * 2), i / (size * 2) + 0.3, 1)
end for
var wave : array 1 .. size div 2 of real
for i : 1 .. size div 2
    wave (i) := i / 5
end for
var c : int
drawfillbox (0, 0, maxx, maxy, black)
loop
    for decreasing i : size div 2 .. 1
        wave (i) -= 0.5
        c := ceil ((sin (wave (i)) * (abs (size - i * 2.3)) / 3 + (size div 2)))
        drawfilloval (maxx div 2, round (maxy / 2 + c / 20) - 8, i, i div 2, clr (c))
    end for
    View.Update
end loop


Very Happy -zylum
Catalyst




PostPosted: Fri Mar 12, 2004 12:15 am   Post subject: (No subject)

code:

setscreen ("graphics:300;300,offscreenonly")
var vals : array 1 .. 250 of real
proc ColorSet (c1, c2, n : int)
    var r1, g1, b1, r2, g2, b2, p, clr : real
    RGB.GetColor (c1, r1, g1, b1)
    RGB.GetColor (c2, r2, g2, b2)
    for i : 1 .. n
        p := (i / n) * 100
        clr := RGB.AddColor ((((r1 * p) + (r2 * (100 - p))) / 2) / 50, (((g1 * p) + (g2 * (100 - p))) / 2) / 50, (((b1 * p) + (b2 * (100 - p))) / 2) / 50)
    end for
end ColorSet
ColorSet (55, 1, 128)
ColorSet (53, 55, 88)
ColorSet (102, 53, 32)
for i : 1 .. 250
    vals (i) := i
end for
var theta, inc : real := 1
loop
    for decreasing i : 250 .. 1
        vals (i) -= 2
        drawfilloval (maxx div 2, round (150 * (theta / 360)) - round (sind (vals (i) * 5) * 15), i, round (i * (theta / 360)), round (maxcolor - ((sind (vals (i) * 5) + 1) / 2) * 220))
    end for
    if (theta >= 360) or (theta < 0) then
        inc := -inc
    end if
    theta += inc
    View.Update
    drawfillbox (0, 0, maxx, maxy, 55)
end loop
zylum




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

man, that one just killed my computer... runs fine for the first few seconds and then it starts zooming in or rotating and the it just goes like 5 fps Confused nice fading though

ps my waves still disipate 8)

-zylum
Maverick




PostPosted: Fri Mar 12, 2004 6:44 pm   Post subject: (No subject)

damn thats a little too good. I forfeit Smile
zylum




PostPosted: Fri Mar 12, 2004 7:05 pm   Post subject: (No subject)

lol, so i guess team maveric/paul bian forfiet due to lack of confidence/skill... and catalyst is disqualified for plagerism Laughing

i declare myself the winner!!! unless catalyst can come up with something a bit more original...

-zylum
Paul




PostPosted: Sun Mar 14, 2004 5:44 pm   Post subject: (No subject)

zylum wrote:
lol, so i guess team maveric/paul bian forfiet due to lack of confidence/skill... and catalyst is disqualified for plagerism Laughing

i declare myself the winner!!! unless catalyst can come up with something a bit more original...

-zylum

Damn, shut down before I even started.
Sponsor
Sponsor
Sponsor
sponsor
the_short1




PostPosted: Sun Mar 14, 2004 7:31 pm   Post subject: (No subject)

im not as pro at some others i only took gr10... but im in if its turing cuz thats all i know righte now... and hey zylum... il be on ur team... we garuntee win... hell u made that fractoral tree in 49 lines... that was TITE.......
the_short1




PostPosted: Sun Mar 14, 2004 7:33 pm   Post subject: (No subject)

yea i only read page one.. i didibn;t notice the other 2 pages... then i posted.. hehehe... my bad

and wow... those are both REALY good... hard to say which is better Catalyst or zylum
sport




PostPosted: Sun Mar 14, 2004 7:43 pm   Post subject: Battle topic

Useful stuff. Let's have a battle of making something useful, the most useful program wins.
Display posts from previous:   
   Index -> Contests
View previous topic Tell A FriendPrintable versionDownload TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 3 of 3  [ 41 Posts ]
Goto page Previous  1, 2, 3
Jump to:   


Style:  
Search: