Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Вниз

Быстрый ресамплинг изображений   Найти похожие ветки 

 
badevlad ©   (2007-03-07 11:14) [0]

Кто какие знает алгоритмы быстрого ресамплинга битмапов? Я нашел несколько довольно неплохо работающих функций, но метод Lanczos, который у меня есть, работает очень медленно и оставляет артефакты (при небольшой степени сжатия на однотонном изображении появляются слабо видимые «клеточки»). Более быстрые и менее аккуратные алгоритмы страдают артефактами еще сильнее (ярко выраженные «клеточки»). Хорошо работает только билинейный метод, но этого мало.

Кто с этим сталкивался и может подсказать безглючные и быстро работающие алгоритмы? Нужен код на Delphi, чем больше вариантов, тем лучше.


 
Sapersky   (2007-03-07 14:01) [1]

Вы определитесь всё-таки, быстро нужно или качественно.
Если, например, требуется реалтайм, то вряд ли получится применить что-либо сложнее билинейной фильтрации. Хотя это зависит от размера картинок, предполагаемых системных требований и т.п.
Практически любые типы фильтров есть в FastLIB:
http://sourceforge.net/project/showfiles.php?group_id=173551
Артефактов (кроме тех, что присущи низкокачественным фильтрам) не замечал.
Если надо, у меня есть оптимизированный вариант сложных фильтров (SmoothResize), раза в 2 быстрее.


 
Сотрудник деканата   (2007-03-07 17:39) [2]

> Sapersky   (07.03.07 14:01) [1]
> Если надо, у меня есть оптимизированный вариант сложных
> фильтров (SmoothResize), раза в 2 быстрее.


Очень надо! Буду благодарен, если Вы поделитесь столь ценной вещью!


 
Sapersky   (2007-03-07 20:05) [3]

http://slil.ru/24043787


 
Сотрудник деканата   (2007-03-07 20:58) [4]

Круто! Спасибо большое.

А вот например код

     w := pw.w;
     If ForceOneCont then begin
       Inc(zr, w shr 1); Inc(zg, w shr 1); Inc(zb, w shr 1);
.....
....
       zr := (zr + (w shr 1)) div w;
       zg := (zg + (w shr 1)) div w;
       zb := (zb + (w shr 1)) div w;


почему бы сразу не присваивать

w := pw.w shr 1  ?

Или оптимизатор в Delphi сам с этим справляется?


 
Сотрудник деканата   (2007-03-07 21:00) [5]

Т.е. завести еще одну переменную

w := pw.w;
w1 := w shr 1;


и вместо w shr 1 использовать w1.


 
Sapersky   (2007-03-09 12:45) [6]

Оптимизатор справляется, хотя я на это не надеялся - просто shr сравнительно быстрая операция, и влияние двух лишних команд будет заметно только на очень простом коде, но не в том нагромождении, которое имеется в DoFilter.
Кстати, ускорение в основном достигнуто именно за счёт замены деления (div) сдвигом (можно переключиться на старый метод - ForceOneCont = False и почувствовать разницу) и использованием указателя (c := @Src.Pixels24[pw.pos, x];) вместо переменной.



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2008.02.10;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.043 c
2-1200644445
DCeres
2008-01-18 11:20
2008.02.10
рисованиям текста


15-1199978159
vajo
2008-01-10 18:15
2008.02.10
Как подключить интернет в Win Vista Busines?


9-1167301773
maximum
2006-12-28 13:29
2008.02.10
Меню для игры


15-1199797805
ruru
2008-01-08 16:10
2008.02.10
Помогите в написание программы.Или если не трудно напишите ее!


15-1200057682
Sairex
2008-01-11 16:21
2008.02.10
Срочно нужна помощь По написаню макроса в Exel





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский