OpenEuphoria

Palette Cycling Problem

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

Thanks for your idea Pete I thought it might have done the trick but,
still no joy.
Here it is as it stands so far.

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

Even with a wait loop like that all it does is slow it down to about 3
updates per sec (which is way to slow) and there's still a black line
flashing across every time. I'm starting to think that even a wait-retrace
routine wouldn't work because at this speed it already has about 330ms to
wait for a retrace and it still flickers. So would a wait-retrace routine just
slow it down even more?
I put the get_all_palette outside the loop like you suggested but, it's
still the same.
Thanks for your help.
Andrew