dissolve slide fade

beedub · **Posted:** Fri May 16, 2003 8:57 pm

ty homer... that last one is exactly wat i wanted.. the one i was doing didnt fade into my image... it when into a clear screen then my image... thanks alot...

DiamondDev · **Posted:** Mon Jun 16, 2003 8:45 pm

I know this is an old thread, but this is exactly what i need....cept i need it to fade to black.......any ideas?

PHP God · **Posted:** Tue Jun 17, 2003 12:46 pm

you guys are lame. Lets use some arrays. Here's my idea thus far, its not working though.

code:

var ybuff:array 0..ymax of boolean
var xpos:int
var ypos:int:=0
var flag:boolean:=false
setscreen ("graphics,nocursor,noecho")
procedure dissolve (color:int,delay:int)
% Initialize and reset all values
for i:0..xmax
xbuff(i):=false
end for
for i:0..ymax
ybuff(i):=false
end for
% Begin dissolve
for i:0..ymax
ypos:=ypos+1
for j:0..xmax
loop
randint (xpos,0,xmax)
if xbuff(xpos)=false then
drawdot (xpos,ypos,color)
end if
xbuff(xpos):=true
for ii:0..maxx
if xbuff(i) = false then exit
else flag := true
end if
end for
if flag = true then exit
end if
end loop
end for
end for
end dissolve

basically, i have 2 arrays of boolean. when a dot gets colored in, its x position is TRUE, if it is uncolored it is FALSE. if an x position is already true, it will not be colored, if it is false color it. Then you check to see that all the dots in the row have been colored, if that is true then move on to the next row. I totally screwed that code up but that is my idea. I think I can make it now but my CPU class is almost over. my GR9 teacher can't help me because it is gr 11 stuff and she has to help all the newbs with MS Word Laughing

85882 · **Posted:** Tue Jun 17, 2003 2:30 pm

That's cool. Wink

Thanks!

DiamondDev · **Posted:** Tue Jun 17, 2003 5:52 pm

Hey,
Thanks for the code, even though you are rude. Should help me with the game I'm making...probably post it here when I'm finished and my Comp science course is over..seeing that its a final project........side scrollers are always fun to do...except its not a very practicle way of doing it when your screen is 800X 600

Answer to my own question
Modify Homer's code slightly Embarassed

stupid me.....

for ii : 1 .. 255 by 1
RGB.SetColor (black, ii, ii, ii)
colorback (black)
cls
delay (10)
end for

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members