Home

Image32_Extra

Emboss

procedure Emboss(img: TImage32; radius: Integer = 1; depth: Integer = 10; luminance: Integer = 75; preserveColor: Boolean = false);

Smaller radius is sharper, greater depth increases edge contrast and luminance changes grayscale balance (unless preserveColor = true)

Example 1

  uses Image32, Image32_Extra, Image32_PNG;
  ...
  img := TImage32.Create;
  img.LoadFromFile('fruit.png');
  Emboss(img, 1,10);
  img.SaveToFile('fruit_emboss.png');
  img.Free;
  
      

Before:

After:

Example 2

  uses Image32, Image32_Extra, Image32_PNG;
  ...
  img := TImage32.Create;
  img.LoadFromFile('fruit.png');
  Emboss(img, 1,10, 75, true);
  img.SaveToFile('fruit_emboss.png');
  img.Free;
  
      

Before:

After:

Copyright ©2019 Angus Johnson   -   Image32 ver. 1.54   -   Documentation last updated on 7-November-2020