pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Some improvements to the fuzzy algorithm

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1313 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2010-09-02 07:14:50 +00:00
parent c9fc9311ef
commit a46b4a04a2
3 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/rgbgraphics/rgbgraphics.pas
View File

@ -810,13 +810,22 @@ end;
procedure TRGB32Canvas.FuzzyRectangle(X1, Y1, X2, Y2: Integer);
var
X, Y: LongInt;
delta: Integer;
deltaX, deltaY: Integer;
begin
for Y := Y1 + 5 to Y2 - 5 do
for X := X1 + 5 to X2 - 5 do
for Y := Y1 to Y2 do
for X := X1 to X2 do
begin
delta := X mod 5;
SetColor(X, Y, GetColor(X - delta, Y - delta));
// This computation has a good effect of making text illegible,
// but keeping the overal image with the same colors
deltaX := X mod 5;
deltaY := deltaX;
// Makes sure we won't get any invalid pixel positions
if X < 5 then deltaX := -deltaX;
if Y < 5 then deltaY := -deltaY;
// Change the color
SetColor(X, Y, GetColor(X - deltaX, Y - deltaY));
end;
end;