Fader

 BBS: Inland Empire Archive
Date: 12-24-92 (03:54)             Number: 355
From: COREY WILSON                 Refer#: NONE
  To: RICK PEDLEY                   Recvd: NO  
Subj: Fader                          Conf: (2) Quik_Bas

*** Quoting Rick Pedley to Pete Dudesek dated 12-22-92 ***
>  On 12-19-92 Pete Dudesek wrote to Rich Geldreich...
>
>  PD> from Sierra software. It's nothing but some vga screens.
>  PD> But the interesting thing was that the pictures faded in
>  PD> out just like your Fader routine.
>
> Hmm, wonder where they got their fader from. :-)
>
>
>
> ... OFFLINE 1.43
>
> --- Maximus 2.01wb
>  * Origin: The BULLpen BBS * Intel 14.4EX (613)549-5168 (1:249/140)
>
>
It's easy to fade VGA screens in and out..... here is an example..

dim pl(768)
open"palette.pal" as #1 len=1:Field#1,1 as p$
screen 13
def seg=&ha000
out &h3c7,0:out &h3c8,0
for rgb=1 to 768:get 1
out &h3c9,asc(p$)\90:pl(rgb)=asc(p$):next rgb:close
; that loaded the palette, but all the colours loaded are
; so dim that they are not visible. Now to bload in the
; vga screen.
bload"screen.vga",0
; now we fade the picture in
out &h3c7,0:out &h3c8,0
for dv=90 to 4 step-1
for rgb=1 to 768
out &h3c9,pl(rgb)\dv
next rgb,dv
end
; there, we just faded in our picture.... till later


--- T.A.G. 2.6c4d Beta
 * Origin: The Gatehouse - (416)528-0635 * (416)528-0636 (1:244/119)