Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-16 16:25:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
c75a30064a
Delphi-OpenCV/samples/LibTest/cvAnd/cv_And.dpr

210 lines
5.8 KiB
ObjectPascal
Raw Normal View History

[+] FaceDetect [+] cvGetSubRect [*] Changed the names of the projects Signed-off-by: Laex <laex@bk.ru>
2013-03-27 23:20:08 +01:00
// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
Add samples: + FloodFill + Weighted + Weighted2 + cvInRange + SplitMerge + cvAnd + CvtPixToPlane + cvCopyMakeBorder + LoadAndTransformImage Signed-off-by: Laex <laex@bk.ru>
2013-01-01 22:36:38 +01:00
program cv_And;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
Many changes [*] Repository rebuilt [*] CameraCalibrate - now working [+] Improved cvSave [+] Implemented macro CV_MAT_ELEM [+] CvOpenFileStorage and more ... Signed-off-by: Laex <laex@bk.ru>
2013-04-02 00:17:25 +02:00
core_c in '..\..\..\include\<5C>ore\core_c.pas',
Core.types_c in '..\..\..\include\<5C>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',
uLibName in '..\..\..\include\uLibName.pas',
types_c in '..\..\..\include\<5C>ore\types_c.pas';
Add samples: + FloodFill + Weighted + Weighted2 + cvInRange + SplitMerge + cvAnd + CvtPixToPlane + cvCopyMakeBorder + LoadAndTransformImage Signed-off-by: Laex <laex@bk.ru>
2013-01-01 22:36:38 +01:00
const
[+] FaceDetect [+] cvGetSubRect [*] Changed the names of the projects Signed-off-by: Laex <laex@bk.ru>
2013-03-27 23:20:08 +01:00
filename = 'Resource\roulette-wheel2-small.jpg';
Add samples: + FloodFill + Weighted + Weighted2 + cvInRange + SplitMerge + cvAnd + CvtPixToPlane + cvCopyMakeBorder + LoadAndTransformImage Signed-off-by: Laex <laex@bk.ru>
2013-01-01 22:36:38 +01:00
Var
Rmin: Integer = 0;
Rmax: Integer = 256;
Gmin: Integer = 0;
Gmax: Integer = 256;
Bmin: Integer = 0;
Bmax: Integer = 256;
RGBmax: Integer = 256;
image: pIplImage = nil;
dst: pIplImage = nil;
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RGB
rgb: pIplImage = nil;
r_plane: pIplImage = nil;
g_plane: pIplImage = nil;
b_plane: pIplImage = nil;
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> RGB <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
r_range: pIplImage = nil;
g_range: pIplImage = nil;
b_range: pIplImage = nil;
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
rgb_and: pIplImage = nil;
//
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//
procedure myTrackbarRmin(pos: Integer); cdecl;
begin
Rmin := pos;
cvInRangeS(r_plane, cvScalar(Rmin), cvScalar(Rmax), r_range);
end;
procedure myTrackbarRmax(pos: Integer); cdecl;
begin
Rmax := pos;
cvInRangeS(r_plane, cvScalar(Rmin), cvScalar(Rmax), r_range);
end;
procedure myTrackbarGmin(pos: Integer); cdecl;
begin
Gmin := pos;
cvInRangeS(g_plane, cvScalar(Gmin), cvScalar(Gmax), g_range);
end;
procedure myTrackbarGmax(pos: Integer); cdecl;
begin
Gmax := pos;
cvInRangeS(g_plane, cvScalar(Gmin), cvScalar(Gmax), g_range);
end;
procedure myTrackbarBmin(pos: Integer); cdecl;
begin
Bmin := pos;
cvInRangeS(b_plane, cvScalar(Bmin), cvScalar(Bmax), b_range);
end;
procedure myTrackbarBmax(pos: Integer); cdecl;
begin
Bmax := pos;
cvInRangeS(b_plane, cvScalar(Bmin), cvScalar(Bmax), b_range);
end;
Var
framemin, framemax: Double;
c: Integer;
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
image := cvLoadImage(filename);
WriteLn(Format('[i] image: %s', [filename]));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
rgb := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 3);
r_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
g_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
b_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
r_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
g_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
b_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
rgb_and := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvCopyImage(image, rgb);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvSplit(rgb, b_plane, g_plane, r_plane, 0);
//
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> HSV
framemin := 0;
framemax := 0;
cvMinMaxLoc(r_plane, @framemin, @framemax);
WriteLn(Format('[R] %f x %f', [framemin, framemax]));
Rmin := Trunc(framemin);
Rmax := Trunc(framemax);
cvMinMaxLoc(g_plane, @framemin, @framemax);
WriteLn(Format('[G] %f x %f', [framemin, framemax]));
Gmin := Trunc(framemin);
Gmax := Trunc(framemax);
cvMinMaxLoc(b_plane, @framemin, @framemax);
WriteLn(Format('[B] %f x %f', [framemin, framemax]));
Bmin := Trunc(framemin);
Bmax := Trunc(framemax);
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvNamedWindow('original', CV_WINDOW_AUTOSIZE);
cvNamedWindow('R', CV_WINDOW_AUTOSIZE);
cvNamedWindow('G', CV_WINDOW_AUTOSIZE);
cvNamedWindow('B', CV_WINDOW_AUTOSIZE);
cvNamedWindow('R range', CV_WINDOW_AUTOSIZE);
cvNamedWindow('G range', CV_WINDOW_AUTOSIZE);
cvNamedWindow('B range', CV_WINDOW_AUTOSIZE);
cvNamedWindow('rgb and', CV_WINDOW_AUTOSIZE);
cvCreateTrackbar('Rmin', 'R range', @Rmin, RGBmax, myTrackbarRmin);
cvCreateTrackbar('Rmax', 'R range', @Rmax, RGBmax, myTrackbarRmax);
cvCreateTrackbar('Gmin', 'G range', @Gmin, RGBmax, myTrackbarGmin);
cvCreateTrackbar('Gmax', 'G range', @Gmax, RGBmax, myTrackbarGmax);
cvCreateTrackbar('Bmin', 'B range', @Gmin, RGBmax, myTrackbarBmin);
cvCreateTrackbar('Bmax', 'B range', @Gmax, RGBmax, myTrackbarBmax);
//
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
//
if (image^.width < 1920 / 4) and (image^.height < 1080 / 2) then
begin
cvMoveWindow('original', 0, 0);
cvMoveWindow('R', image^.width + 10, 0);
cvMoveWindow('G', (image^.width + 10) * 2, 0);
cvMoveWindow('B', (image^.width + 10) * 3, 0);
cvMoveWindow('rgb and', 0, image^.height + 30);
cvMoveWindow('R range', image^.width + 10, image^.height + 30);
cvMoveWindow('G range', (image^.width + 10) * 2, image^.height + 30);
cvMoveWindow('B range', (image^.width + 10) * 3, image^.height + 30);
end;
while (true) do
begin
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvShowImage('original', image);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
cvShowImage('R', r_plane);
cvShowImage('G', g_plane);
cvShowImage('B', b_plane);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvShowImage('R range', r_range);
cvShowImage('G range', g_range);
cvShowImage('B range', b_range);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvAnd(r_range, g_range, rgb_and);
cvAnd(rgb_and, b_range, rgb_and);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvShowImage('rgb and', rgb_and);
c := cvWaitKey(33);
if (c = 27) then
// <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ESC - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
break;
end;
WriteLn('[i] Results:');
WriteLn(Format('[i][R] %d : %d', [Rmin, Rmax]));
WriteLn(Format('[i][G] %d : %d', [Gmin, Gmax]));
WriteLn(Format('[i][B] %d : %d', [Bmin, Bmax]));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvReleaseImage(image);
cvReleaseImage(rgb);
cvReleaseImage(r_plane);
cvReleaseImage(g_plane);
cvReleaseImage(b_plane);
cvReleaseImage(r_range);
cvReleaseImage(g_range);
cvReleaseImage(b_range);
cvReleaseImage(rgb_and);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
cvDestroyAllWindows();
end.
Reference in New Issue Copy Permalink