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

* Fixed ClearViewport for 4 bpp modes

Browse Source
This commit is contained in:
sg 2000-03-18 10:46:16 +00:00
parent 65506db2eb
commit 41086a7aaa
2 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/linux/vgagraph.inc
View File

@ -460,16 +460,17 @@ end;
DirectPutPixel := @libvga_DirectPixelProc; DirectPutPixel := @libvga_DirectPixelProc;
GetPixel := @libvga_GetPixelProc; GetPixel := @libvga_GetPixelProc;
PutPixel := @libvga_PutPixelProc; PutPixel := @libvga_PutPixelProc;
{Can be added later: { May be implemented later:
HLine := @libvga_HLineProc; HLine := @libvga_HLineProc;
VLine := @libvga_VLineProc; VLine := @libvga_VLineProc;
GetScanLine := @libvga_GetScanLineProc;} GetScanLine := @libvga_GetScanLineProc;}
ClearViewPort := @libvga_ClrViewProc;
end; end;
SetRGBPalette := @libvga_SetRGBPaletteProc; SetRGBPalette := @libvga_SetRGBPaletteProc;
GetRGBPalette := @libvga_GetRGBPaletteProc; GetRGBPalette := @libvga_GetRGBPaletteProc;
ClearViewPort := @libvga_ClrViewProc; { These are not really implemented yet:
PutImage := @libvga_PutImageProc; PutImage := @libvga_PutImageProc;
GetImage := @libvga_GetImageProc; GetImage := @libvga_GetImageProc;}
ImageSize := @libvga_ImageSizeProc; ImageSize := @libvga_ImageSizeProc;
{ Add later maybe ? { Add later maybe ?
SetVisualPage := SetVisualPageProc; SetVisualPage := SetVisualPageProc;
@ -487,7 +488,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 2000-03-17 13:30:35 sg Revision 1.11 2000-03-18 10:46:16 sg
* Fixed ClearViewport for 4 bpp modes
Revision 1.10 2000/03/17 13:30:35 sg
* Added accelerated drawing functions for modes with 4 bits per pixel * Added accelerated drawing functions for modes with 4 bits per pixel
Revision 1.9 2000/02/27 14:41:25 peter Revision 1.9 2000/02/27 14:41:25 peter

8
rtl/linux/vgagraph16.inc
View File

@ -243,11 +243,11 @@ begin
end; end;
procedure HLine16(x,x2,y: integer); procedure HLine16(x, x2, y: Integer);
var var
xtmp: integer; xtmp: Integer;
ScrOfs,HLength : word; ScrOfs, HLength: Word;
LMask,RMask : byte; LMask, RMask: Byte;
begin begin
{ must we swap the values? } { must we swap the values? }
if x > x2 then if x > x2 then