Установка палитры..., TMT Pascal Опции

[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?

[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 неправильно отображает цвета.

Сообщение отредактировано: Koresh - 20.07.2007 17:59