OpenEuphoria

Gradient Background??

• Posted by Brian <impee3 at EXCITE.COM> Dec 10, 2000
• 564 views

I'm having a hard time creating a gradient background. I want it to fill in
the background from black at top to a dark blue at the bottom. I keep
getting a "Trying to redefine intY" error. Here's the code I'm using.

procedure gradientbg()
    atom intY
    sequence gradcolor
    for intY = 1 to 480 by 1
    gradcolor = {0, 0, floor(intY / 480) * 255}
    draw_line(gradcolor, {{1, intY},{640, intY}})
    next
    end for
End Procedure

Any ideas why this is happening?

Draw line repeated 480 times seems a little inefficient. Any ideas on a
better way of doing this?

Thanks,
Brian