Масштабирование изображение со сглаживанием

[Ustas]

Нужна процедура/ы масштабирование (увеличение и уменьшение) изображения с эффектом сглаживания. Можно не сильно навороченные, но рабочие.
Графические пакеты нежелательно.
Может есть у кого в закромах?

[pupsik]

Графические пакеты нежелательно.

почему? Да же если они кросс и работают быстро? Взять хотя бы aggpas....

[MysticCoder]

StretchBlt в винде есть. Только перед этим надо вродь параметры задать, чтоб сглаживало какие то.

[Ustas]

почему?

Там, зачастую, что бы воспользоваться одно процедурой, придется прикручивать половину пакета, не хочется громоздить...

StretchBlt в винде есть.

Не лучше чем CopyRect.

[Лекс Айрин]

Ustas, тебе что так, что этак придется прикручивать много лишнего. Если хочешь совсем уж минимального добавления кода, то тебе придется "порезать" добавляемый модуль. А это не такая уж тривиальная задача.

[MysticCoder]

Не лучше чем CopyRect.

CopyRect не масштабирует же.

SetStretchBltMode(hDC,HALFTONE);
StretchBlt(hDC,630,500,200,200, hDC, 0,0,400,400, SRCCOPY);

так попробуй, должно сглаживать.

[Ustas]

CopyRect не масштабирует же.

Масштабирует, причем можно вырезать и куски.

StretchBlt пробовал, ну может чуть лучше, хотя не факт и зависит от самой картинки и коэффициента мастабирования.

[Ism]

Может в bgrabitmap есть ?

[Mirage]

https://github.com/casteng/base/blob/dev/Base2D.pas
там есть функция ResizeImage(), которая берет кусок одного изображения и вставляет в кусок другого, применяя указанный фильтр.
При необходимости, сконвертит в RGBA формат. Но это можно вырезать, т.к. тащит еще одну функцию.
А так только простые типы из другого модуля используются.
Ну еще используется Garbage := CreateRefcountedContainer, что можно выкинуть и освобождать память вручную.

[Alexx2000]

Я пользуюсь вот этим модулем. Ничего лишнего.

[Ustas]

Я пользуюсь вот этим модулем. Ничего лишнего.

Прокомментируй последние два параметра: filter и fwidth

[Alexx2000]

filter - определяет какой фильтр использовать для масштабирования, возможные значения можно увидеть выше (SplineFilter, BellFilter и т.д.). fwidth - не разбирался что такое, просто взял дефолтное значение для выбранного фильтра из массива ResampleFilters. Пример использования:

Код: Выделить всё

Stretch(bmBitmap, Result, ResampleFilters[2].Filter, ResampleFilters[2].Width);

[Ustas]

Я пользуюсь вот этим модулем

Так, каким образом производиться масштабирование, как задается коэффициент масштабирования?

[Alexx2000]

В параметр "Dst" передается пустая картинка с требуемыми размерами.

[Ustas]

Alexx2000, спасибо, будем тестировать.
А также, спасибо всем, кто принял/примет участие...