paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Bugfix of palette setting under VESA (Thanks Tom)

Browse Source
This commit is contained in:
carl 1999-06-26 02:34:07 +00:00
parent c3929d7354
commit cedb198a59
1 changed files with 31 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/inc/graph/vesa.inc
View File

@ -18,10 +18,10 @@ type
{VESA modes are >=100h} {VESA modes are >=100h}
palrec = packed record { record used for set/get DAC palette } palrec = packed record { record used for set/get DAC palette }
red: byte;
green: byte;
blue : byte;
align: byte; align: byte;
blue : byte;
green: byte;
red: byte;
end; end;
const const
@ -81,7 +81,6 @@ TYPE
winFunct : procedure; { Function to swtich bank } winFunct : procedure; { Function to swtich bank }
BytesPerScanLine: word; {bytes per scan line (1.0) } BytesPerScanLine: word; {bytes per scan line (1.0) }
{ extended information } { extended information }
extendedInfo : packed record
xRes, yRes : word; {pixels} xRes, yRes : word; {pixels}
xCharSize, xCharSize,
yCharSize : byte; yCharSize : byte;
@ -91,7 +90,6 @@ TYPE
memModel : byte; memModel : byte;
bankSize : byte; {in K} bankSize : byte; {in K}
NumberOfPages: byte; NumberOfPages: byte;
end;
pad : array [29..260] of byte; { always put some more space then required} pad : array [29..260] of byte; { always put some more space then required}
end; end;
@ -552,10 +550,6 @@ end;
{* VESA Palette entries *) {* VESA Palette entries *)
{************************************************************************} {************************************************************************}
{ BIG PROBLEM: The routines seems to be wrong, with Function 09h on my ATI }
{ technologies MACH64 - the palrec record seems to be at the END of the }
{ record, contrary to the VBE 2 specification!!! To verify with other video}
{ cards. }
{$IFDEF DPMI} {$IFDEF DPMI}
Procedure SetVESARGBPalette(ColorNum, RedValue, GreenValue, Procedure SetVESARGBPalette(ColorNum, RedValue, GreenValue,
@ -1252,3 +1246,22 @@ end;
end; end;
end; end;
{$ENDIF DPMI} {$ENDIF DPMI}
{************************************************************************}
{* VESA Page flipping routines *)
{************************************************************************}
{ Note: These routines, according to the VBE3 specification, will NOT }
{ work with the 24 bpp modes, because of the alignment. }
{************************************************************************}
procedure SetVisualVESA(page: word);
{ two page support... }
begin
if page > HardwarePages then exit;
end;
procedure SetActiveVESA(page: word);
{ two page support... }
begin
end;