TraceContours

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


Intensity range is 0 - 10

Creates contours based on sharp changes in color and intensity, converting the image into a black and white drawing. 

uses Image32, Image32_Extra, Image32_PNG;
...
img := TImage32.Create;
img.LoadFromFile('trees.png');
TraceContours(img, 2);
img.SaveToFile('trees3.png');
img.Free;
Before:
After:

See Also

PencilEffect