[BlitzBasic] Farbverläufe

[glkgereon]

moin...ich bin aus langeweile wieder ein wenig BB am coden

doch irgendwie stimmen die farbverläufe nit...
erst mal der code

Zitat:

;### Init ###
maxx = 1024
maxy = 786
Graphics maxx,maxy
SetBuffer BackBuffer()
SeedRnd MilliSecs()
timer = CreateTimer(30)

Const points = 36
red = 0
green = 0
blue = 0
grey = 0
radius = maxy / 2 - 50

Dim x(points)
Dim y(points)

For i = 1 To points
grad = 360 / points * i
x(i) = (Sin(grad) + 1.1) * radius
y(i) = (Cos(grad) + 1.1) * radius
Next

;##### Main ####
While Not KeyHit(1)
If grey < 255 And red = 0 And green = 0 And blue = 0 Then mode = 1
If grey <= 255 And red < 255 And green = 0 And blue = 0 And mode = 0 Then mode = 2
If grey = 0 And red <= 255 And green < 255 And blue = 0 And mode = 0 Then mode = 3
If grey = 0 And red = 0 And green <= 255 And blue < 255 And mode = 0 Then mode = 4

If mode = 1 Then grey = grey + 1 :Color grey,grey,grey
If mode = 2 Then red = red + 1 :grey = grey - 1 :Color red,grey,grey
If mode = 3 Then green = green - 1 :red = red - 1 :Color red,green,0
If mode = 4 Then blue = blue + 1 :green = green - 1 :Color 0,green,blue

Cls
For i = 1 To points
For j = 1 To points
Line x(i)+mx,y(i)+my,x(j)+mx,y(j)+my
Next
Next
Flip
WaitTimer(timer)
mode = 0
Wend

End

so, eigentlich sollte der farbverlauf ganz weich sein....
schwarz....weiss....rot....grün....blau

aber es sind heftige sprünge drin...warum??

der tatsächliche farbverlauf ist schwarz....weiss..sprung..türkis....rot