ImageEn, unit imageenproc |
|
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\ImageEditing\PencilSketch\PencilSketch.dpr |
| Demos\ImageEditing\EveryMethod\EveryMethod.dpr |
// Load test image
ImageEnView1.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 );