Correct image distortion with reference image

Hey, how can I correct an image for lense distortion using a reference image and control points and perform a cross correlation between the two images afterwards? I feel like the code that I have used is not the best way to do it...

orthophoto = imread('cropped_image.tif');
figure, imshow(orthophoto)
unregistered = imread('cropped_image2.tif');
figure, imshow(unregistered)
pause
[movingPoints, fixedPoints] = cpselect(unregistered,orthophoto,'Wait',true);
cpselect(unregistered, orthophoto)
mytform = cp2tform(movingPoints, fixedPoints,'projective');
t = fitgeotrans(movingPoints, fixedPoints,'projective');
registered = imtransform(unregistered, mytform);
Rfixed = imref2d(size(orthophoto));
registered = imwarp(unregistered,t,'OutputView',Rfixed);
figure1 = imshow(registered);
saveas(figure1,'undistorted.tif');

Answer 1

[Prabhan Purwar]

Hey,

The best approach to correct image for lens distortion is to first get the camera intrinsics either from camera calibration(best) or through a set of images using control points (has scope for research). Then you may make use of undistortimage function.

Kindly have a look at the following link for more details:

• https://www.mathworks.com/help/vision/ref/undistortimage.html
• https://www.mathworks.com/help/vision/ref/estimatecameraparameters.html

Hope it helps!!