dissolve slide fade

beedub · **Posted:** Thu May 08, 2003 9:22 pm

hey all i was thinking, when i change a scene in a program, i can make a dissolve or a cool scene movement. I was wondering how would i do that... locate,randint?

Tony · **Posted:** Thu May 08, 2003 10:24 pm

code:

colorback (black)

var r,c:int

for i:1..3000
r:= Rand.Int(1,maxrow-1)
c:= Rand.Int(1,maxcol)

locate(r,c)
put " "
end for

randomly color the screen in. It will be more "dissolving" if you use Draw.Dot instead...

Homer_simpson · **Posted:** Thu May 08, 2003 10:36 pm

i think u forgot to put this in your loop

code:

colorback (c)

Tony · **Posted:** Thu May 08, 2003 10:38 pm

code:

colorback(i)

but no, I wanted color to remain black so its consistant. If you keep on changing the colours though, you can cause some people to have siezures (probably bad spelling) Twisted Evil

Fixed it. -Asok

beedub · **Posted:** Sun May 11, 2003 9:31 pm

ty soo much.. thats egcactly what i wanted

beedub · **Posted:** Thu May 15, 2003 9:07 pm

umm.. one quick question.. srry if this is newbish but.. what would the perimeters be for the drawdot ??... like drawdot (320,200,black)... or what?

void · **Posted:** Thu May 15, 2003 9:12 pm

drawdot (x,y,color)...ye...u were rite...

beedub · **Posted:** Thu May 15, 2003 9:13 pm

i know that.. but to correctly make the slide fade look proper... then what would the perimeters be?..like the coordinates... and void what school you go to??

beedub · **Posted:** Thu May 15, 2003 9:31 pm

nvm... i found out... this is what my final code is

code:

drawfillbox (0,0, 640, 400, black)

var r,c,r2,c2:int

for i:1..3000
r:= Rand.Int(1,maxrow-1)
c:= Rand.Int(1,maxcol)
r2:=Rand.Int (1,640)
c2:=Rand.Int (1,400)

locate(r,c)
drawfillbox (r2,c2,r2+10,c2+10,white)
delay (1)
end for
cls

thanks for the help;)

Homer_simpson · **Posted:** Thu May 15, 2003 10:05 pm

was bored tried to write something short...

code:

colorback(black)
cls
var x,y:array 1..1000 of int

for i:1..3000
for ii:1..1000
x(ii):=Rand.Int (1,640)
y(ii):=Rand.Int (1,400)
end for

for ii:1..1000
drawdot(x(ii),y(ii),white)
%drawfilloval(x(ii),y(ii),1,1,white)
end for
end for
cls

beedub · **Posted:** Thu May 15, 2003 10:08 pm

thats nice... the only problem is... it takes to long to end...

Martin · **Posted:** Thu May 15, 2003 10:17 pm

Whatchya making, beedub?

beedub · **Posted:** Fri May 16, 2003 5:17 pm

when i chage scenes in a program i want it to look cool... and make it just like a quick change of scene... so i make it dissolve..

Homer_simpson · **Posted:** Fri May 16, 2003 6:23 pm

this another fade to white effect...

code:

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

Homer_simpson · **Posted:** Fri May 16, 2003 6:35 pm

this is another effect it fades the black screen to yer image...

code:

View.Set ("offscreenonly")
var i := 257
for decreasing ii : 255 .. 1 by 1
i -= 1
RGB.SetColor (black, ii, ii, ii)
colorback (black)
cls
RGB.SetColor (blue, i, i, 255)
drawfillstar (1, 1, 300, 300, blue)
View.Update
%delay (5)
end for

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