Re:vga Screen Fader

 BBS: Inland Empire Archive
Date: 05-31-92 (03:13)             Number: 145
From: RICH GELDREICH               Refer#: NONE
  To: MARK BUTLER                   Recvd: NO  
Subj: Re:vga Screen Fader            Conf: (2) Quik_Bas

>  Hiya Rich, I missed all the rest of this thread except this last one
>  and of course I grabbed it. Dumb question time; just what is Fade and
>  what is it's calling syntax from QB?

    Here's the QB program that I also uploaded with that source that
shows you how to use the fader. Hope it's what your looking for(if you
want the assembly code I'll post that too).

'VGA screen fader
'By Rich Geldreich

'(NOTE:Works strange in text modes. Seems that the palette in
'the text mode is not contagious for some odd reason.
'FadeScreen 0,255,1 works however.)

'The total time for a fade is about:
'TotalTime=(Delay/70)*64

DEFINT A-Z
DECLARE SUB FadeScreen (BYVAL StartC, BYVAL EndC, BYVAL Delay)
'fade the text screen...
FadeScreen 0, 255, 1
'go to 320x200x256
SCREEN 13
'draw some garbage
FOR A = 0 TO 40
    X = RND * 320: Y = RND * 200
    R = RND * 50: C = RND * 255
    CIRCLE (X, Y), R, C
    PAINT (X, Y), RND * 255, C
NEXT
'fade it to black
FadeScreen 0, 255, 2    '256 color fade, two frames each fade
'go to 640x480x16
SCREEN 12
'draw some more garbage
FOR A = 0 TO 80
    X = RND * 640: Y = RND * 480
    R = RND * 50: C = RND * 15
    CIRCLE (X, Y), R, C
    PAINT (X, Y), RND * 15, C
NEXT
'fade it to black again
FadeScreen 0, 15, 1     '16 color fade, one frame each fade
SLEEP 1
PALETTE

    I have recently made this small procedure more usefull and have also
added the capibility to fade up too(instead of just fading down like
this version does). Perhaps I'll post that soon. Have fun!

    Rich Geldreich

--- RBBSMAIL 17.2A
 * Origin: Computer Co-Op RBBS HST, 609-784-9404 Voorhees
NJ (RBBS-PC 1:266/29)