Вращение элипса

[lacost]

Как можно нарисовать элипс под углом?

его оси я рисовал так:
где с1, с2 - его центр, h,h1 - длина большой и малой оси, al - угол относительно ОХ

  Form.Canvas.MoveTo(c1,c2);
  form.Canvas.LineTo(c1+Round(h*cos(al)),c2-Round(h*sin(al)));

  Form.Canvas.MoveTo(c1,c2);
  form.Canvas.LineTo(c1-Round(h*cos(al)),c2+Round(h*sin(al)));

  x:=90*Pi/180;

  Form.Canvas.MoveTo(c1,c2);
  Form.Canvas.LineTo(c1+Round(h1*cos(al+x)),c2+Round(h1*sin(al-x)));

  Form.Canvas.MoveTo(c1,c2);
  Form.Canvas.LineTo(c1-Round(h1*cos(al+x)),c2-Round(h1*sin(al-x)));

[Zeraim]

А procedure Ellipse(X1, Y1, X2, Y2: Integer); overload;
Не проще ? Сиди себе углы по форме перемещай вот тебе и вращение.
Или тебе нужно построение под конкретным углом ?

[Arigato]

Zeraim
Это не то.
Не знаю, есть ли специальная функция для этого. Но есть алгоритм рисования элипса. Берём этот алгоритм и делаем поворот системы координат на нужный угол. Вот и всё.

[alexBlack]

2lacost
Как-то была тема про SetWorldTransform. Таким же способом можно повернуть и элипс.