mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-16 08:15:52 +01:00
85 lines
2.7 KiB
ObjectPascal
85 lines
2.7 KiB
ObjectPascal
unit calib3d;
|
|
|
|
interface
|
|
|
|
Uses Core.types_c, types_c;
|
|
|
|
{
|
|
/* Reprojects the computed disparity image to the 3D space using the specified 4x4 matrix */
|
|
CVAPI(void) cvReprojectImageTo3D(
|
|
const CvArr* disparityImage,
|
|
CvArr* _3dImage,
|
|
const CvMat* Q,
|
|
int handleMissingValues CV_DEFAULT(0) );
|
|
}
|
|
|
|
procedure cvReprojectImageTo3D(
|
|
{ } const disparityImage: pCvMat;
|
|
{ } _3dImage: pIplImage;
|
|
{ } const Q: pCvMat;
|
|
{ } handleMissingValues: Integer = 0); cdecl;
|
|
|
|
Const
|
|
CV_CALIB_CB_ADAPTIVE_THRESH = 1;
|
|
CV_CALIB_CB_NORMALIZE_IMAGE = 2;
|
|
CV_CALIB_CB_FILTER_QUADS = 4;
|
|
CV_CALIB_CB_FAST_CHECK = 8;
|
|
|
|
{
|
|
/* Detects corners on a chessboard calibration pattern */
|
|
CVAPI(int) cvFindChessboardCorners(
|
|
const void* image,
|
|
CvSize pattern_size,
|
|
CvPoint2D32f* corners,
|
|
int* corner_count CV_DEFAULT(NULL),
|
|
int flags CV_DEFAULT(CV_CALIB_CB_ADAPTIVE_THRESH+CV_CALIB_CB_NORMALIZE_IMAGE) );
|
|
}
|
|
function cvFindChessboardCorners(const image: Pointer; pattern_size: TCvSize; corners: pCvPoint2D32f;
|
|
corner_count: pInteger = nil; flags: Integer = CV_CALIB_CB_ADAPTIVE_THRESH + CV_CALIB_CB_NORMALIZE_IMAGE)
|
|
: Integer; cdecl;
|
|
|
|
{
|
|
/* Draws individual chessboard corners or the whole chessboard detected */
|
|
CVAPI(void) cvDrawChessboardCorners(
|
|
CvArr* image,
|
|
CvSize pattern_size,
|
|
CvPoint2D32f* corners,
|
|
int count,
|
|
int pattern_was_found );
|
|
}
|
|
procedure cvDrawChessboardCorners(image: pIplImage; pattern_size: TCvSize; corners: pCvPoint2D32f; count: Integer;
|
|
pattern_was_found: Integer); cdecl;
|
|
|
|
{
|
|
/* Finds intrinsic and extrinsic camera parameters
|
|
from a few views of known calibration pattern */
|
|
CVAPI(double) cvCalibrateCamera2(
|
|
const CvMat* object_points,
|
|
const CvMat* image_points,
|
|
const CvMat* point_counts,
|
|
CvSize image_size,
|
|
CvMat* camera_matrix,
|
|
CvMat* distortion_coeffs,
|
|
CvMat* rotation_vectors CV_DEFAULT(NULL),
|
|
CvMat* translation_vectors CV_DEFAULT(NULL),
|
|
int flags CV_DEFAULT(0),
|
|
CvTermCriteria term_crit CV_DEFAULT(cvTermCriteria(CV_TERMCRIT_ITER+CV_TERMCRIT_EPS,30,DBL_EPSILON)) );
|
|
}
|
|
|
|
function cvCalibrateCamera2(const object_points: pCvMat; const image_points: pCvMat; const point_counts: pCvMat;
|
|
image_size: TCvSize; camera_matrix: pCvMat; distortion_coeffs: pCvMat; rotation_vectors: pCvMat { =nil };
|
|
translation_vectors: pCvMat { =nil }; flags: Integer { =0 };
|
|
term_crit: TCvTermCriteria { =cvTermCriteria(CV_TERMCRIT_ITER+CV_TERMCRIT_EPS,30,DBL_EPSILON) }
|
|
): Double; cdecl;
|
|
|
|
implementation
|
|
|
|
Uses LibName;
|
|
|
|
procedure cvReprojectImageTo3D; external calib3d_dll;
|
|
function cvFindChessboardCorners; external calib3d_dll;
|
|
procedure cvDrawChessboardCorners; external calib3d_dll;
|
|
function cvCalibrateCamera2; external calib3d_dll;
|
|
|
|
end.
|