OpenEuphoria

Re: Gradient Background??

• Posted by Brian Broker <bkb at CNW.COM> Dec 10, 2000
• 551 views

Oops, my gradientbg() was a bit of an overkill since it draws lines that
are off of the screen.  You really only need to use 60 palette indexes for
this (not 64).  So using this procedure will do the same thing (only
slightly faster):

procedure gradientbg()
  sequence gradcolor

  for i = 0 to 59 do
    -- use palette range 196 (black) to 255 (blue)
    gradcolor = palette( i+196, {0, 0, i} )
    for j = 1 to 8 do
      draw_line( i+196, {{0, i*8+j},{639, i*8+j}})
    end for
  end for
end procedure

-- Brian