| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Kak zgladit BitMap [D7, WinXP]
yura32 © (2005-10-19 23:07:00)vapros lamerskiy no vsyodki nujen otvet .
zaranie spasibo.
Fenik (2005-10-22 15:21:00) [1]Виноват, правильнее иметь один исходный растр и один изменяемый такого же размера, дабы не накапливать смазывание. Т.е. надо переделать так:
procedure BlurBmp(Src, Dest: TBitmap; Value: Byte);
var x, y, x1, x2, x3, i: Integer;
p, p1, p2, p3: pByteArray;
begin
for y := 0 to Src.Height - 1 do begin
p := Dest.ScanLine[y];
p1 := Src.ScanLine[Max(y - 1, 0)];
p2 := Src.ScanLine[y];
p3 := Src.ScanLine[Min(y + 1, Src.Height - 1)];
for x := 0 to Src.Width - 1 do begin
x1 := Max(x - 1, 0) * 3;
x2 := x * 3;
x3 := Min(x + 1, Src.Width - 1) * 3;
for i := 0 to 2 do begin
p[x2+i] := Trunc((p1[x1+i] + p1[x2+i] + p3[x3+i] +
p2[x1+i] + p2[x2+i]*Value + p2[x3+i] +
p3[x1+i] + p3[x2+i] + p3[x3+i]) / (Value + 8));
end;
end;
end;
end;
Fenik (2005-10-22 14:50:00) [2]> Ricks © (22.10.05 02:11) [10]
> а нельзя ли как-нибудь уменьшить степень сглаживания?
Побольше веса центральному пикселю, поменьше - окружающим.
Вот например:
procedure BlurBmp(Bmp: TBitmap; Value: Byte);
var x, y, x1, x2, x3, n, i: Integer;
p1, p2, p3: pByteArray;
begin
Bmp.PixelFormat := pf24Bit;
n := Value + 8;
for y := 0 to Bmp.Height - 1 do begin
p1 := Bmp.ScanLine[Max(y - 1, 0)];
p2 := Bmp.ScanLine[y];
p3 := Bmp.ScanLine[Min(y + 1, Bmp.Height - 1)];
for x := 0 to Bmp.Width - 1 do begin
x1 := Max(x - 1, 0) * 3;
x2 := x * 3;
x3 := Min(x + 1, Bmp.Width - 1) * 3;
for i := 0 to 2 do begin
p2[x2+i] := Trunc((p1[x1+i] + p1[x2+i] + p3[x3+i] +
p2[x1+i] + p2[x2+i]*Value + p2[x3+i] +
p3[x1+i] + p3[x2+i] + p3[x3+i]) / (Value + 8));
end;
end;
end;
end;
Чем больше Value, тем слабее смазывание. При 150 уже почти незаметно. При 0 - максимум.
Можно, кстати, угловые пиксели не учитывать. тогда будет так:
p2[x2+i] := Trunc(( p1[x2+i] +
p2[x1+i] + p2[x2+i]*Value + p2[x3+i] +
p3[x2+i]) / (Value + 4));
Короче говоря, вся суть в весовых коэффициентах при усреднении с соседними пикселами. Можно, допустим, угловым ставить меньше, чем боковым. Можно брать радиус больше. Это обычный матричный фильтр. В редакторах он значится как пользовательский или заказной - User Defined Filter.
> Expl (22.10.05 10:54) [11]
> А можно как-то сгладить изображение, состоящее только из черных точек ( в моем случае рисованная стрелка), т.к. эти алгоритмы делают из нее одно большое черное пятно?
Я бы посоветовал рисовать стрелку в каком-нибудь граф.редакторе, который сам сглаживает линии.
Можно, конечно, поиграться с предложенной выше процедурой, но всё равно это будет хуже, чем можно сделать целенаправленным сглаживанием линий.
Expl (2005-10-22 10:54:00) [3]А можно как-то сгладить изображение, состоящее только из черных точек ( в моем случае рисованная стрелка), т.к. эти алгоритмы делают из нее одно большое черное пятно?
Ricks (2005-10-22 02:11:00) [4]
> Fenik
Твой пример равносилен этому (если bitmap задан как массив [в моем случае черно-белый]):
// считать что GetBMVal возвращает цвет в заданной точке.
procedure BlurMap( var HM : TByteMatrix; w, l : integer );
var x, z : Cardinal;
v : single;
begin
for z:=0 to pred(l) do
for x:=0 to pred(w) do begin
v:=0;
v:=v + GetBMVal( HM, w, l, x + 1, z - 1);
v:=v + GetBMVal( HM, w, l, x, z - 1);
v:=v + GetBMVal( HM, w, l, x - 1, z - 1);
v:=v + GetBMVal( HM, w, l, x - 1, z);
v:=v + GetBMVal( HM, w, l, x, z);
v:=v + GetBMVal( HM, w, l, x + 1, z);
v:=v + GetBMVal( HM, w, l, x + 1, z + 1);
v:=v + GetBMVal( HM, w, l, x, z + 1);
v:=v + GetBMVal( HM, w, l, x - 1, z + 1);
if v <> 0 then v:=v / 9;
HM[z, x]:=Round(v);
end;
end;
Теперь такой вопрос:
Приведенные выше процедуры сглаживают изображение довольно сильно, а нельзя ли как-нибудь уменьшить степень сглаживания?
Fenik (2005-10-22 01:04:00) [5]
procedure AntiAlias(Bitmap: TBitmap);
var x, y: Integer;
p0, p1, p2: pByteArray;
begin
Bitmap.PixelFormat := pf24Bit;
for y := 1 to Bitmap.Height - 2 do begin
p1 := Bitmap.ScanLine[y];
p0 := Bitmap.ScanLine[y - 1];
p2 := Bitmap.ScanLine[y + 1];
for x := 0 to Bitmap.Width - 2 do begin
p1[x*3] := (p0[x*3] +p2[x*3] +p1[(x-1)*3] +p1[(x+1)*3]) div 4;
p1[x*3+1] := (p0[x*3+1]+p2[x*3+1]+p1[(x-1)*3+1]+p1[(x+1)*3+1]) div 4;
p1[x*3+2] := (p0[x*3+2]+p2[x*3+2]+p1[(x-1)*3+2]+p1[(x+1)*3+2]) div 4;
end;
end;
end;
Expl (2005-10-21 23:58:00) [6]PZ. Помоги мне тоже с этим вопросом, если не затруднит. Заранее спасибо.
yura32 (2005-10-20 19:49:00) [7]PZ
spasibo imeno to shto mne nado bilo :)
PZ (2005-10-20 16:35:00) [8]Исходник отправил.
С уважением. PZ
yura32 (2005-10-20 16:17:00) [9]outwar@mail.ru
yura32 (2005-10-20 16:16:00) [10]PZ
otprav pls
PZ (2005-10-20 11:14:00) [11]У меня есть исходник. Если хотите, перешлю почтой.
ЮЮ (2005-10-20 04:06:00) [12]TBitMap по определению прямоуголный, так что никак, даже напильник не поможет.
З.Ы. Заранее извини. Каков вопрос, таков ответ
yura32 (2005-10-20 03:51:00) [13]4o ni kto ne znaet?
| |
