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

* Merge removal of += from trunk

Browse Source 
git-svn-id: branches/fixes_2_0@2027 -
This commit is contained in:
daniel 2005-12-22 15:52:10 +00:00
parent 7ae8772895
commit e1ccda3139
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/extra/ptc/dos/cga/cga.pp
View File

@ -197,7 +197,7 @@ Begin
End;
End;
error += Round(Sqrt(mindist) * 290);
error:=error+round(Sqrt(mindist) * 290);
Case dither Of
0 : best2 := best1;
1 : Begin
@ -226,7 +226,7 @@ Begin
b := s[0];
g := s[1];
r := s[2];
CGACalcError += precalcerror[back, pal]^[b Shr 4, g Shr 4, r Shr 4];
inc(CGACalcError,precalcerror[back, pal]^[b Shr 4, g Shr 4, r Shr 4]);
Inc(s, 4{ + 4 + 4 + 4});
End;
// Inc(s, 320*4*3);