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

* Remove += operators

Browse Source 
git-svn-id: trunk@1990 -
This commit is contained in:
daniel 2005-12-19 08:21:59 +00:00
parent 675d051274
commit d28e5e9318
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;
End; End;
error += Round(Sqrt(mindist) * 290); error:=error+round(Sqrt(mindist) * 290);
Case dither Of Case dither Of
0 : best2 := best1; 0 : best2 := best1;
1 : Begin 1 : Begin
@ -226,7 +226,7 @@ Begin
b := s[0]; b := s[0];
g := s[1]; g := s[1];
r := s[2]; 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}); Inc(s, 4{ + 4 + 4 + 4});
End; End;
// Inc(s, 320*4*3); // Inc(s, 320*4*3);