paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 18:19:54 +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
jg @putpix320done
@putpix320noclip:
add bx, StartYViewPort
add di, StartXViewPort
movsx ecx, StartYViewPort
movsx edx, StartXViewPort
add ebx, ecx
add edi, edx
{ add edi, [VideoOfs] no multiple pages in 320*200*256 }
mov ax, [pixel]
shl ebx, 6
@ -1070,8 +1072,10 @@ End;
asm
movsx edi, x
movsx ebx, y
add di, StartXViewPort
add bx, StartYViewPort
movsx ecx, StartYViewPort
movsx edx, StartXViewPort
add ebx, ecx
add edi, edx
{ add edi, [VideoOfs] no multiple pages in 320*200*256 }
shl ebx, 6
add edi, ebx
@ -1475,7 +1479,7 @@ const CrtAddress: word = 0;
{************************************************************************}
var
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 }
VideoMode: byte; { old video mode before graph mode }
SaveSupPorted : Boolean; { Save/Restore video state supPorted? }
@ -1762,7 +1766,7 @@ const CrtAddress: word = 0;
RestoreVideoState;
isgraphmode := false;
end;
(*
procedure LoadFont8x8;
var
@ -1797,7 +1801,7 @@ const CrtAddress: word = 0;
else
DefaultFontData[chr(c+128),y,x]:=0;
end;
*)
function QueryAdapterInfo:PModeInfo;
{ This routine returns the head pointer to the list }
{ of supPorted graphics modes. }
@ -2517,7 +2521,10 @@ const CrtAddress: word = 0;
{
$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
Revision 1.10 1999/12/26 10:36:00 jonas