1. Palettes,
- Posted by Mathew Hounsell <mat.hounsell at MAILEXCITE.COM>
Nov 05, 1998
-
Last edited Nov 06, 1998
After my last post I found this in my PC system book...
Interrupt 10h Subfuntion 10:00h for EGA (VGA?). Not MCGA!
AH = 10h, AL = 00h
BH = New Colour (0-63)
BL = Colour To Change (0-15, 18)
This lead to me programming the following to show you all the colours, one
after the other. Note 0 is black and so isn't show. This influences what I
said about palettes, but not much. I also found some info that should allow
me to do fancy palette manipulation, which I may post soon. Enjoy.
---< DOS32 Snip >---
include machine.e
procedure text_colours()
sequence reg_list
integer b
clear_screen()
puts(1, "Hello There, Sexy! Press any key to continue..." )
position(3,1)
puts(1, "Colour : " )
for i = 1 to 63 do
position(3,10)
printf(1,"%02d", i )
reg_list = repeat(0,10)
reg_list[REG_AX] = #1000
reg_list[REG_BX] = i * #100 + #07
reg_list = dos_interrupt(#10,reg_list)
while get_key() = -1 do
end while
end for
end procedure
---< End Tested>---
--------------------
Sincerely,
Mathew Hounsell
Mat.Hounsell at MailExcite.Com
_______________________________________________________
Get your free, private e-mail at http://mail.excite.com/
