SetGradientPalette(id, startcolor, endcolor)
id angegebenen
Palette. Der erste Stift wird auf die in startcolor angegebene
Farbe und der letzte Stift auf die in endcolor initialisiert.
Alle Stifte zwischen dem ersten und dem letzten Stift werden
mit Zwischenfarben gefüllt, so dass das Ergebnis ein gleichmäßiger
Farbverlauf zwischen startcolor und endcolor ist. Je mehr
Farben die Palette hat, desto glatter wird der resultierende
Farbverlauf. Daher wird empfohlen, die Palettenfarbtiefe auf
8 (= 256 Farben) einzustellen, um das beste Ergebnis zu erzielen.
@DISPLAY {Palette = #PALETTE_DEFAULT, Height = 512}
CreatePalette(1)
SetGradientPalette(1, #BLACK, #BLUE)
SetPaletteMode(#PALETTEMODE_PEN)
SetPalette(1)
SetFillStyle(#FILLCOLOR)
For Local y = 0 To 255
SetDrawPen(y)
Box(0, y * 2, 640, 2)
Next
Der obige Code erzeugt in Palette 1 einen Farbverlauf zwischen
Schwarz und Blau und zeichnet ihn.