TRadialDistortionTransformation

type TRadialDistortionTransformation = class(TTransformation)

protected

  FCoefficient1: TFloat;

  FCoefficient2: TFloat;

  FScale: TFloat;

  FFocalPoint: TFloatPoint;

  r_0: Single;

  r_tgt_max: Single;

  r_tgt_min: Single;

  FMapElements: Integer;

  Map: array of TFloat;

  function LookUpReverseMap();

  procedure SetCoefficient1();

  procedure SetCoefficient2();

  procedure SetScale();

  procedure SetMapElements();

  procedure PrepareReverseMap;

  procedure PrepareTransform; override;

  procedure ReverseTransformFloat(); override;

  procedure TransformFloat(); override;

public

  constructor Create; override;

  function HasTransformedBounds; override;

published

  property Coefficient1: TFloat; [rw]

  property Coefficient2: TFloat; [rw]

  property Scale: TFloat; [rw]

  property MapElements: Integer; [rw]

end;

TRadialDistortionTransformation

TTransformation

TNotifiablePersistent

TPlainInterfacedPersistent

TObject,IInterface