OpenEuphoria

Re: Palette Cycling

• Posted by JJProg at CYBERBURY.NET Jan 01, 1999
• 487 views

EU>I'm trying to write a proc for cycling the palette ie:- color255 becomes col
EU>Has anyone got any ideas about how to speed it up?

EU>*****************************************************

EU>procedure cycle()
EU>sequence paltemp, newpalc
EU>paltemp = {0,0,0}
EU>while 1 do
EU> if get_key() != -1 then
EU>  exit
EU> end if
EU> for c = 255 to 1 by -1 do
EU>  newpalc = palette(c, paltemp)
EU>  paltemp = newpalc
EU> end for
EU>end while
EU>end procedure

EU>*****************************************************

procedure cycle()
        sequence s
        s = get_all_palette()
        s = append(s,s[2])
        s = prepend(s[3..length(s)],s[1])
        all_palette(s)
end procedure

Jeffrey Fielding
JJProg at cyberbury.net
http://members.tripod.com/~JJProg/