Ustawiam sobie tryb SVGA (BGI) 640x480x256.
Bitmapka 8 bitowa.
Wczytuje naglowek, palete i dane.
Potem na rozne sposoby probowalem przeniesc palete z BMP do tej z "ekranu" ale za kazdym razem kolory sa znieksztalcane.
Ponizej podaje kod o ktorym pisze.
Prosze o nie czepiac sie ew wydajnosci kodu, jedyne co ma on zrobic to wyswietlic bitmape (1 raz i czekac na klawisz).
Jedyne co przychodzi mi do glowy to ze driver nie wyciska 256 kolorow??
Jesli tak to czy znacie jakis DRIVER BGi ktory obsluzy 256 kolorow w min 320x200 (nie chce uzywac 13H).
Co robie zle?
Zamykam. - arnoldziq
Bitmapka 8 bitowa.
Wczytuje naglowek, palete i dane.
Potem na rozne sposoby probowalem przeniesc palete z BMP do tej z "ekranu" ale za kazdym razem kolory sa znieksztalcane.
Ponizej podaje kod o ktorym pisze.
{Odczyt palety}
BlockRead(pFile, Palette, SizeOf(Palette)); {Palette : Array[0..255] Of Record B,G,R,Blank : Byte; End;}
{}
For x:=0 To 255 Do
SetRGBPalette(x, Palette[x].R, Palette[x].G, Palette[x].B);
{ Rysujemy bitmape }
For y:=BMPHeader.biHeight DownTo 1 Do
Begin
For x:=1 To BMPHeader.biWidth Do
Begin
BlockRead(pFile, BMPByte, 1);
PutPixel(x, y, BMPByte);
End;
{Pomijamy puste bajty}
BlockRead(pFile, Unused, 4 - (BMPHeader.biWidth Mod 4));
End;
ReadKey;Prosze o nie czepiac sie ew wydajnosci kodu, jedyne co ma on zrobic to wyswietlic bitmape (1 raz i czekac na klawisz).
Jedyne co przychodzi mi do glowy to ze driver nie wyciska 256 kolorow??
Jesli tak to czy znacie jakis DRIVER BGi ktory obsluzy 256 kolorow w min 320x200 (nie chce uzywac 13H).
Co robie zle?
Zamykam. - arnoldziq
) 
