Asm Fader/fix 2

 BBS: Inland Empire Archive
Date: 11-21-92 (23:12)             Number: 347
From: RICH GELDREICH               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Asm Fader/fix 2                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"XcK9gVKBhoK....W/...uWJRN.G.8MIE2JIGItmH0dY8Mo2..2EEW7qk2luCj"
E23D"jjztZC5Bsl1Kc.SmKO2t.OSnLBMZeYtcaMGaWGDeLkKQoJ//u//ctc6gI/M6i"
E27A"M3VRO/oIGBCMElJM6eG6Y2DQ.gsqHrjTkXVV8.G8NFOMMaMZTAnAmqX2MTKh2"
E2B7"Q06b61vQEM2hcy3GzWLIEAUFYXNqNa3OQhxKma.gCdivVWQwzK457fagSl0MN"
E2F4"kqOjZddVEBtGBAXTDv77qiPAtd81dEnjImHFoo2MuU/cQga6Ll0StISrvXy1J"
E331"XBBRgzAKI4S2YaRGyKoxa2BG1x.Pjj55cTBtv47HCIf0fKPgU./3obnn4gkX9"
E36E"kLwZfnbdYiywKIehfehzZWIhQwZ8B/cq03gOOSQeY8ozyJZRSh2wQA3v.MJd4"
E3AB"HUrjSG9TZzw5txbme4RNac7jUkXzSjzV6m4i5rykLbP13KkSwvuk/lgfHOS.6"
E3E8"Xwd5zgeOhYdxxahgIw.U7Nzb0ZVDZ16mQV0OjOVacvCZzitF.."
E100 B8 0 3C BA 65 1 33 C9 CD "!rC" BE 0 2 50 BD 93 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 97 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

And finally, here is the test program:

'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 Brightness, BYVAL StartC, BYVAL NumC)
'Brightness, ranges from 0-128 where 128 is max.
'StartC, ranges from 0-255
'NumC, ranges from 1-256
'Before calling SetPalete, GetPalette must be called so SetPalette
'has something to work with.
SCREEN 13
'draw some garbage
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  'Retrieve the screen's palette
DO
    FOR A = 128 TO 0 STEP -2 'Fade the palette down
        SetPalette A, 0, 256
    NEXT
    FOR A = 1 TO 128 STEP 2  'Fade it up
        SetPalette A, 0, 256
    NEXT
LOOP

    That should do it! Remind me to think twice before posting an early
version of a routine... [hate when that happens]

    Rich

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