Форум: "Начинающим";
Текущий архив: 2012.02.19;
Скачать: [xml.tar.bz2];
ВнизУлучшение качества картинки Найти похожие ветки
← →
Laguna © (2011-11-10 17:49) [0]Стоит задача распечатать картинку, находящуюся в Timage. Каким образом можно улучшить качество картинки перед выводом на печать, чтобы текст был более менее читабельным? Вот к примеру есть некий простенький графический редактор, в котором есть функция под названием гистограмма. Возможно ли самому реализовать такой эффект корретировки качества? На картинке показана часть изображения, присылаемая клиентами по почте.
http://s017.radikal.ru/i425/1111/7a/7b3843302e03.jpg
Как видете качество не ахти. Загружаю гистограмму, сдвигаю ползунки вправо и качество улучшается
http://s40.radikal.ru/i089/1111/07/4c25b6a1e9e4.jpg
Вот хотелось бы нечто подобное применить в своем коде. Подскажите направление где искать решение.
Подскажите направление поиска решения
← →
clickmaker © (2011-11-10 18:00) [1]http://www.rsdn.ru/article/Gdi/gdi11_1.xml
← →
Laguna © (2011-11-10 19:58) [2]
> clickmaker © (10.11.11 18:00) [1]
Большое спасибо. Вот только Си... Но попытаюсь разобраться.
← →
Омлет © (2011-11-10 20:12) [3]http://en.wikipedia.org/wiki/Histogram_equalization
← →
Омлет © (2011-11-10 20:17) [4]тут на Delphi
http://www.efg2.com/Lab/ImageProcessing/HistoStretchGrays.htm
← →
Pavia © (2011-11-10 20:33) [5]http://www.efg2.com/Lab/ImageProcessing/HistoStretchGrays.htm
http://sources.ru/magazine/0805/paint.html
С гистограммами работать просто.
SetLength(a,256);
a[]:=0; обнуляем
Для всех пикселей изображения
begin
color:=Pixel(x,y); - тут предполагается что картинка серая 8 бит на пиксель.
Inc(a[color]);
end;
Теперь в "a" гистограмма.
Трансформируешь гистограмму.
Заведём массив b
SetLength(b,256);
b[i]:=i;
При трансформации гистограммы меняешь b.
Вывод делается просто
Для всех пикселей изображения
begin
color:=Pixel(x,y); - тут предполагается что картинка серая 8 бит на пиксель.
newcolor=b[color];
end;
Если будешь повышать контрастность, то совет ещё сделать умное размытие, которое не затрагивает границы.
← →
Laguna © (2011-11-10 20:35) [6]>Омлет
Огромаднейшее спасибо. То что нужно. Буду разбираться.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.02.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c