^1FADING IN BASIC                                    ...written by The Real Adok 
 
Jetzt habe ich mich doch entschlossen, euch nicht nur das Fading in C, sondern 
auch in Basic zu zeigen! Aber nur in Quick Basic, denn Power Basic  ist  daf�r  
zu  unf„hig  :-(. Bevor ihr diesen Artikel lest, solltet ihr schon "How 2 Code 
Kewl Fade Effectz" gelesen haben, sonst werdet ihr rein gar nix kapieren :-)). 
 
Das Fading in Basic ist ein biáchen einfacher als in den anderen Prospen, weil 
hier die setpal-Routine schon  vordefiniert  ist.  Und  zwar  heiát  sie  hier 
PALETTE. Der PALETTE-Befehl hat folgende Syntax: 
 
^0 PALETTE Farbcode, 65536 * Blau-Wert + 256 * Gr�n-Wert + Rot-Wert 
  
Um  also  eine  Farbe auszufaden, m�ssen wir den Pseudocode wie folgt in Basic 
umsetzen: 
 
^0 DEFINT A-Z
^0 FOR i = 0 TO 63 
^0  r = ur - i 
^0  IF r < 0 THEN r = 0 
^0  g = ug - i 
^0  IF g < 0 THEN g = 0 
^0  b = ub - i 
^0  IF b < 0 THEN b = 0 
^0  PALETTE col, 65536 * b + 256 * g + r 
^0 NEXT 
  
Dabei m�ssen jedoch die urspr�nglichen RGB-Werte in den Variablen ur,  ug  und 
ub  stehen,  und  col  muá  den  Farbcode der gew�nschten Farbe enthalten. Wie 
kommen wir nun auf ur, ug und ub?  Tja, da gibt's wieder nur eine M”glichkeit: 
die Ports. Also: 
 
^0 OUT &H3C7, col 
^0 INP &H3C9, ur 
^0 INP &H3C9, ug 
^0 INP &H3C9, ub 
  
Okay,  jetzt m�áte euch auch schon das Fadein klar sein:  wie oben,  nur statt 
der  ersten  Zeile  schreiben  wir FOR i = 63 TO 0 STEP -1. Kommen wir nun zum 
Fadeout mit allen Farben gleichzeitig: 
 
^0 DEFINT A-Z 
^0 FOR i = 0 TO 63 
^0  FOR col = 0 TO 255 
^0   OUT &H3C8, col 
^0   INP &H3C9, ur 
^0   INP &H3C9, ug 
^0   INP &H3C9, ub 
^0   r = ur - i 
^0   IF r < 0 THEN r = 0 
^0   g = ug - i 
^0   IF g < 0 THEN g = 0 
^0   b = ub - i 
^0   IF b < 0 THEN b = 0 
^0   PALETTE col, 65536 * b + 256 * g + r 
^0  NEXT 
^0 NEXT 
  
So, das war's! Und mit Fadein geht's genauso, nur FOR i = 63 TO 0 STEP -1! Ein 
kleiner Hinweis noch: Der PALETTE-Befehl funktioniert nur in den EGA- und VGA- 
Grafikmodi.  Wer  auch  in  anderen  Modi Fading machen will, muá auf die alt- 
bekannte  Port-Methode,  wie sie in "How 2 Code Kewl Fade Effectz" beschrieben 
wurde, ausweichen.  Mit der Port-Methode funktioniert das Fading auch in Power  
Basic.  Viel Spaá beim Herumt�fteln! 
 
^4               Euer The Real Adok.