ImageEn, unit imageenproc

TImageEnProc.RadialStretch

TImageEnProc.RadialStretch


Declaration

procedure RadialStretch(ARed, BRed, CRed, DRed, AGreen, BGreen, CGreen, DGreen, ABlue, BBlue, CBlue, DBlue: Double);


Description

Performs a radial stretch for each color component (R, G, B). This allows manual correction of Barrel and Pincushion distortion (lens distortion, underwater distortion).
A, B, C, D (followed by channel name) are the coefficients

Note:
The D value can generally be automatically calculated as D := 1.0 - ( A + B + C )
If the image PixelFormat is not ie24RGB, it will be converted


Demos

Demo  Demos\ImageEditing\Radial\Radial.dpr
Demo  Demos\ImageEditing\EveryMethod\EveryMethod.dpr


Example



// Minor correction of pin cushion effect in image
a := 0.045;
b := 0;
c := 0;
d := 1.0 - (a+b+c);
ImageEnView1.Proc.RadialStretch( a, b, c, d,
                                 a, b, c, d,
                                 a, b, c, d );