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

[Xaker_Two]

Всем зрасьте) говорю сразу поиском не пользовался а по сему не знаю была такая тема или нет!!!
Вобщем есть некая картинка, которая вращается в окне на заданное количество гадусов, все вроде хорошо и картинка вращается и не лагает особо НО есть черные поля! Дабы видеть всю картинку я задал размеры второго битмапа в который сливается уже повернутая картинка как радиус будущего круга(просто нашёл длину диагонали своей картинки) и отцентровал её и в тех местах где нет какого либо цвета все рисуется мрачным черным(.
Так вот вопрос в том и заключается как эту черноту убрать(ну а в идеале заменить на нужный цвет)?!
Я не спрашиваю методы задания цвета пикселю я спрашиваю как избавиться от черноты НЕ ПРИБЕГАЯ к методам сравнения(хотя смотря какого может я чего-то не знаю) т.к. на самой картинке тоже может быть черный цвет...

вот код поворота

procedure TForm1.Timer1Timer(Sender: TObject);
var
x, y: integer;
r: single;
s, c: extended;
begin
ct:=ct+1;
for y := -my to bm1.Height - 1 do
  begin
  for x := -mx to bm1.Width - 1 do
    begin
    r := sqrt(sqr(x - xo) + sqr(y - yo));
    SinCos(Angle + arctan2((y - yo), (x - xo)), s, c);
    bm1.Canvas.Pixels[x+mx,y+my]:=bm.Canvas.Pixels[round(xo + r * c), round(yo + r * s)];
    end;
  end;
Form1.Canvas.Draw(100, 100, bm1);
Form1.Caption:=VarToStr(Angle);
Angle:= Angle + AngleValue;
if ct>StrToFloat(Edit2.Text) then Timer1.Enabled:=False;
if ct>StrToFloat(Edit2.Text) then ct:=0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ct:=0;
Angle:=0;
AngleValue:=(PI/180)*StrToFloat(Edit1.Text);

bm := TBitMap.Create;
bm.LoadFromFile('la2(old).bmp');

Sbm1:=Round(sqrt(sqr(bm.Width) + sqr(bm.Height)));

bm1 := TBitMap.Create;
bm1.Width:=Sbm1;
bm1.Height:=Sbm1;

xo:=bm.Width div 2;
yo:=bm.Height div 2;
mx:=(bm1.Width - bm.Width) div 2;
my:=(bm1.Height - bm.Height) div 2;
end;

ну и картинка с чернотой

[phomm]

А залить всё перед отрисовкой цветом фона пробовали ?

BackColor := bm.canvas.pixels[0, 0]; // в формкреэйт
...
Form1.Canvas.Brush.Color := BackColor;
Form1.Canvas.Pen.Color := BackColor;
Form1.Canvas.Fillrect(Bounds(100, 100, bml.Width, bml.Height));

[Xaker_Two]

разумеется вот только толку от этого ноль т.к. перерисовка проходится по всем пикселям второго битмапа и присваивает им цвет заново(кстати из-за этого начало мигать + мне не надо заливать цветом второго битмапа а надо тем же розовым который на фоне у самолета)

for y := -my to bm1.Height - 1 do
  begin
  for x := -mx to bm1.Width - 1 do

[BDA]

function pix(var bm: tbitmap; x, y: integer): TColor;
begin
  if (x < 0) or (y < 0) or (x >= bm.Width) or (y >= bm.Height) then
    result := bm.Canvas.pixels[0, 0]
  else
    result := bm.Canvas.pixels[x, y];
end;

...

bm1.Canvas.Pixels[x+mx,y+my]:=pix(bm,round(xo + r * c),round(yo + r * s));

Скорость работы будет удручать

[Rin]

А почему бы не наложить каст "floodfill" на тьму?

[Xaker_Two]

Rin Вопрос что это?? я не знаю что это и как этим пользоваться

[ZX Spectrum-128]

А установить розовый цвет как transparent?

[Rin]

Щелкай меня полностью. Переходишь по линку, CTRL+F, вводишь "Floodfill".

[Xaker_Two]

Rin пасибки ценная инфа но как я уже написал в самом вопросе может получиться так что само изображение будет содержать заданный цвет...(

[Xaker_Two]

BDA пасибо работает корректно но скорость реально удручает особенно на слабых машинках