Осталось у меня только это

Код:
Structure THREE
  a.a
  b.a
  c.a
EndStructure

Image = CreateImage(#PB_Any,  4096, 4096, 24)
StartDrawing(ImageOutput(Image))
*Pixel.THREE  = DrawingBuffer()

For a = 0 To  255
  For b = 0 To  255
    For c = 0 To  255
      *Pixel\a  = a
      *Pixel\b  = b
      *Pixel\c  = c
      *Pixel  + SizeOf(THREE)
    Next
  Next
Next

StopDrawing()

SaveImage(Image,  Str(Pow(2,24))+".bmp")

Быть может у кого-то есть идеи как сделать чтобы это красиво выглядело в готовом файле? Я чё-то зашился уже и хочу вспомнить как я делал это, но не могу. Нужен плавный переход.