'============================================================================
' (p)'23/02/2003 by East-Power-Soft
'
' Tipp 5: Nutzen des OUT Befehls anstelle des PALETTE Befehls.
'============================================================================
SCREEN 13

COLOR 64
PRINT "Eine kleine Demonstration wie man"
PRINT "mit dem OUT Befehl Farben umstellt."
'============================================================================
' Diese Routine erklärt wie man mit dem OUT Befehl Farben umstellt.
'============================================================================

FOR X% = 1 TO 63 '---> Farben voreinstellen
   R% = X%
   OUT &H3C8, X% '---> Farbnummer (Wert 0-255)
   OUT &H3C9, 0  '---> Rot Anteil (Wert 0-63)
   OUT &H3C9, 0  '---> Grün Anteil (Wert 0-63)
   OUT &H3C9, 0  '---> Blau Anteil (Wert 0-63)
NEXT

FOR X% = 63 TO 1 STEP -1 '---> eine Grafik zeichnen
   LINE (160 - (X% * 2), 100 - X%)-(160 + (X% * 2), 100 + X%), X%, BF
NEXT

'---> alle Farben Faden (ins Weis)

FOR Y% = 1 TO 63
   FOR X% = 1 TO 63
      OUT &H3C8, X% '---> Farbnummer (Wert 0-255)
      OUT &H3C9, Y% '---> Rot Anteil (Wert 0-63)
      OUT &H3C9, Y% '---> Grün Anteil (Wert 0-63)
      OUT &H3C9, Y% '---> Blau Anteil (Wert 0-63)
   NEXT
   FOR P = 0 TO 50000: NEXT
NEXT

'---> von Weis nach Grün Faden

FOR Y% = 63 TO 1 STEP -1
   FOR X% = 1 TO 63
      OUT &H3C8, X% '---> Farbnummer (Wert 0-255)
      OUT &H3C9, Y% '---> Rot Anteil (Wert 0-63)
      OUT &H3C9, 63 '---> Grün Anteil (Wert 0-63)
      OUT &H3C9, Y% '---> Blau Anteil (Wert 0-63)
   NEXT
   FOR P = 0 TO 50000: NEXT
NEXT

'---> von Grün nach Blau Faden

FOR Y% = 63 TO 1 STEP -1
   FOR X% = 1 TO 63
      OUT &H3C8, X%      '---> Farbnummer (Wert 0-255)
      OUT &H3C9, 1       '---> Rot Anteil (Wert 0-63)
      OUT &H3C9, Y%      '---> Grün Anteil (Wert 0-63)
      OUT &H3C9, 63 - Y% '---> Blau Anteil (Wert 0-63)
   NEXT
   FOR P = 0 TO 50000: NEXT
NEXT

'---> von Blau nach Rot Faden

FOR Y% = 63 TO 1 STEP -1
   FOR X% = 1 TO 63
      OUT &H3C8, X%      '---> Farbnummer (Wert 0-255)
      OUT &H3C9, 63 - Y% '---> Rot Anteil (Wert 0-63)
      OUT &H3C9, 1       '---> Grün Anteil (Wert 0-63)
      OUT &H3C9, Y%      '---> Blau Anteil (Wert 0-63)
   NEXT
   FOR P = 0 TO 50000: NEXT
NEXT

'---> Endsequenz

FOR X% = 63 TO 1 STEP -1
   OUT &H3C8, X% '---> Farbnummer (Wert 0-255)
   OUT &H3C9, X% '---> Rot Anteil (Wert 0-63)
   OUT &H3C9, 1  '---> Grün Anteil (Wert 0-63)
   OUT &H3C9, 1  '---> Blau Anteil (Wert 0-63)
   FOR P = 0 TO 50000: NEXT
NEXT