Sepia

Mam kolor i chce przerobic go na kolor sepii - tylko jak; jaki jet algorytm [???] [glowa] Przerobienie kolorowego koloru :-P na szary jest proste, sepia jest pewnie rownie prosta...

Może leć po wszystkich pixelach, zamień kolor na hls, a potem znowu na rgb, z tym, że hue i saturation dasz stałe.

najlepiej ze scanline'm:

function czerwony2(kolorek:tcolor):tcolor;
var 
 R, G, B: Byte;
begin
 R := GetRValue(kolorek);
 G := GetGValue(kolorek);
 B := GetBValue(kolorek);
 if r <255 then R := round(R*15/100)+217;
 Result := RGB(R, G, B);
end;

//prawda, niepotrzebne, pozostalosc po porpzednim kodzie :)

Wesoledi a to per to po co? Czy ja niedowidze czy to zbedne moze jest?

//dopisane : no qrde ktos popsuł forum!!! Nie dosc ze gorzej chodzi po tej przerwie (na przyklad nie ma loga tylko pusty kwadrat) to jeszcze teraz przypisuje mi sie wbrew mej woli jakis obrazek odziedziczony po Wesoledim :(

Wesoledi ja nie mam nic do Twego obrazka, no ale to Twoj obrazek a nie mój ;)