FMX DrawBitmap вращение

[ZBEP]

В FMX есть процедура:

TBitmap.Rotate(const Angle: Single);

Она, вращает непосредственно саму текстуру, создавая и перерисовывая TBitmap.

Если необходимо вращать объект, а не текстуру, то этот метод не подойдет, т.к. это затратно по ресурсам и главное медленно.

Процедуру вращения при отрисовке TBitmap я не нашел, поэтому написал вот такой, немного кривовастенький вариант.
(происходит "вращение" матрицы, без каких либо перерисовок TBitmap).

procedure DrawBitmapRotate(c:TCanvas; const ABitmap: TBitmap; const SrcRect, DstRect: TRectF; const AOpacity: Single; const HighSpeed: Boolean;a:Single);
var M,OldM:TMatrix;
pw,ph:single;
begin
  pw   := (DstRect.Right -DstRect.Left)/2;
  ph   := (DstRect.Bottom-DstRect.Top )/2;
  OldM := c.Matrix;
  m    := c.Matrix;
  m.m11:= cos(a-pi);
  m.m12:= sin(a-pi);
  m.m21:=-sin(a-pi);
  m.m22:= cos(a-pi);
  m.m31:= DstRect.Left+pw;
  m.m32:= DstRect.Top +ph;
  c.setmatrix(M);
  c.DrawBitmap(ABitmap,SrcRect,RectF(0-pw,0-ph,0+pw,0+ph),AOpacity,HighSpeed);
  c.setmatrix(OldM);
end;

Использование:

Angle:=70;//Угол вращения
DrawBitmapRotate(Layout.Canvas,Bitmap,RectF(0,0,500,500),RectF(500,500,1000,1000),1,True,Angle);

Может кому понадобится, хз.

П.с.
Для реализации задуманного меня этот метод полностью устраивает, но если вдруг кто-нибудь знает более правильное решение - поделитесь

[StriderX]

Синус и косинус одновременно вычисляются (одной инструкцией сопроцессору):

 Math.SinCos(a-pi, s, c);
 m.m11:= c;
 m.m12:= s;
 m.m21:=-s;
 m.m22:= c;

Так-то спички, но может есть другие места - может дать серьезное ускорение.

[ZBEP]

StriderX, спасибо, не знал.