Does Mathematica image processing has a built in function to correct pincushion of an image?

Questions
, ,
1

I have a bunch of microlens images, - see attached image for one -, which are pincushioned and rotated. All need -0.1 Pinch with Radius 2.0 if I use GIMP’s Distorts->Whirl and Pinch… filter and also a -2.5 degree rotation.
I hoped, Mathematica’s Image Processing has a built in function for this kind of lens correction, but looks like it does not have.
What other modes are possible to process 1000 images in a batch?

Wavefront speckle.pdf (94.3 KB)

2

Mathematica can handle arbitrary transformations:

rm=RotationMatrix[15Degree]
ImageForwardTransformation[image,rm.Normalize[#]Norm[#]^1.1&,DataRange->{{-1,1},{-1,1}}]

where image is the source image. Here it is rotated 15 degrees and there is a pincushion kinda correction applied. The exponent will have to be modified and so forth…

3

Thanks a lot, for giving me a good direction.
Best,
János