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

* fixed PutPixVESA256

Browse Source
This commit is contained in:
Jonas Maebe 1999-09-15 11:40:30 +00:00
parent 05abbae54b
commit ecd28082fd
1 changed files with 5 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -452,26 +452,7 @@ end;
end; end;
offs := longint(y) * BytesPerLine + x; offs := longint(y) * BytesPerLine + x;
SetWriteBank(integer(offs shr 16)); SetWriteBank(integer(offs shr 16));
Case CurrentWriteMode of
XorPut:
Begin
SetReadBank(integer(offs shr 16));
mem[WinWriteSeg : word(offs)] := mem[WinReadSeg : word(offs)] xor byte(color);
End;
AndPut:
Begin
SetReadBank(integer(offs shr 16));
mem[WinWriteSeg : word(offs)] := mem[WinReadSeg : word(offs)] And byte(color);
End;
OrPut:
Begin
SetReadBank(integer(offs shr 16));
mem[WinWriteSeg : word(offs)] := mem[WinReadSeg : word(offs)] or byte(color);
End;
NormalPut:
mem[WinWriteSeg : word(offs)] := byte(color) mem[WinWriteSeg : word(offs)] := byte(color)
Else mem[WinWriteSeg : word(offs)] := byte(color);
End;
end; end;
procedure DirectPutPixVESA256(x, y : integer); far; procedure DirectPutPixVESA256(x, y : integer); far;
@ -1461,7 +1442,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 1999-09-11 19:43:02 jonas Revision 1.11 1999-09-15 11:40:30 jonas
* fixed PutPixVESA256
Revision 1.10 1999/09/11 19:43:02 jonas
* FloodFill: did not take into account current viewport settings * FloodFill: did not take into account current viewport settings
* GetScanLine: only get line inside viewport, data outside of it * GetScanLine: only get line inside viewport, data outside of it
is not used anyway is not used anyway