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: