RedEyeRemove

procedure RedEyeRemove(img: TImage32; const rect: TRect);


Removes 'red eye' that's sometimes encountered in flash photography.

  uses Image32, Image32_PNG, Image32_Extra;
  ...
  img := TImage32.Create;
  img.LoadFromFile('redeye.png');
  RedEyeRemove(img, Rect(59,87, 78,106));
  RedEyeRemove(img, Rect(193,99, 212,118));
  img.SaveToFile('redeye_removed.png');
  img.Free;
      
Before:
After: