Fades

 BBS: Inland Empire Archive
Date: 02-25-94 (04:32)             Number: 189
From: GARY GLUECKERT               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Fades                          Conf: (2) Quik_Bas

Recently someone asked about a snippet of code to do screen fades. I
recently found a file named QBFAQR01.ZIP that contained two files which
did screen fades. I'll post those two files in messages here. You can
also FREQ for this file with the magic name of FAQR from 1:107/270. To
all unlisted points that tried to FREQ MONSHELL from this address...
sorry your requests were refused and all is fixed for you to FREQ the
files you want.
Here are the screenfade snippets:

'Date: 05-19-92 (02:53)
'From: RICH GELDREICH
'Subj: (R)FADING SCREEN MODE 13
'-------------------------'****PART 1****
'The following program makes the fade.obj file. To make a .QLB use:
'link /q fade,fade,,bqlb45.lib
'(assuming bqlb45.lib is in the current directory)
'To make a .LIB so you can compile it, enter LIB at the DOS prompt and
'type:
'fade.lib  at the library prompt
'Y         at the "Make new library?" prompt
'+fade.obj at the operations prompt
'<Enter>   at the listing prompt

DEFINT A-Z
RESTORE
OPEN "fade.obj" FOR BINARY AS #1
S$ = "": Check = &HFFFF: CheckSum = 0
FOR A = 1 TO 345
    READ A$
    A$ = "&H" + A$: V = VAL(A$): S$ = S$ + CHR$(V)
    Check = Check XOR V: CheckSum = (CheckSum + V) AND &HFF
NEXT

IF Check <> &HFF3F OR CheckSum <> 0 THEN
    PRINT "UNcool! This copy has been trashed!"
    END
ELSE
    PRINT "Success!"
    PRINT "R.G."
    PUT #1, , S$
END IF
CLOSE


DATA 80,A,0,8,66,61,64,65,2E,41,53,4D,CF,88,1F,0,0,0,54,75,72,62,6F,20
DATA 41,73,73,65,6D,62,6C,65,72,20,20,56,65,72,73,69,6F,6E,20,32,2E,30
DATA B9,88,10,0,40,E9,E0,4E,B2,18,8,66,61,64,65,2E,41,53,4D,A0,88,3,0,40
DATA E9,4C,96,2,0,0,68,88,3,0,40,A1,94,96,C,0,5,5F,54,45,58,54,4,43,4F
DATA 44,45,96,98,7,0,48,89,0,2,3,1,8A,96,C,0,5,5F,44,41,54,41,4,44,41,54
DATA 41,C2,98,7,0,48,0,3,4,5,1,C,96,8,0,6,44,47,52,4F,55,50,8B,9A,4,0,6
DATA FF,2,5B,90,11,0,0,1,A,46,41,44,45,53,43,52,45,45,4E,0,0,0,84,88,4
DATA 0,40,A2,1,91,A0,8D,0,1,0,0,55,8B,EC,1E,6,B8,0,0,8E,D8,8E,C0,8B,76
DATA A,8B,4E,8,2B,CE,41,BA,C7,3,BF,0,0,90,8B,C6,EE,42,EE,42,EC,AA,EC,AA
DATA EC,AA,4A,4A,46,E2,EF,BB,40,0,8B,7E,A,BE,0,0,8B,4E,6,90,B2,DA,B4,8
DATA EC,22,C4,74,FB,90,EC,22,C4,75,FB,E2,EF,B2,C7,8B,4E,8,2B,CF,41,90,8B
DATA C7,EE,42,EE,42,AC,F6,E3,D1,E0,D1,E0,8A,C4,EE,AC,F6,E3,D1,E0,D1,E0
DATA 8A,C4,EE,AC,F6,E3,D1,E0,D1,E0,8A,C4,EE,4A,4A,47,E2,D7,4B,83,FB,FF
DATA 75,AD,7,1F,5D,CA,6,0,E7,9C,F,0,C8,6,55,1,C4,19,14,1,2,C4,34,14,1,2
DATA 2E,8A,2,0,0,74

'That's all! Run this program first: it will make a small .obj file in
'the current directory. Then follow the directions above to make a .QLB
'file.

'After you make the .QLB file, load QB like this:

'QB /lfade.qlb

'Then load in the first program(usefade.bas) and see if it works
'correctly(I'll kill myself if it doesn't :-)


'Date: 05-19-92 (02:48)
'From: RICH GELDREICH
'Subj: (R)FADING SCREEN MODE 13
'-------------------------------------------------
'Aaa- what the hell. The following two programs will allow you to fade
'any VGA screen. The first, USEFADE.BAS, shows you how to use the
'subroutine. The second, FADE.BAS, makes a small .OBJ file
'which contains the machine language subroutine to fade the screen.
'Follow the instructions at the beginning of FADE.BAS to make a .QLB or
'.LIB file.
'****PART 2****
'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)
WHILE INKEY$ = ""
'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
WEND
$$61
--- MsgToss 2.0c
 * Origin: The State University of New York at Farmingdale (1:107/270)