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

* perform the clipping in asm in PutPixelX

Browse Source 
git-svn-id: trunk@41038 -
This commit is contained in:
nickysn 2019-01-24 15:30:15 +00:00
parent a55ee3b687
commit abf98cf2cd
1 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packages/graph/src/msdos/graph.pp
View File

@ -2612,14 +2612,6 @@ const CrtAddress: word = 0;
{$else asmgraph}
Procedure PutPixelX(X,Y: smallint; color:ColorType);
begin
{ verify clipping and then convert to absolute coordinates...}
if ClipPixels then
begin
if (X < 0) or (X > ViewWidth) then
exit;
if (Y < 0) or (Y > ViewHeight) then
exit;
end;
asm
push ax
push bx
@ -2629,6 +2621,20 @@ const CrtAddress: word = 0;
push di
mov ax, [X]
mov di, [Y] ; (* DI = Y coordinate *)
cmp byte ptr [ClipPixels], 0
je @@ClipDone
test ax, ax
js @@Done
test di, di
js @@Done
cmp ax, [ViewWidth]
jg @@Done
cmp di, [ViewHeight]
jg @@Done
@@ClipDone:
add di, [StartYViewPort]
(* Multiply by 80 start *)
mov cl, 4
@ -2655,6 +2661,7 @@ const CrtAddress: word = 0;
mov es,[SegA000]
mov ax,[Color] ; { only lower byte is used. }
mov es:[di], al
@@Done:
pop di
pop es
pop dx