Вращение текста

[Penumbra]

на часах 3 ночи, что-то я тормозить стал..

поворачиваю текст на угол aAngle

Код: Выделить всё

Private Sub TextOutAngle(dc As Long, Fontname As String, x As Long, y As Long, aAngle, aSize As Long, txt As String)
Dim hFont, Fontold As Long
   If Len(txt) = 0 Then Exit Sub
   Call SetBkMode(dc, TRANSPARENT)
   hFont = CreateFont(-aSize, 0, aAngle * 10, 0, FW_NORMAL, 0, 0, 0, 1, 4, &H10, 2, 4, Fontname)
   Fontold = SelectObject(dc, hFont)
   Call TextOut(dc, x, y, (txt), Len(txt))
   Call SelectObject(dc, Fontold)
   Call Delet

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

[Mikle]

Берёшь вектор от верхнего левого угла с центру.
Рассчитываешь поворот этого вектора на нужный угол.
Вычитаешь из исходного вектора полученный.
Смещаешь текст после поворота на полученную величину.