----------------------------------- rollerdude Thu May 03, 2007 8:42 am fade out ----------------------------------- basically what i'm trying to do is make the screen appear to fade out. problam, is have an object that isn't white, so simply telling it to draw it the color of one of the pre-define colors that previous to the one its at now won't work so.. heres my code, i want the box to disappear. var newcolor : int := 255 RGB.SetColor (newcolor, 0, 0, 17) proc fadeout for decreasing i : 31 .. 16 drawfillbox (0, 0, maxx, maxy, i) newcolor -= RGB.AddColor (0, 0, 2) drawfillbox (330, 11, 350, 199, newcolor) drawfillbox (330, 199, 350, 179, i) delay (100) end for end fadeout fadeout ----------------------------------- rollerdude Thu May 03, 2007 8:44 am Re: fade out ----------------------------------- grrr... *smacks himself in forhead* i have some wrong code there newcolor -= RGB.AddColor (0, 0, 2) is supposed to be newcolor -= RGB.AddColor (0, 0, i-17) so... its not working... any help would be nice... ----------------------------------- Drakain Zeil Thu May 03, 2007 3:03 pm RE:fade out ----------------------------------- I haven't used turing in years, but all I can think of is that using max_ and 0 drawn part of the box offscreen, try using 1 insetad of 0. ----------------------------------- rollerdude Fri May 25, 2007 10:17 am Re: fade out ----------------------------------- new algorithym...still not working,maybe this ones a bit better? var x, y, clr : int for i : 1 .. maxx for j : 1 .. maxy x := Rand.Int (1, maxx) y := Rand.Int (1, maxy) clr := Rand.Int (1, 255) drawdot (x, y, clr) end for end for delay (1000) for i : 1 .. maxx for j : 1 .. maxy var coloratplace : int := whatdotcolor (i, j) var redc, greenc, bluec : real var newr, newg, newb : real RGB.GetColor (coloratplace, redc, greenc, bluec) if redc not= 0 then newr := redc - 1 else newr := redc end if if bluec not= 0 then newb := bluec - 1 else newb := bluec end if if greenc not= 0 then newg := greenc - 1 else newg := greenc end if coloratplace := RGB.AddColor (newr, newg, newb) drawdot (i, j, coloratplace) end for end for ----------------------------------- Cervantes Fri May 25, 2007 4:53 pm RE:fade out ----------------------------------- If you want to fade the entire screen out, you won't be able to just cycle through the colours in the standard pallete that they give you. Instead, you're probably going to have to whatdotcolour each pixel, then use the RGB module to get the RGB components of that colour, then modify them all by a bit (subtract a constant from each of them, but make sure that constant is scaled for each of them so that you reach black all at once), then draw that new coloured pixel there, then move to the next pixel. This will probably be very slow, but I can't really think of any other way to do it. Also note that whatdotcolour matches to the current colour palette, so if you modify it, then whatdotcolour will produce different results. ----------------------------------- DIIST Sun May 27, 2007 9:08 am Re: fade out ----------------------------------- look into takepic and drawpic. I know for sure you can create a realistic fade effect by just decreasing the r,g,b values in the buffer by 1 and displaying the picture each time. Im not much of a pro with takepic and drawpic, but if you have any question, you should probably ask someone like zylum, hes pretty good at this stuff! :wink: ----------------------------------- rollerdude Mon May 28, 2007 8:08 am Re: fade out ----------------------------------- thnx... i'll pm zylum, but thats what i was doing with my second code, but as it went through the screen, everthing that was white, it turned black, and everything thas wasn't white, it turned white, so.... ----------------------------------- Tallguy Mon May 28, 2007 8:16 am RE:fade out ----------------------------------- cool, really hard ----------------------------------- Cervantes Tue May 29, 2007 3:44 pm RE:fade out ----------------------------------- In the shoutbox, you said you still needed help here. What is there left to help you with? I gave you one option and thuvs gave you another option (assuming you've got Turing 4.1). You said something kinda incomprehensible about white turning into black and white turning white... We can't debug your code if you don't give us the code, and we can't tell you what's wrong if all you give us is a vague and muffled description of your problem. ----------------------------------- rollerdude Wed May 30, 2007 1:00 pm Re: fade out ----------------------------------- i still need help because my code is not working... the rgb routine is truning everthing thats not white, white, and everything thats was white, black... so.... ----------------------------------- Cervantes Wed May 30, 2007 6:46 pm RE:fade out ----------------------------------- So.... So you expect me to fix your code? How am I supposed to do that if I can't see it? I'm not telepathic. So you expect me to tell you what's wrong with your code and how you should fix it? I can't do that if you don't give me a clearer description of your problem. How strange--it feels like I made essentially this exact same post already. ----------------------------------- DIIST Wed May 30, 2007 7:32 pm Re: RE:fade out ----------------------------------- How strange--it feels like I made essentially this exact same post already.DeJaVu... Feel the same way over here. RollerDude you might want to post your code if you want our help. We cant always play mind games, regardless of how we are good at it. I guessing your using RGB.SetColor in your code. If you are, then you need to be aware that changing that standard pallet will effect turing drawn object, changing there color as well. If you have turing 4.05 then just picscreen and do the fade effect which is included in that version. ----------------------------------- rollerdude Thu May 31, 2007 9:27 am Re: fade out ----------------------------------- *smacks his head*... its the second code i posted.. i think its the third reply... that code isn't working does this help? you dont have to be telepathic to scroll up... *sigh*.. i guess ill post it again i said... new algorithym...still not working,maybe this ones a bit better? var x, y, clr : int for i : 1 .. maxx for j : 1 .. maxy x := Rand.Int (1, maxx) y := Rand.Int (1, maxy) clr := Rand.Int (1, 255) drawdot (x, y, clr) end for end for delay (1000) for i : 1 .. maxx for j : 1 .. maxy var coloratplace : int := whatdotcolor (i, j) var redc, greenc, bluec : real var newr, newg, newb : real RGB.GetColor (coloratplace, redc, greenc, bluec) if redc not= 0 then newr := redc - 1 else newr := redc end if if bluec not= 0 then newb := bluec - 1 else newb := bluec end if if greenc not= 0 then newg := greenc - 1 else newg := greenc end if coloratplace := RGB.AddColor (newr, newg, newb) drawdot (i, j, coloratplace) end for end for ----------------------------------- Cervantes Thu May 31, 2007 9:58 pm RE:fade out ----------------------------------- Yeah, if you read the documentation for anything in the RGB module, you'll find that the red green and blue components are real numbers between 0 and 1. So when you subtract 1 from each component, you're doing a heck of a colour shift. If you want an approach that works, you'll have to do a little bit of algebra. ----------------------------------- DIIST Thu May 31, 2007 10:26 pm Re: RE:fade out ----------------------------------- If you want an approach that works, you'll have to do a little bit of algebra.Ive done it two ways. You can either decrease the r,g,b component as real values by 1/255 or you can try to preserve the r,g,b, ratio and try to decrease them all at once by decreasing one and decreasing the others with respect to the original ratio. The second method is what they do in real life, but the first one is a quick way to do it. The second method however looks a bit nicer and would provide the same effect as if you are using the yuv color space and just decreasing the luminance component. :wink: ----------------------------------- rollerdude Fri Jun 01, 2007 8:24 am Re: fade out ----------------------------------- SWEET SUCCESS!!! now, is there any way to speed it up? ----------------------------------- Cervantes Fri Jun 01, 2007 7:08 pm RE:fade out ----------------------------------- Not really. Sorry.