Re: ConvertToGray Need convert to Brown (sepia) -- Envision Support Forum

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 08:57:04 03/15/06 Wed
Author: Reini
Subject: Re: ConvertToGray Need convert to Brown (sepia)
In reply to: Dima 's message, "Re: ConvertToGray Need convert to Brown (sepia)" on 12:08:49 02/28/06 Tue

The code works great. Thanks! I've added a Depth property so the sepia filter can be adjusted by the user:

<code>

type
TSepiaTransform = class(TImageTransform)
private
FDepth: Byte;
public
constructor Create;
procedure Apply(const DibGraphic: TDibGraphic); override;
procedure ApplyOnDest(const Source: TDibGraphic; const Dest: TDibGraphic);
property Depth: Byte read FDepth write FDepth default 20;
end;

constructor TSepiaTransform.Create;
begin
Inherited Create;
FDepth := 20;
end;

procedure TSepiaTransform.Apply(const DibGraphic: TDibGraphic);
var
Color: TRGB;
H, W: Integer;
Gray: Integer;
begin
FLastPercent := -1;
FLastPercent := DoProgress(Self,FOnProgress,0,0,100,FLastPercent);
for H := 0 to DibGraphic.Height - 1 do
begin
FLastPercent := DoProgress(Self,FOnProgress,H,0,DibGraphic.Height - 1,FLastPercent);
for W := 0 to DibGraphic.Width - 1 do
begin
Color := DibGraphic.RGB[W,H];
Gray := (Color.Red + Color.Green + Color.Blue) div 3; //CONVERT TO GRAY
Color.Blue := Gray;
Color.Green := Gray + Depth;
Color.Red := Gray + (Depth * 2);
if Color.Red < (Depth * 2) then
Color.Red := 255;
if Color.Green < Depth then
Color.Green := 255;
DibGraphic.RGB[W,H] := Color;
end;
end;
FLastPercent := DoProgress(Self,FOnProgress,100,0,100,FLastPercent);
end;

procedure TSepiaTransform.ApplyOnDest(const Source: TDibGraphic; const Dest: TDibGraphic);
begin
Dest.Assign(Source);
Apply(Dest);
end;
</code>

[ Next Thread | Previous Thread | Next Message | Previous Message ]