ich versuch mal mein glueck:
(pseudocode)
Delphi-Quellcode:
var
palette: array [0..255] of cardinal;
i: integer;
begin
for i := 0 to 255 do
begin
palette[i] :=
(i and $E0) shl (16+0)
or
(i and $18) shl (8+3)
or
(i and $07) shl (0+5);
end;
end;
basiert auf der annahme, dass
RGB 3,2,3 bit bekommen.
damit bekommst du kein reines weiss hin, aber reines schwarz.