Помощь - Поиск - Пользователи - Календарь
Полная версия: Установка палитры...
Форум «Всё о Паскале» > Pascal, Object Pascal > 32 битные компиляторы
Koresh

Type
RGB=Record
R:Byte;
G:Byte;
B:Byte;
F:Byte;
End;
Var
Palette:Array[0..255] of RGB;


Palette прочитал с bmp файла...
Собственно как установить палитру для режима 640х480х8bit, т. е. 256 цветов...
И каком диапазопе должны быть составляющие цветов... 0..255 или 0..63?
hiv
Цитата(Koresh @ 18.07.2007 20:08) *
И каком диапазопе должны быть составляющие цветов... 0..255 или 0..63?
0..255 и кажется нет альфа-канала ( F:byte; )
klem4
Цитата
TMT Pascal


Для 32 компиляторов существует соответствующий раздел, тема перенесена.
Bokul
Цитата
0..255 и кажется нет альфа-канала ( F:byte; )

Это не он, просто зарезервированный лишний байт, не знаю для чего.
Koresh
Всем спасибо, с этим разобрался...

For i:=0 to 255 do
Begin;
Port[$3c8]:=i;
Port[$3c9]:=Palette[i].B Shr 2;
Port[$3c9]:=Palette[i].G Shr 2;
Port[$3c9]:=Palette[i].R Shr 2;
End;


И всетаки 0..63. При 0..255 неправильно отображает цвета.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.