{
 **** UBPFD *********** by delphibase.endimus.com ****
>> Изменение гаммы рисунка
Зависимости: Graphics
Автор: Fenik, <a href="mailto:chook_nu@uraltc.ru">chook_nu@uraltc.ru</a>, Новоуральск
Copyright: Автор Федоровских Николай
Дата: 5 июня 2002 г.
***************************************************** }
procedure Gamma(Bitmap: TBitmap; L: Double);
{0.0 < L < 7.0}
 function Power(Base, Exponent: Extended): Extended;
 begin
  Result := Exp(Exponent * Ln(Base));
 end;
type
 TRGB = record
  B, G, R: Byte;
 end;
 pRGB = ^TRGB;
var
 Dest: pRGB;
 X, Y: Word;
 GT: array[0..255] of Byte;
begin
 Bitmap.PixelFormat := pf24Bit;
 GT[0] := 0;
 if L = 0 then
  L := 0.01;
 for X := 1 to 255 do
  GT[X] := Round(255 * Power(X / 255, 1 / L));
 for Y := 0 to Bitmap.Height - 1 do
 begin
  Dest := Bitmap.ScanLine[y];
  for X := 0 to Bitmap.Width - 1 do
  begin
  with Dest^ do
  begin
  R := GT[R];
  G := GT[G];
  B := GT[B];
  end;
  Inc(Dest);
  end;
 end;
end;