Re: fading out

 BBS: Inland Empire Archive
Date: 10-24-93 (11:04)             Number: 297
From: STEVE DEMO                   Refer#: NONE
  To: CHRIS MENNIE                  Recvd: NO  
Subj: Re: fading out                 Conf: (2) Quik_Bas

 -=> Quoting Chris Mennie to All <=-

 CM> Does anybody have a routine for fading a VGA screen?

Yep,

DEFINT A-Z
DECLARE SUB Fade2Black (loops)
RANDOMIZE TIMER
SCREEN 13
FOR x = 1 TO 320
 J = INT(RND * 256) + 1
 LINE (x, 1)-(x, 200), J
NEXT
FOR loops = 1 TO 100
    Y = INT(RND * 190) + 1
    x = INT(RND * 310) + 1
    Size = INT(RND * 20) + 1
    Clur = INT(RND * 150) + 31
    CIRCLE (x, Y), Size, Clur
    PAINT (x, Y), Clur, Clur
NEXT
Fade2Black 600
SLEEP 1
PALETTE

SUB Fade2Black (loops)
  DEF SEG = &HA000
  OUT &H3C7, 0
  OUT &H3C8, 0
      FOR CLRS = 1 TO 768
        'Adjust this for Machine Speed It's old fasion
        'but better than clock ticks that look like Stuttering.
        '//////////////////////////
        FOR x = 1 TO loops: NEXT x
        OUT &H3C9, 0
      NEXT CLRS
  DEF SEG
END SUB

Hows That ?

Steve Demo

... Death is nature's way of telling you to slow down!
___ Blue Wave/QWK v2.11
$$41
--- Maximus 2.01wb
 * Origin: Semper Fi BBS  Ft. Wayne, IN  (219) 424-4292 (1:236/21)