[impersonalis]

Const RGB_SpaceSize%=256^3-1
Const RGB_Count%=8;<===========
Const RGB_KVANT%=RGB_SpaceSize/(RGB_Count-1)

Local N=0
For i=0 To RGB_SpaceSize Step RGB_KVANT
	Local R%=(i Shr 16) And $ff
	Local G%=(i Shr 8) And $ff
	Local B%=i And $ff
	Color 255,255,255
	Text 40,10+N*20,R+";"+G+";"+B+" ["+i+"]"
	Rect 10,10+N*20,20,20
	Color R,G,B
	Rect 11,10+N*20+1,18,18
	N=N+1
Next

WaitKey()
End

есть такая идея (но чувствую - она не совсем корректна)