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

* another small fix to getpixel320 and putpixel320 (when clip = off)

Browse Source
This commit is contained in:
Jonas Maebe 2000-01-02 19:00:30 +00:00
parent 14bc1b379d
commit 96b6cdedae
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/go32v2/graph.inc
View File

@ -1035,8 +1035,10 @@ End;
cmp bx, ViewHeight cmp bx, ViewHeight
jg @putpix320done jg @putpix320done
@putpix320noclip: @putpix320noclip:
add bx, StartYViewPort movsx ecx, StartYViewPort
add di, StartXViewPort movsx edx, StartXViewPort
add ebx, ecx
add edi, edx
{ add edi, [VideoOfs] no multiple pages in 320*200*256 } { add edi, [VideoOfs] no multiple pages in 320*200*256 }
mov ax, [pixel] mov ax, [pixel]
shl ebx, 6 shl ebx, 6
@ -1070,8 +1072,10 @@ End;
asm asm
movsx edi, x movsx edi, x
movsx ebx, y movsx ebx, y
add di, StartXViewPort movsx ecx, StartYViewPort
add bx, StartYViewPort movsx edx, StartXViewPort
add ebx, ecx
add edi, edx
{ add edi, [VideoOfs] no multiple pages in 320*200*256 } { add edi, [VideoOfs] no multiple pages in 320*200*256 }
shl ebx, 6 shl ebx, 6
add edi, ebx add edi, ebx
@ -1475,7 +1479,7 @@ const CrtAddress: word = 0;
{************************************************************************} {************************************************************************}
var var
SavePtr : pointer; { pointer to video state } SavePtr : pointer; { pointer to video state }
CrtSavePtr: pointer; { pointer to video state when CrtMode gets called } { CrtSavePtr: pointer;} { pointer to video state when CrtMode gets called }
StateSize: word; { size in 64 byte blocks for video state } StateSize: word; { size in 64 byte blocks for video state }
VideoMode: byte; { old video mode before graph mode } VideoMode: byte; { old video mode before graph mode }
SaveSupPorted : Boolean; { Save/Restore video state supPorted? } SaveSupPorted : Boolean; { Save/Restore video state supPorted? }
@ -1762,7 +1766,7 @@ const CrtAddress: word = 0;
RestoreVideoState; RestoreVideoState;
isgraphmode := false; isgraphmode := false;
end; end;
(*
procedure LoadFont8x8; procedure LoadFont8x8;
var var
@ -1797,7 +1801,7 @@ const CrtAddress: word = 0;
else else
DefaultFontData[chr(c+128),y,x]:=0; DefaultFontData[chr(c+128),y,x]:=0;
end; end;
*)
function QueryAdapterInfo:PModeInfo; function QueryAdapterInfo:PModeInfo;
{ This routine returns the head pointer to the list } { This routine returns the head pointer to the list }
{ of supPorted graphics modes. } { of supPorted graphics modes. }
@ -2517,7 +2521,10 @@ const CrtAddress: word = 0;
{ {
$Log$ $Log$
Revision 1.11 1999-12-29 16:43:44 jonas Revision 1.12 2000-01-02 19:00:30 jonas
* another small fix to getpixel320 and putpixel320 (when clip = off)
Revision 1.11 1999/12/29 16:43:44 jonas
* fixed put- and getpixel320 for fpc * fixed put- and getpixel320 for fpc
Revision 1.10 1999/12/26 10:36:00 jonas Revision 1.10 1999/12/26 10:36:00 jonas