Черные поля при вращении изображения(2D графика Delphi)

[BDA]

А ну-ка попробуйте после Вашего цикла:

bm1.Canvas.Brush.Color := bm.Canvas.pixels[0, 0];
bm1.Canvas.floodfill(0, 0, bm.Canvas.pixels[0, 0],fsBorder);

[Xaker_Two]

Попытка хорошая но сам объект тоже попал под юрисдикцию этой процедурки( щас попробую поплясать с бубном

...
все нашаманил) просто увеличив отступ самого объекта от края картинки и полностью залив этот отступ "прозрачностью" ведь эта функция FloodFill если она не найдет разрыва в "прозрачном контуре" то и то что внутри него тоже не тронет, это напоминает инструмент "Заливка" в Paint от Win 95))

ещё раз спс

[Xaker_Two]

кстати подумав так я решил запилить исходный битмап в массив тем самым ускорив работу проги но при этом пришлось ввести условие на отсечение значений пикселя превышающих(или пренижающих) оригинальный размер и тем самым я избавился от закраски черным теперь дабы не было "белизны" можно в самом начале залить промежуточный битмап прозрачностью.
Это так к сведению мало ли пригодится кому

Включил прозрачность и получил немного неожиданный хотя вполне закономерный результат