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 Img32, Img32.Extra, Img32.Fmt.PNG;
...
img := TImage32.Create;
img.LoadFromFile('trees.png');
TraceContours(img, 2);
img.SaveToFile('trees3.png');
img.Free;
Before:
 After:

See Also

PencilEffect