Posted: 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
-zylum
Catalyst
Posted: 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
Posted: 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 nice fading though
ps my waves still disipate 8)
-zylum
Maverick
Posted: Fri Mar 12, 2004 6:44 pm Post subject: (No subject)
damn thats a little too good. I forfeit
zylum
Posted: 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
i declare myself the winner!!! unless catalyst can come up with something a bit more original...
-zylum
Paul
Posted: 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
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
the_short1
Posted: 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
Posted: 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
Posted: 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.
Register
Wiki
Blog
Search
Turing
Chat Room
Members
anyways, my waves disipate... good work though!!!
you can always count on Catalyst to take any of your effects and add another dimention to it 
-zylum
nice fading though
