Delphi-OpenCV/samples/cvAnd/cv_And.dpr

// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
program cv_And;

{$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',
  LibName in '..\..\include\LibName.pas';

const
  filename = 'Resource\roulette-wheel2-small.jpg';

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.