Delphi-OpenCV/samples/LibTest/cvCvtPixToPlane/cv_CvtPixToPlane.dpr

(* /*****************************************************************
  //                       Delphi-OpenCV Demo
  //               Copyright (C) 2013 Project Delphi-OpenCV
  // ****************************************************************
  // Contributor:
  // laentir Valetov
  // email:laex@bk.ru
  // ****************************************************************
  // You may retrieve the latest version of this file at the GitHub,
  // located at git://github.com/Laex/Delphi-OpenCV.git
  // ****************************************************************
  // The contents of this file are used with permission, subject to
  // the Mozilla Public License Version 1.1 (the "License"); you may
  // not use this file except in compliance with the License. You may
  // obtain a copy of the License at
  // http://www.mozilla.org/MPL/MPL-1_1Final.html
  //
  // Software distributed under the License is distributed on an
  // "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
  // implied. See the License for the specific language governing
  // rights and limitations under the License.
  ******************************************************************* *)
// JCL_DEBUG_EXPERT_GENERATEJDBG OFF
// JCL_DEBUG_EXPERT_INSERTJDBG OFF
// JCL_DEBUG_EXPERT_DELETEMAPFILE OFF
program cv_CvtPixToPlane;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
uLibName in '..\..\..\include\uLibName.pas',
highgui_c in '..\..\..\include\highgui\highgui_c.pas',
core_c in '..\..\..\include\<5C>ore\core_c.pas',
Core.types_c in '..\..\..\include\<5C>ore\Core.types_c.pas',
imgproc.types_c in '..\..\..\include\imgproc\imgproc.types_c.pas',
imgproc_c in '..\..\..\include\imgproc\imgproc_c.pas',
legacy in '..\..\..\include\legacy\legacy.pas',
calib3d in '..\..\..\include\calib3d\calib3d.pas',
imgproc in '..\..\..\include\imgproc\imgproc.pas',
haar in '..\..\..\include\objdetect\haar.pas',
objdetect in '..\..\..\include\objdetect\objdetect.pas',
tracking in '..\..\..\include\video\tracking.pas',
Core in '..\..\..\include\<5C>ore\core.pas'
  ;

const
  filename = 'Resource\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
  try
    // <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();
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;

end.