Re: problems with colors
- Posted by "Brian K. Broker" <bkb at CNW.COM> Mar 06, 2000
- 457 views
On Mon, 6 Mar 2000, [iso-8859-2] =A9koda wrote: > problem no 1: > can anyone tell me how can i display many different colors at the same > time on the screen in euphoria dos program? Your example was a bit confusing so I wrote a working example that demonstrates using the 'palette' function (note that DOS Euphoria by itself only supports graphics modes of up to 256 colors): -- start palette demo code -- include graphics.e include get.e object mycolor, n integer gm -- need a graphics mode that supports 256 colors if graphics_mode(19) then puts(1, "Need VGA graphics!\n" ) abort(1) end if -- set Palette: for i =3D 0 to 63 do -- color 0-63: shades of red mycolor =3D palette( i, {i,0,0} ) -- color 64-127: shades of green mycolor =3D palette( i+64, {0,i,0} ) -- color 128-191: shades of blue mycolor =3D palette( i+128, {0,0,i} ) -- color 192-255: shades of white mycolor =3D palette( i+192, {i,i,i} ) end for for i =3D 0 to 255 do draw_line( i, {{i,0}, {i,199}} ) end for n =3D wait_key() -- restore original graphics mode graphics_mode(-1) -- end palette demo -- -- Brian