Date Posted:12:08:49 02/28/06 Tue Author:Dima Subject: Re: ConvertToGray Need convert to Brown (sepia) In reply to:
Lane
's message, "ConvertToGray Need convert to Brown (sepia)" on 15:46:55 08/30/05 Tue
end;
procedure TSeriaTransform.Apply( const DibGraphic : TDibGraphic );
var
color:Trgb;
h,w:integer;
gray:integer;
b:byte;
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+20;
color.Red:=gray+40;
if color.Red <= ((39)) then
color.Red:=255;
if color.Green <= (19) then
color.Green:=255;
DibGraphic.rgb[w,h] :=color;
end;
end;
FLastPercent := DoProgress(Self, FOnProgress, 100, 0, 100, FLastPercent);
end;
procedure TSeriaTransform.ApplyOnDest( const Source : TDibGraphic;
const Dest : TDibGraphic );
begin
Dest.Assign(Source);
Apply(Dest);
end;
>TConvertToGrayTransform
>
>This converts to white and Black,
>I want to convert to white and Brown
>to make the picture to look antique.
>
>I beleve it is called sepia.
>
>How can I do this with the library???
