Как качественно перевести цветную картинку в черно-белую

← →
dmitriyk (2002-01-31 03:22) [0]

Народ! Может кто знает как перевести картинку в черно-белую, при этом не теряя качества. Пробовал процедуру, которая есть в этом форуме, там где использованы стандартные коэыициенты перевода, применяемые на TV, но она в итоге, сильно искажает картинку.
Може кто поможет готовым кодом. буду признателен.

← →
Фэ (2002-01-31 10:14) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1012350234&n=7

← →
Yuraz (2002-01-31 10:19) [2]

var p: TColor;
p1: byte;

{...}

for x := 0 to Image1.Width-1 do
for y := 0 to Image1.Height-1 do
begin
p := Image1.Canvas.pixels[x, y];
p1 := (GetRValue(p)+GetGValue(p)+GetBValue(p)) div 3;
Image1.Canvas.pixels[x, y] := RGB(p1, p1, p1);
end;

← →
dmitriyk (2002-02-01 03:22) [3]

Yuraz !

К сожалению ваша процедурка после преобразования, тоже портит картинку. Но всеравно, большое спасибо всем.

← →
VuDZ (2002-02-01 04:55) [4]

for( int i=0; i < nColors; i++) { long lSquareSum = bmInfo.bmiColors[i].rgbRed * bmInfo.bmiColors[i].rgbRed + bmInfo.bmiColors[i].rgbGreen * bmInfo.bmiColors[i].rgbGreen + bmInfo.bmiColors[i].rgbBlue * bmInfo.bmiColors[i].rgbBlue; int nGray = (int)sqrt(((double)lSquareSum)/3); pLP->palPalEntry[i].peRed = nGray; pLP->palPalEntry[i].peGreen = nGray; pLP->palPalEntry[i].peBlue = nGray; pLP->palPalEntry[i].peFlags = 0; } http://www.codeguru.com/bitmap/grayscale.shtml http://www.codeguru.com/bitmap/index.shtml

← →
Фэ (2002-02-01 09:47) [5]

>dmitriyk
Обрати еще раз внимание на гамма-коррекцию.
А вот тебе пример софта и сконвертированных изображений
ftp://ftp.pi8plus.ru/download/math/image/togray

25,872 d3.jpg метод RGB/3
27,046 gamma1_5.jpg Гамма-коррекция 1.5
27,068 gamma2_0.jpg -"- 2.0
26,703 gamma2_5.jpg -"- 2.5
29,734 test.jpg Тестовая картинка
235,008 togray.exe Тест
25,928 tv.jpg Метод TV

ВОпросы остануться - отвечу.

← →
Фэ (2002-02-01 09:48) [6]

Sorry
ftp://ftp.pi8plus.ru/download/math/images/togray

← →
Фэ (2002-02-01 09:50) [7]

Да что за черт
ftp://ftp.pi8plus.ru/pub/download/math/images/togray/

← →
dmitriyk (2002-02-02 04:25) [8]

>Фэ, VuDZ

Спасибо большое. Вопросов пока нет.

← →
Donal_Graeme (2002-02-03 20:59) [9]

procedure ToGray(Bm1 : TBitmap; BR : TBitmap);
var I, J, K : Integer;
R, G, B, C : Byte;
L1, L2 : PByteArray;
begin
If Bm1.PixelFormat <> pf24bit then Bm1.PixelFormat := pf24bit;
BR.Width := Bm1.Width;
BR.Height := Bm1.Height;
BR.PixelFormat := pf24bit;
For I := 0 to Bm1.Height -1 do
begin
L1 := Bm1.ScanLine [I];
L2 := BR.ScanLine [I];
For J := 0 to Bm1.Width -1 do
begin
K := J*3;
B := L1[K];
Inc(K);
G := L1[K];
Inc(K);
R := L1[K];
C := (299*R +587*G +114*B) div 1000;
L2[K] := C;
Dec(K);
L2[K] := C;
Dec(K);
L2[K] := C;
end;
end;
end;

Как качественно перевести цветную картинку в черно-белую Найти похожие ветки