moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-02 13:52:18 -05:00
Code Issues Releases Wiki Activity

CTS 3: Now implement the formula properly.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-06-06 16:06:17 +02:00
parent 7a0db25416
commit 52db461f84
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/MMLCore/finder.pas
View File

@ -351,9 +351,8 @@ begin
XYZtoCIELab(X, Y, Z, L_1, a_1, b_1); XYZtoCIELab(X, Y, Z, L_1, a_1, b_1);
RGBToXYZ(R2, G2, B2, X, Y, Z); RGBToXYZ(R2, G2, B2, X, Y, Z);
XYZtoCIELab(X, Y, Z, L_2, a_2, b_2); XYZtoCIELab(X, Y, Z, L_2, a_2, b_2);
Result := (abs(L_1 - L_2) < Tolerance) Result := Sqrt(sqr(L_1 - L_2) + sqr(a_1 - a_2) +
and (abs(a_1 - a_2) < Tolerance) sqr(bb_1 - b_2)) <= Tolerance;
and (abs(b_1 - b_2) < Tolerance);
end; end;
end; end;
end; end;