Поворот за мышью???

[Kostia]

У меня возникла такая проблема:
Я научился поворачивать картинку(Поверхность DirectDraw) на заданный угол, а теперь мне нужно сделать так чтобы картинка поворачивалась за мышью. Помогите пажалуста.

[B_N]

а арктангенс((мышь.x - центркартинки.x)/(мышь.y - центркартинки.y)) ?

[Kostia]

B_N
Спасибо!

У меня есть еще одна проблема! Дело в том, что когда изображение поворачивается, то появляются пустоты, я вроде бы придумал как от них избавиться, но качество от этого сильно страдает.

Вот переделанный пример на обычную канву:

[B_N]

Сообщение от Kostia

У меня есть еще одна проблема! Дело в том, что когда изображение поворачивается, то появляются пустоты, я вроде бы придумал как от них избавиться, но качество от этого сильно страдает.

По-моему там просто достаточно bm1 побольше размером сделать. Или, лучше, сделать еще один bitmap (больше размером), и в него переносить из bm1 повернутые точки, а bm1 вообще не трогать, использовать как оригинал.
-----------
Да, вот еще, прочитал первый пост еще раз, где там DirectDraw-то?

[Kostia]

Да, вот еще, прочитал первый пост еще раз, где там DirectDraw-то?

Я переделал под обычную канву(GDI).

А DirectDraw, я пишу модуль для работы с 2d графикой средствами DirectDraw.

[Kostia]

Вот я немного подправил, но появились новые глюки при быстром повороте!

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  for y := 0 to bm.Height - 1 do
    begin
      for x := 0 to bm.Width - 1 do
      begin
        r := sqrt(sqr(x - xo) + sqr(y - yo));
        SinCos(a + arctan2((y - yo), (x - xo)), s, c);
        bm1.Canvas.Pixels[round(xo + r * c),
        round(yo + r * s)]:=m[x,y];
      end;
    end;
  a:=-(ArcTan2((xm-(bm1.Width/2+200)),(ym-(bm1.Height/2+200)))+pi);
  kadr.Canvas.Draw(200,200,bm1);
  form1.Canvas.Draw(0,0,kadr);
  kadr.Canvas.FillRect(rect(0,0,kadr.Width,kadr.Height));
  fps:=fps+1;
end;

[B_N]

Какого рода глюки? Мне чтобы это выяснить, придется дельфт ставить

[Kostia]

При быстром повороте, появляются шумы, а если крутить потихоньку, то все нормально.

[mutabor]

С пустотами справился? На всякий случай: чтобы не было пустот при повороте нужно не переносить каждую точку из исходного, а заполнять каждую точку в конечном (с поворотом) изображении. Улавливаешь разницу?
А шумы по идее раз они есть, значит ты их рисуешь. Пересмотри код отрисовки.

Единственное непонятно почему только при быстром, если это артефакты то должны быть всегда, алгоритм ведь один и тот же.

[Kostia]

mutabor Спасибо! Я уже со всем справился, скоро на свет появится программа показывающая возможности моего модуля!(2-3 недели примерно)