TImageEnProc.Swirl

Declaration

procedure Swirl(Twists: Double = 1.0); overload;
procedure Swirl(CenterX, CenterY, Radius: Integer; Twists: Double = 1.0); overload;

Description

Apply a swirl effect to the image to obfuscate its content.
Twists specifies the amount of rotation that should occur. Typical values are 0.5 to 1.5.
If you do not use the position overload, the swirl will be placed within the current selection. CenterX and CenterY can be specified as -1 to position in the center of the image. Radius can be -1 to draw to the maximum available width or height.

Note:
◼ A UI for this is available to your users in the Image Processing dialog
◼ Also available as a RetouchTool by setting MouseInteractGeneral to [miRetouchTool] and RetouchMode to iermSwirl
◼ If the image PixelFormat is not ie24RGB, it will be converted

Demo

Examples

// Load test image
ImageEnView1.IO.LoadFromFile( 'D:\TestImage.jpg' );

  

// Apply a swirl effect to the center of the image
ImageEnView1.Proc.Swirl( -1, -1, Round( ImageEnView1.Height * 0.4 ), 0.80 );

  

---