smoothly cycling through all colours

BlitzMax Forums/BlitzMax Beginners Area/smoothly cycling through all colours

tonyg
 #1
Get yourself a comfy chair (or change the step value)...
Graphics 800,600
Const mystep:Int=5
For Local r:Int=0 To 255 Step mystep
   For Local g:Int=0 To 255 Step mystep
      For Local b:Int=0 To 255 Step mystep
         Cls
         SetColor r,g,b 
         DrawRect 0,0,100,100
         SetColor 255,255,255
         DrawText "r="+r+" g="+g+" b="+b,0,200
         Flip
      Next
   Next
Next


p.s. or did you mean some move from blues through greens through reds?