OpenEuphoria

From the manual
function definition: colors_to_attr

include std/console.e 
namespace console 
public function colors_to_attr(object fgbg, integer bg = 0) 

Converts a foreground and background color set to its attribute code format.

Parameters:

1. fgbg : Either a sequence of {fgcolor, bgcolor} or just an integer fgcolor.
2. bg : An integer bgcolor. Only used when fgbg is an integer.
   

Returns:
An integer attribute code.

When I do

include std/console.e 
include std/graphcst.e 
include std/graphics.e 
 
 
? WHITE --> 7 
? RED    --> 4 
? BLUE   --> 1 
? colors_to_attr(WHITE, RED)  --> 71 WHITE characters on RED background 
? colors_to_attr(WHITE, BLUE) --> 23 WHITE characters on BLUE background 
 
display_text_image({1,1}, {{82,23,68,71,82,23,68,71,82,23},{82,23,68,71,68,71,68,71,82,23},{82,23,68,71,68,71,68,71,68,71}}) 
-- WHITE 'R's on BLUE background and WHITE 'D's on RED background 
/* 

The only problem is that for OSX the values of RED and BLUE are switched and so my colors end up switched.  
If I use text_color() and bk_color() then the colors are correct. 
*/ 
text_color(WHITE) 
bk_color(RED) 
printf(1, "This is a test. Should be WHITE on RED\n") 
bk_color(BLUE) 
printf(1, "This is a test. Should be WHITE on BLUE\n") 
bk_color(BLACK) 
printf(1, "Back to white on black\n") 

Due to a hard drive crash I lost my edit access to the repository but the fix is very simple. In file console.e

-- In function colors_to_attr 
-- replace the line 
		return fgbg[1] + fgbg[2] * 16 
--with 
		return true_fgcolor[fgbg[1]+1] + true_bgcolor[fgbg[2]+1] * 16 
-- and the line 
		return fgbg + bg * 16 
--with 
		return true_fgcolor[fgbg+1] + true_bgcolor[bg+1] * 16 

I'm sure that this affects Linux also since the colors are rearranged there as well.