Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-17 00:35:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity
1cc52659ef
Delphi-OpenCV/samples/CvtPixToPlane/CvtPixToPlane.dpr

202 lines
5.5 KiB
ObjectPascal
Raw Normal View History

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 CvtPixToPlane;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils,
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';
const
filename = 'roulette-wheel2-small.jpg';
Var
image: pIplImage = nil;
dst: pIplImage = nil;
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> HSV
hsv: pIplImage = nil;
h_plane: pIplImage = nil;
s_plane: pIplImage = nil;
v_plane: pIplImage = nil;
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> HSV <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
h_range: pIplImage = nil;
s_range: pIplImage = nil;
v_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>
hsv_and: pIplImage = nil;
Hmin: Integer = 0;
Hmax: Integer = 256;
Smin: Integer = 0;
Smax: Integer = 256;
Vmin: Integer = 0;
Vmax: Integer = 256;
HSVmax: Integer = 256;
//
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
//
procedure myTrackbarHmin(pos: Integer); cdecl;
begin
Hmin := pos;
cvInRangeS(h_plane, cvScalar(Hmin), cvScalar(Hmax), h_range);
end;
procedure myTrackbarHmax(pos: Integer); cdecl;
begin
Hmax := pos;
cvInRangeS(h_plane, cvScalar(Hmin), cvScalar(Hmax), h_range);
end;
procedure myTrackbarSmin(pos: Integer); cdecl;
begin
Smin := pos;
cvInRangeS(s_plane, cvScalar(Smin), cvScalar(Smax), s_range);
end;
procedure myTrackbarSmax(pos: Integer); cdecl;
begin
Smax := pos;
cvInRangeS(s_plane, cvScalar(Smin), cvScalar(Smax), s_range);
end;
procedure myTrackbarVmin(pos: Integer); cdecl;
begin
Vmin := pos;
cvInRangeS(v_plane, cvScalar(Vmin), cvScalar(Vmax), v_range);
end;
procedure myTrackbarVmax(pos: Integer); cdecl;
begin
Vmax := pos;
cvInRangeS(v_plane, cvScalar(Vmin), cvScalar(Vmax), v_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, 1);
WriteLn(Format('[i] image: %s', [filename]));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
hsv := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 3);
h_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
s_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
v_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
h_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
s_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
v_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
hsv_and := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> HSV
cvCvtColor(image, hsv, CV_BGR2HSV);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvCvtPixToPlane(hsv, h_plane, s_plane, v_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(h_plane, @framemin, @framemax);
WriteLn(Format('[H] %f x %f', [framemin, framemax]));
Hmin := Trunc(framemin);
Hmax := Trunc(framemax);
cvMinMaxLoc(s_plane, @framemin, @framemax);
WriteLn(Format('[S] %f x %f', [framemin, framemax]));
Smin := Trunc(framemin);
Smax := Trunc(framemax);
cvMinMaxLoc(v_plane, @framemin, @framemax);
WriteLn(Format('[V] %f x %f', [framemin, framemax]));
Vmin := Trunc(framemin);
Vmax := 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('H', CV_WINDOW_AUTOSIZE);
cvNamedWindow('S', CV_WINDOW_AUTOSIZE);
cvNamedWindow('V', CV_WINDOW_AUTOSIZE);
cvNamedWindow('H range', CV_WINDOW_AUTOSIZE);
cvNamedWindow('S range', CV_WINDOW_AUTOSIZE);
cvNamedWindow('V range', CV_WINDOW_AUTOSIZE);
cvNamedWindow('hsv and', CV_WINDOW_AUTOSIZE);
cvCreateTrackbar('Hmin', 'H range', @Hmin, HSVmax, myTrackbarHmin);
cvCreateTrackbar('Hmax', 'H range', @Hmax, HSVmax, myTrackbarHmax);
cvCreateTrackbar('Smin', 'S range', @Smin, HSVmax, myTrackbarSmin);
cvCreateTrackbar('Smax', 'S range', @Smax, HSVmax, myTrackbarSmax);
cvCreateTrackbar('Vmin', 'V range', @Vmin, HSVmax, myTrackbarVmin);
cvCreateTrackbar('Vmax', 'V range', @Vmax, HSVmax, myTrackbarVmax);
//
// <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('H', image^.width + 10, 0);
cvMoveWindow('S', (image^.width + 10) * 2, 0);
cvMoveWindow('V', (image^.width + 10) * 3, 0);
cvMoveWindow('hsv and', 0, image^.height + 30);
cvMoveWindow('H range', image^.width + 10, image^.height + 30);
cvMoveWindow('S range', (image^.width + 10) * 2, image^.height + 30);
cvMoveWindow('V 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);
cvShowImage('H', h_plane);
cvShowImage('S', s_plane);
cvShowImage('V', v_plane);
cvShowImage('H range', h_range);
cvShowImage('S range', s_range);
cvShowImage('V range', v_range);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvAnd(h_range, s_range, hsv_and);
cvAnd(hsv_and, v_range, hsv_and);
cvShowImage('hsv and', hsv_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('[H] %d x %d', [Hmin, Hmax]));
WriteLn(Format('[S] %d x %d', [Smin, Smax]));
WriteLn(Format('[V] %d x %d', [Vmin, Vmax]));
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
cvReleaseImage(image);
cvReleaseImage(hsv);
cvReleaseImage(h_plane);
cvReleaseImage(s_plane);
cvReleaseImage(v_plane);
cvReleaseImage(h_range);
cvReleaseImage(s_range);
cvReleaseImage(v_range);
cvReleaseImage(hsv_and);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
cvDestroyAllWindows();
end.
Reference in New Issue Copy Permalink