Всем мастерам привет! Помогите пожалуйста реализовать фильтр  Sphere в Delphi, как это сделано в Фотошопе. Необходимо в моей проге исказить изображение так же, как и там. То есть, изображение после преобразования будет уменьшено в масштабах при удалении от центра к краям, а в центре масштаб останется прежним (эффект "рыбий глаз", "оптическая линза"). Как это можно сделать?
P.S. Код для уменьшения/увеличения областей картинки в формате BMP у меня есть, осталось лишь разобраться с геометрией искажения.
Заранее всем благодарен)))

Проекция на сферу. Школьная геометрия.

Да, сферу-то я спроектировал, но вот как "вписать" изображение в эту спроектированную сферу? Разбиваю исходное изображение на множество квадратов, а затем каждый квадрат пытаюсь вписать в соответствующий элемент этой сферы. И тут начинается проблема с координатами. Может кто пытался что-нибудь подобное реализовать?

> Разбиваю исходное изображение на множество квадратов


Это еще зачем ?


> проблема с координатами


Какая ?

Для каждого пиксела нового изображения находишь координаты соотв. пиксела старого изображения.

Проблема еще в том, что это не просто сдвиг, наклон или поворот изображения. Здесь еще надо выполнить сжатие рисунка там, где это необходимо. Как тогда быть, если одному пикселу нового изображения будет соответствовать множество пикселей старого? Нужно получить такое
http://desksoft.ru/index.php?downloads=attachments&id=57

интерполяцию по окрестности делай

Спасибо, попытаюсь. Может чё-нить получится.

Благодарю!!! Весьма полезный пример)))