Как можно нарисовать элипс под углом?
его оси я рисовал так:
где с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)));
|
|