Asm Fader

 BBS: Inland Empire Archive
Date: 11-16-92 (04:00)             Number: 267
From: RICH GELDREICH               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Asm Fader                      Conf: (2) Quik_Bas

To execute this script, save it to a file and type DEBUG < filename
where "filename" is the name of this script file.
E165"FADEIT.LZH" 0
E200"XEP9gVKBhkH...UI/...9urPN.G.8MIE2JIGItmH0do2jr2..2.4W7qk2lu7j"
E23D"jTiZD/gp2W3NkSJ8W2fEnnnB3MdbOdMZEWibIAGfMlKPQBQ1FEQF.qaJ66gML"
E27A"OkIVM83ZdW1DVW2kiZOgUi0KDE4EdPhl75ebKOb8nUI9GtkA8k0gpAZqQD7Az"
E2B7"oLT7fQCynCmNunP0vTUsxC6uZVRThglk8jvihWLcgYKWm1IJcHxBLUfhI6VAG"
E2F4"AX5QFwJUsaAp3MVHzN96U6d/pcEnkgEAluEL.P1/QURQWqWkUR1uhekJ.3/nI"
E331"63W2GWI7l/kRsz7LIjBmlRxAwEi7ovlyHU.mQx9XTCR/ivsI9EqCc0qhQ6vzg"
E36E"iwhYZ9KhgBSbETs0wa5BzSPPpiTUDzFLfGbb08w33hhOMDxJGGtB8rcJXeTJ4"
E3AB"Ie6UMtHjru0DRTzvc80TKjVFZCPbEgKANGYF/pY3w8..."
E100 B8 0 3C BA 65 1 33 C9 CD "!rC" BE 0 2 50 BD 62 1 55 BF 88 90
E117 "W3" DB B1 FA 8A F0 80 C1 6 32 E4 AC "<9v" 8 "<Zv" 2 2C 6 2C
E12F 7 2C 2E E3 E8 D3 E0 A C6 AA 2 D8 92 "IIMu" E0 80 FB 33 75 9 5A
E147 59 5B B4 40 CD 21 73 7 B4 9 BA 58 1 CD 21 CD 20 7 "Error!$"
G
Q

    Finally, here is a test program for the above assembly subroutine:

'A small demonstration of how to use the noiseless palette routine
'by Rich Geldreich
'to link the OBJ file into a QLB & LIB use:
'LINK /Q fadeit,,,bqlb45.lib (QB4.5)
'LINK /Q fadeit,,,qbxqlb,;   (PDS)
'LIB fadeit+fadeit,,,;
'Load QB with QB/lfadeit
DEFINT A-Z
DECLARE SUB GetPalette ()
DECLARE SUB SetPalette (BYVAL B, BYVAL S, BYVAL NC)
                       'brightness   |        |
SCREEN 13                        'start color |
'draw some garbage                        'number of colors
RANDOMIZE TIMER 'wow the circles are different every time
FOR A = 1 TO 100
    x = RND * 320
    y = RND * 200
    C = RND * 256
    CIRCLE (x, y), RND * 50, C
    PAINT (x, y), RND * 256, C
NEXT

GetPalette
DO
    FOR A = 255 TO 0 STEP -5
        WAIT &H3DA, 8
        SetPalette A, 0, 256
    NEXT
    FOR A = 1 TO 255 STEP 5
        WAIT &H3DA, 8
        SetPalette A, 0, 256
    NEXT
LOOP

    If anybody spots noise while the program is fading up & down, tell
me and I'll go back to the drawing board and find a new algorithm! I'm
pretty sure there won't be, however.

    Rich

--- MsgToss 2.0b
 * Origin: Computer Co-Op - Voorhees, NJ | Ted Hare (1:266/29)