mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-16 16:25:53 +01:00
83 lines
3.1 KiB
ObjectPascal
83 lines
3.1 KiB
ObjectPascal
|
// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
|
|||
|
|
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
|
|||
|
|
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
|
|||
|
|
program cv_Integral;
|
|||
|
|
|
|||
|
|
{$APPTYPE CONSOLE}
|
|||
|
|
{$R *.res}
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
System.SysUtils,
|
|||
|
|
core_c in '..\..\include\сore\core_c.pas',
|
|||
|
|
Core.types_c in '..\..\include\сore\Core.types_c.pas',
|
|||
|
|
highgui_c in '..\..\include\highgui\highgui_c.pas',
|
|||
|
|
imgproc.types_c in '..\..\include\imgproc\imgproc.types_c.pas',
|
|||
|
|
imgproc_c in '..\..\include\imgproc\imgproc_c.pas';
|
|||
|
|
|
|||
|
|
const
|
|||
|
|
filename = 'cvIntegral.jpg';
|
|||
|
|
|
|||
|
|
Var
|
|||
|
|
SourceImage: pIplImage = nil;
|
|||
|
|
SumImage: pIplImage = nil;
|
|||
|
|
SquareSumImage: pIplImage = nil;
|
|||
|
|
TiltedSumImage: pIplImage = nil;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
// получаем картинку
|
|||
|
|
SourceImage := cvLoadImage(filename, CV_LOAD_IMAGE_GRAYSCALE);
|
|||
|
|
WriteLn(Format('[i] image: %s', [filename]));
|
|||
|
|
|
|||
|
|
// покажем изображение
|
|||
|
|
cvNamedWindow('original', 1);
|
|||
|
|
cvShowImage('original', SourceImage);
|
|||
|
|
|
|||
|
|
SumImage := cvCreateImage(cvSize(SourceImage^.width + 1, SourceImage^.height + 1), IPL_DEPTH_64F, 1);
|
|||
|
|
SquareSumImage := cvCreateImage(cvSize(SourceImage^.width + 1, SourceImage^.height + 1), IPL_DEPTH_64F, 1);
|
|||
|
|
TiltedSumImage := cvCreateImage(cvSize(SourceImage^.width + 1, SourceImage^.height + 1), IPL_DEPTH_64F, 1);
|
|||
|
|
|
|||
|
|
// получаем интегральное изображение
|
|||
|
|
{
|
|||
|
|
void cvIntegral( const CvArr* SourceImage, CvArr* SumImage, CvArr* SquareSumImage=0, CvArr* TiltedSumImage=0 );
|
|||
|
|
SourceImage: The source image, wxh, single-channel, 8-bit, or floating-point (32f or 64f).
|
|||
|
|
SumImage: The sum image, w+1xh+1, single-channel, 32-bit integer or double precision floating-point (64f).
|
|||
|
|
SquareSumImage: The square sum image, w+1xh+1, single-channel, double precision floating-point (64f).
|
|||
|
|
TiltedSumImage: The tilted sum image (sum of rotated by 45° image), w+1xh+1, single-channel, the same data type as sum.
|
|||
|
|
|
|||
|
|
The function cvIntegral calculates one or more integral images for the source image as following:
|
|||
|
|
S(X,Y)=sumx<X,y<YI(x,y)
|
|||
|
|
Sq(X,Y)=sumx<X,y<YI(x,y)2
|
|||
|
|
T(X,Y)=sumy<Y,abs(x-X)<yI(x,y)
|
|||
|
|
|
|||
|
|
After that the images are calculated, they can be used to calculate sums of pixels over an arbitrary rectangles, for example:
|
|||
|
|
sumx1<=x<x2,y1<=y<y2I(x,y)=S(x2,y2)-S(x1,y2)-S(x2,y1)+S(x1,x1)
|
|||
|
|
|
|||
|
|
It makes possible to do a fast blurring or fast block correlation with variable window size etc.
|
|||
|
|
}
|
|||
|
|
cvIntegral(SourceImage, SumImage, SquareSumImage, TiltedSumImage);
|
|||
|
|
|
|||
|
|
cvNamedWindow('cvIntegral', 1);
|
|||
|
|
cvShowImage('cvIntegral', SumImage);
|
|||
|
|
cvNamedWindow('cvIntegral 2', 1);
|
|||
|
|
cvShowImage('cvIntegral 2', SquareSumImage);
|
|||
|
|
cvNamedWindow('cvIntegral tilted');
|
|||
|
|
cvShowImage('cvIntegral tilted', TiltedSumImage);
|
|||
|
|
|
|||
|
|
// ждём нажатия клавиши
|
|||
|
|
cvWaitKey(0);
|
|||
|
|
|
|||
|
|
// освобождаем ресурсы
|
|||
|
|
cvReleaseImage(SourceImage);
|
|||
|
|
cvReleaseImage(SumImage);
|
|||
|
|
cvReleaseImage(SquareSumImage);
|
|||
|
|
cvReleaseImage(TiltedSumImage);
|
|||
|
|
// удаляем окна
|
|||
|
|
cvDestroyAllWindows();
|
|||
|
|
except
|
|||
|
|
On E: Exception do
|
|||
|
|
WriteLn(E.Message);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|