OpenEuphoria

Re: Palette Cycling

• Posted by Lucius Hilley III <lhilley at CDC.NET> Jan 01, 1999
• 755 views

OOPS!! I made a typo in the other.

On Fri, 1 Jan 1999 18:35:17 -0500, Andrew Sharp <asharp at CHILLI.NET.AU> wrote:

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

How about this.

procedure cycle()
  sequence paltemp, newpalc

  while get_key() = -1 do
    newpalc = get_all_palette()
    paltemp = newpalc[2..256] & newpalc[1]
    all_pallet(paltemp)
  end while
end procedure

________________________

Lucius L. Hilley III    lhilley at cdc.net
http://www.cdc.net/~lhilley
http://www.dragonvet.com
_________________________
<IMG SRC="http://www.cdc.net/~ceace/images/lu4.jpg">
_________________________