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

* fixed bug in getscanline16 (affects floodfil and getimage under VGA

Browse Source 
640x480x16 (VGA/VGAHI)
This commit is contained in:
Jonas Maebe 2000-05-09 04:23:11 +00:00
parent 0f23f58148
commit 4d520d5b93
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/go32v2/graph.pp
View File

@ -560,9 +560,11 @@ Begin
LogLn('Last array index written to: '+strf(index)); LogLn('Last array index written to: '+strf(index));
LogLn('amount left: '+strf(amount)+' starting at x = '+strf(index+1)); LogLn('amount left: '+strf(amount)+' starting at x = '+strf(index+1));
{$Endif logging} {$Endif logging}
dec(x1,startXViewPort);
For Count := 1 to amount Do For Count := 1 to amount Do
WordArray(Data)[index+Count] := getpixel16(index+Count,y); WordArray(Data)[index+Count] := getpixel16(x1+index+Count,y);
{$ifdef logging} {$ifdef logging}
inc(x1,startXViewPort);
LogLn('First 32 bytes gotten with getscanline16: '); LogLn('First 32 bytes gotten with getscanline16: ');
If x2-x1+1 >= 32 Then If x2-x1+1 >= 32 Then
Count2 := 32 Count2 := 32
@ -2581,7 +2583,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.8 2000-03-19 11:20:12 peter Revision 1.9 2000-05-09 04:23:11 jonas
* fixed bug in getscanline16 (affects floodfil and getimage under VGA
640x480x16 (VGA/VGAHI)
Revision 1.8 2000/03/19 11:20:12 peter
* graph unit include is now independent and the dependent part * graph unit include is now independent and the dependent part
is now in graph.pp is now in graph.pp
* ggigraph unit for linux added * ggigraph unit for linux added