PencilEffect

procedure PencilEffect(img: TImage32; intensity: integer = 0);


Intensity range is 0 - 10

This function converts images into black and white line drawings. 

uses Image32, Image32_Extra, Image32_PNG;
...
img := TImage32.Create;
img.LoadFromFile('trees.png');
PencilEffect(img, 1);
img.SaveToFile('trees2.png');
img.Free;
Before:
After:

See Also

TraceContours