OpenEuphoria

Re: Background Intensity

• Posted by Lucius L Hilley III <luciuslhilleyiii at JUNO.COM> Apr 09, 1997
• 1136 views

On Wed, 9 Apr 1997 04:57:04 PST "Cuny, David" <ATB.DCUNY at HW1.CAHWNET.GOV>
writes:
>
>re: 1.5 supports intense backgrounds.
>
>I think I'm missing the point of your message.
>
>The puts() (for that matter, *none* of Euphoria display routines) will
>write
>a background color greater than 15 to the screen.
>
>Am I missing something?
>
>Thanks!
>
> -- David Cuny

Yes you are missing something.

Blinking is a foreground attribute

include graphics.e
integer fg, bg, bright, blinking,
--fg = foreground
--bg = background

fg = WHITE
bg = BLUE

bright = 8
blinking = 16

clear_screen()
text_color(fg)
bk_color(bg)
puts(1, "White on Blue")

while get_key() = -1 do
end while

fg = fg + bright
text_color(fg)
puts(1, "Bright White on Blue")

while get_key() = -1 do
end while

fg = fg + blinking
text_color(fg)
puts(1, "Blinking Bright White on Blue")

--If you turn on intensity then you have
--Bright White on Bright Blue