Фильтрация шумов в растровых изображениях методами усредняющего, порогового и медианного фильтров
Категория реферата: Рефераты по информатике, программированию
Теги реферата: контрольная 2, доклад по истории на тему
Добавил(а) на сайт: Рыжанов.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
// Запоминаем значение пиксела на котором щелкнули мышкой
TargetPixel := pByteArray(Image1.Picture.Bitmap.ScanLine[Y])^[X];
YOffset := 0;
// Пока число замен не станет равным 0 двигаемся вверх repeat
ChangeCount := 0;
if Y - YOffset < 0 then
Break;
// Берем линию
CurrentLine := Image1.Picture.Bitmap.ScanLine[Y - YOffset];
PrevLine := Image1.Picture.Bitmap.ScanLine[Y - YOffset - 1]; if PrevLine[X] TargetPixel then
Break;
XOffset := 0;
// Заполняем влево ее пока не дойдем до границы объекта if X - 1 >= 0 then while CurrentLine^[X - XOffset - 1] = TargetPixel do begin
CurrentLine^[X - XOffset] := 255;
Inc(XOffset);
Inc(ChangeCount); if X - XOffset - 1 < 0 then
Break; end;
XOffset := 0;
// Заполняем вправо ее пока не дойдем до границы объекта if X + 1 < Image1.Picture.Bitmap.Width - 1 then while CurrentLine^[X + XOffset + 1] = TargetPixel do begin
CurrentLine^[X + XOffset] := 255;
Inc(XOffset);
Inc(ChangeCount); if X + XOffset + 1 > Image1.Picture.Bitmap.Width - 1 then
Break; end;
Inc(YOffset); until ChangeCount = 0;
YOffset := 1;
Рекомендуем скачать другие рефераты по теме: экзамены, реферат деловой.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата