OpenEuphoria

Palette idea

• Posted by mic unknown <stabmaster_ at HOTMAIL.COM> Dec 20, 1998
• 462 views

I've noticed some of you use the get_all_palette(), all_palette() and
palette() commands. You shouldn't do that. Instead you should get the
include file PORTS.E from the archive on the Euphoria homepage.
With it you can use the hardware ports for palette operations. something
like this:

--set a color
Output(color_number,#3C8) --set color "color_number" to..
Output(red_value,#3C9) --red (0-63)
Output(green_value,#3C9) --green (0-63)
Output(blue_value,#3C9) --blue (0-63)

--get a color
Output(color_number,#3C7) --get color "color_number"
red_value=Input(#3C9)
green_value=Input(#3C9)
blue_value=Input(#3C9)

a set_palette routine could look like this:

procedure set_pal(sequence the_pal)
for i=1 to 256 do
Output(i-1,#3C8) --set color i-1 (0-255) to..
Output(the_pal[i][1],#3C9)
Output(the_pal[i][2],#3C9)
Output(the_pal[i][3],#3C9)
end for
end procedure

Hope you understood that...
Now I got a question too. How do one get rid of the ugly border in mode
19?
The border seem to be of color 16, so if you set color 16 to black it
will be "gone". But I want to know if there's any better way to remove
it.


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com