How to smoothly fadeout desktop?

[thesolarcode]

For a simple game, I'd like to start it with fading out the desktop.
I have some code which nearly does what I want, but it blinks ugly - maybe someone can help me.

Code: QB64: [Select]

1. _DISPLAY
2.  
3. img& = _SCREENIMAGE
4. screenx = _WIDTH(img&)    
5. screeny = _HEIGHT(img&)
6. SCREEN _NEWIMAGE(screenx, screeny, 32)
7. _FULLSCREEN
8. _PUTIMAGE (0, 0)-(screenx-1, screeny-1), img&
9. _DISPLAY
10. sleep 3
11.  
12. ' Fade out
13. FOR i% = 0 TO 255 STEP 5
14.   _LIMIT 50                          'control fade speed
15.   _PUTIMAGE (0, 0)-(screenx-1, screeny-1), img&
16.   LINE (0, 0)-(screenx-1, screeny-1), _RGBA(0, 0, 0, i%), BF 'increase black box transparency
17.   _DISPLAY
18. NEXT
19. END
20.  

[bplus]

Why do you have sleep before fadeout?

Never mind.

The blink is the program starting up. It might be less if _limit put after display instead of before ie
update THEN display THEN delay.

[thesolarcode]

I added the sleep to see where the blinking is happening.
I thought first it blinks due to the program startup, but on my PC there is some ugly blink right after the 3 second sleep (actually it looks like the fade out starts with a black image/screen), and at that time I would guess it is not anymore caused by any startup or setup of the screen.

I tried to move the _limit to after display as you suggested, but don't see any difference.

[Pete]

Sometimes my system locks up with _FULLSCREEN, so I tested it this way and added $SCREENHIDE and $SCREENSHOW...

Code: QB64: [Select]

1. $SCREENHIDE
2. img& = _SCREENIMAGE
3. screenx = _WIDTH(img&)
4. screeny = _HEIGHT(img&)
5. SCREEN _NEWIMAGE(screenx, screeny, 32)
6. _SCREENMOVE -5, -25
7. '_FULLSCREEN
8. _PUTIMAGE (0, 0)-(screenx - 1, screeny - 1), img&
9. _DISPLAY
10. $SCREENSHOW
11. SLEEP 3
12.  
13. ' Fade out
14. FOR i% = 0 TO 255 STEP 5
15.     _LIMIT 50 'control fade speed
16.     _PUTIMAGE (0, 0)-(screenx - 1, screeny - 1), img&
17.     LINE (0, 0)-(screenx - 1, screeny - 1), _RGBA(0, 0, 0, i%), BF 'increase black box transparency
18.     _DISPLAY
19. NEXT
20.  

_SCREENMOVE -5, -25

That statement centers it over my desktop, perfectly at 1366 x 768 desktop resolution. The -25 moves the QB64 title bar off the screen.

Try it with _FULLSCREEN, too. Just unremark it.

Oh, I came back to edit out that _DELAY .1. It turns out it will work without any delay.

Pete

[bplus]

I don't see difference either, I think now it is _FULLSCREEN that causes the blink.

What if you went from black to the image you want, a fade in so the blackout works for you.

Pete's code works better for me.

[thesolarcode]

Wow, Pete's code works much better, seems like the _FULLSCREEN is the issue.
I can live with the short blink at the start.

Thanks :)

[Pete]

Wow, Pete's code works much better, seems like the _FULLSCREEN is the issue.
I can live with the short blink at the start.

Thanks :)

Well, the quote definitely looks better in FULLSCREEN. :D

Pete

[TempodiBasic]

I can confirm Pete experience

this code without _FULLSCREEN  works well with a bit flickering at the start... just a little
in the while with _FULLSCREEN the flickering is like an heartquake!

Code: QB64: [Select]

1. _DISPLAY
2. img& = _SCREENIMAGE
3. screenx = _WIDTH(img&)
4. screeny = _HEIGHT(img&)
5. SCREEN _NEWIMAGE(screenx, screeny, 32)
6. _SCREENMOVE -1, -26
7.  
8. _PUTIMAGE (0, 0)-(screenx - 1, screeny - 1), img&
9. _DISPLAY
10. SLEEP 3
11.  
12. ' Fade out
13. FOR i% = 0 TO 255 STEP 5
14.     _LIMIT 50 'control fade speed
15.     _PUTIMAGE (0, 0)-(screenx - 1, screeny - 1), img&
16.     LINE (0, 0)-(screenx - 1, screeny - 1), _RGBA(0, 0, 0, i%), BF 'increase black box transparency
17.     _DISPLAY
18. NEXT
19. END

the results seem the same also in this manner...
also my Notebook screen is set to 1366x768 and I need to move screen to -1 , -26 to hide title bar and left border of window.

let me say: Exellent tip Pete!

[Pete]

Thank you. Some of this non-SCREEN 0 stuff is fun at times. If you're up to some really crazy stuff, have a look at my Firefox session manager app: https://www.qb64.org/forum/index.php?topic=860.0

Pete