palette fading to black and back again http://gamedesign.wikidot.com/forum/t-20608/palette-fading-to-black-and-back-again Posts in the discussion thread "palette fading to black and back again" Fri, 17 Apr 2026 14:47:29 +0000 http://gamedesign.wikidot.com/forum/t-20608#post-51490 Re: palette fading to black and back again http://gamedesign.wikidot.com/forum/t-20608/palette-fading-to-black-and-back-again#post-51490 Sun, 23 Sep 2007 21:15:14 +0000 hartnell 10978 Sorry I couldn't be more help. I've been up on one of my famous no-sleep sprees. This is about to end immediately. I'll be back in action at GDN after Monday. Until then, expect me to me slightly… dumb.

—hartnell

]]> http://gamedesign.wikidot.com/forum/t-20608#post-51418 Re: palette fading to black and back again http://gamedesign.wikidot.com/forum/t-20608/palette-fading-to-black-and-back-again#post-51418 Sun, 23 Sep 2007 15:56:23 +0000 Daxter 36787 Aha! Nah its cool it wasnt a qbasic/freebasic difference I needed to get rid of the = signs for the transition back to color or I think it just kept looping forever… seems to be working ok now. Thanks!

]]> http://gamedesign.wikidot.com/forum/t-20608#post-51413 Re: palette fading to black and back again http://gamedesign.wikidot.com/forum/t-20608/palette-fading-to-black-and-back-again#post-51413 Sun, 23 Sep 2007 15:20:58 +0000 hartnell 10978 Have you checked the "Differences from QB" section in the introduction of the FB manual? —hartnell

]]> http://gamedesign.wikidot.com/forum/t-20608#post-51389 palette fading to black and back again http://gamedesign.wikidot.com/forum/t-20608/palette-fading-to-black-and-back-again#post-51389 Sun, 23 Sep 2007 12:46:31 +0000 Daxter 36787 Hi, I have been working through qbasic tutorials provided on petesqbsite (using freebasic though) and have been trying to work things out for myself rather than ask questions for every little thing, but I've finally hit a brick wall. One of the programs in the tutorials teaches about palettes and provides an example to fade the screen to black. I am trying to modify it so it fades to black, then back to the original color again. It works SOME of the time, but other times will not END or will suddenly switch to a random color after the fade-up (the fade to black works fine every time).
Can anybody see anything wrong with my code? I've also posted this on the freebasic forums, I think some of you guys use both, any help is much appreciated!

Cls Screen 20 Print "Specify a color to fade" Input Col Cls Paint (1, 1), Col Sleep Out &H3C7, Col R = Inp(&H3C9) G = Inp(&H3C9) B = Inp(&H3C9) SR = R SG = G SB = B Do If R >= 1 Then R = R - 1 If G >= 1 Then G = G - 1 If B >= 1 Then B = B - 1 Out &H3C8, Col Out &H3C9, R Out &H3C9, G Out &H3C9, B For PAUSE = 1 To 1000000: Next Loop Until R = 0 And G = 0 And B = 0 Sleep Do If R <= SR Then R = R + 1 If G <= SG Then G = G + 1 If B <= SB Then B = B + 1 Out &H3C8, Col 'Go To Port To Write Palette Information Out &H3C9, R 'Change Red Value to R (our variable) Out &H3C9, G 'Do the same with Green Out &H3C9, B 'And with Blue For PAUSE = 1 To 1000000: Next Loop Until R = SR And G = SG And B = SB End
]]>