Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 07:45:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #57 from ByteArts/patch-1

Browse Source 
Update uclahe.pas
This commit is contained in:
Laentir Valetov 2016-08-02 18:21:46 +04:00 committed by GitHub
commit d478288288
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
samples/LibDemo/cvCalcHist/-Work/uclahe.pas
View File

@ -437,7 +437,7 @@ begin
ulNrExcess := 0; pulBinPointer := pulHistogram;
for i := 0 to uiNrGreylevels-1 do
begin (* calculate total number of excess pixels *)
lBinExcess := pulBinPointer[i] - ulClipLimit;
lBinExcess := Integer(Int64(pulBinPointer[i]) - Int64(ulClipLimit));
if (lBinExcess > 0) then ulNrExcess :=ulNrExcess+lBinExcess; (* excess in current bin *)
end;;