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

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 );

---