ImageEn, unit imageenproc |
|
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\ImageEditing\Radial\Radial.dpr |
| Demos\ImageEditing\EveryMethod\EveryMethod.dpr |
// 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 );