Bezeichnung
CyclePalette -- durchläuft die Farben der Palette (V9.0)
Übersicht
CyclePalette(id, start, end[, repeat])
Beschreibung
Dieser Befehl wechselt die Palettenfarben zwischen dem durch start und dem durch end angegebenen Stifte. Wenn end größer als start ist, werden alle Stifte, die mit dem Index start beginnen, nach rechts verschoben und enden bei dem durch end angegebenen Stift. Wenn start größer als end ist, werden die Stifte in umgekehrter Reihenfolge durchlaufen, d.h. sie werden nach links verschoben und enden bei dem durch start angegebenen Stift. Mit dem Argument repeat kann angegeben werden, wie oft der Zyklus wiederholt werden soll. Der Standardwert ist 1, was bedeutet, dass die Farben nur einmal durchlaufen werden.

Eingaben
id
Identifikator der Palette, deren Stifte durchlaufen werden sollen
start
Startstift des Bereichs, der durchlaufen wird
end
Endstift des Bereichs, der durchlaufen wird
repeat
optional: Anzahl der Wiederholungen des Durchlaufs (Voreingestellt ist 1)
Beispiel
@DISPLAY {Palette = #PALETTE_CGA}
SetFont(#SANS, 96)
SetPaletteMode(#PALETTEMODE_PEN)
t$ = "Hollywood"
For Local k = 0 To StrLen(t$) - 1
    SetDrawPen(k + 2)
    Print(MidStr(t$, k, 1))
Next
ExtractPalette(1, #BGPIC, 1)
StartTimer(1)
Repeat
    CyclePalette(1, 2, 10)
    SetPalette(1)
    WaitTimer(1, 80)
Forever
Der obige Code gibt die einzelnen Zeichen der Zeichenkette "Hollywood" in verschiedenen Farben aus und wechselt dann deren Farben.
Navigation zeigen