TImageEnProc.PencilSketch
Declaration
procedure PencilSketch(GrayScale: boolean = true; LevelSteps: integer = 2; MaxTextures: integer = MAXINT; EdgeBlurAmount: integer = 4; EdgeAmount: double = 0.5; LineThickness: double = 1; DarkeningFactor: double = 0.1; LineAlpha: double = 0.1; LineDensity: double = 0.5; Lightness: double = 4; AntialiasedLines: boolean = false);Description
Transform an image or selected area into a pencil sketch.This method can be very slow for large images or for particular combination of parameters (like LevelSteps and AntialiasedLines).
It also requires a lot of memory and can fail processing large images.
| Parameter | Description |
|---|---|
| GrayScale | If True, output will be gray scale |
| LevelSteps | Number of colors to detect in image. Suggested range: 2 to 6 |
| MaxTextures | Overcome LevelSteps parameter, specifying the maximum number of textures (colors) to generate |
| EdgeBlurAmount | Thickness of edges. Suggested range: 2 to 10 |
| EdgeAmount | The edge amount. Suggested range: 0 to 2 |
| LineThickness | Thickness of drawn lines. Suggested range: 0.5 to 10 |
| DarkeningFactor | Darkness of output image. Suggested range: 0 to 10 |
| LineAlpha | Transparency (alpha) of drawn lines. Suggested range: 0.05 to 0.5 |
| LineDensity | Density of drawn lines (how many lines are drawn in the textures). Suggested range: 0.25 to 1 |
| Lightness | Overall lightness of the output image. Suggested range: 1 to 8 |
| AntialiasedLines | If True, texture lines are drawn with antialiasing routine |
Original image:
Applying PencilSketch() to the selected areas:
Applying PencilSketch(false) to the selected areas:
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 iermPencilSketch
◼ If the image PixelFormat is not ie24RGB, it will be converted
Demos
 | Demos\ImageEditing\PencilSketch\PencilSketch.dpr |
| | Demos\ImageEditing\EveryMethod\EveryMethod.dpr |
Examples
// Load test imageImageEnView1.IO.LoadFromFile( 'D:\TestImage.jpg' );
// Transform image into a monochrome pencil sketch
ImageEnView1.Proc.PencilSketch( True );
// Transform image into a color pencil sketch
ImageEnView1.Proc.PencilSketch( False );
