OpenEuphoria

Palette Cycling Problem

• Posted by Andrew Sharp <asharp at CHILLI.NET.AU> Jan 02, 1999
• 566 views

This is the one I decided to go for.
It works really fast, but it creates black flickering horizontal
lines on the screen. Is my video card too slow? Wrong driver?
The delay loop helps, but by the time you get it slow enough
to kill the lines it's too slow again.
Is there some slight change which might fix it?

**********************************

procedure cycle()
sequence s
while get_key() = -1 do
s = get_all_palette()
-- for w = 1 to 347000 do
-- end for
s = append(s,s[2])
s = prepend(s[3..length(s)],s[1])
all_palette(s)
end while
end procedure

**********************************

Thanks again,
Andrew