paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 09:46:30 +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;
GetPixel := @libvga_GetPixelProc;
PutPixel := @libvga_PutPixelProc;
{Can be added later:
{ May be implemented later:
HLine := @libvga_HLineProc;
VLine := @libvga_VLineProc;
GetScanLine := @libvga_GetScanLineProc;}
ClearViewPort := @libvga_ClrViewProc;
end;
SetRGBPalette := @libvga_SetRGBPaletteProc;
GetRGBPalette := @libvga_GetRGBPaletteProc;
ClearViewPort := @libvga_ClrViewProc;
PutImage := @libvga_PutImageProc;
GetImage := @libvga_GetImageProc;
{ These are not really implemented yet:
PutImage := @libvga_PutImageProc;
GetImage := @libvga_GetImageProc;}
ImageSize := @libvga_ImageSizeProc;
{ Add later maybe ?
SetVisualPage := SetVisualPageProc;
@ -487,7 +488,10 @@ end;
{
$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
Revision 1.9 2000/02/27 14:41:25 peter

8
rtl/linux/vgagraph16.inc
View File

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