Вектор-06Ц: Эмуляция цветовой палитры

[Ramiros]

Вот значения в моем эмуляторе:
Const
RG : array [0..7] of byte=(0,19,26,34,41,48,55,63); // Красный, Зеленый
BL : array [0..3] of byte=(0,31,47,63); // Синий
Var
PallTable: Array [0..255, 0..2] of Byte;
B,G,R,k:Byte;

Расчет таблицы палитры:
for B:=0 to 3 do
for G:=0 to 7 do
for R:=0 to 7 do
Begin
k:=B*64+G*8+R;
Palltable[k,0]:=RG[R]*4;
Palltable[k,1]:=RG[G]*4;
Palltable[k,2]:=BL[B]*4;
end;

[Advertiser]