Эллипс путем перемещения точки вокруг отрезка

[Dublin]

Здраствуйте,возникла еще одна проблема в реализации программы: дан отрезок, нужно вокруг него путем сдвига одной из его крайних точек на 1градус построить эллипс,где большая полуось-половина отрезка,а малая задается константой.
Дело в том что даже аналитически это не получается вычислить...

[mihali4]

http://dxdy.ru/topic8611.html

[Dublin]

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

[Kostia]

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

procedure TForm1.Ellipse(x1,y1,x2,y2: integer);
var
  a,rx,ry,x,y: real;
begin
  a:=0;
  rx:=(x2-x1)/2;
  ry:=(y2-y1)/2;
  x:=(x1+x2)/2;
  y:=(y1+y2)/2;
  repeat
    a:=a+0.1;
    Canvas.Pixels[round(cos(a)*rx+x),round(sin(a)*ry+y)]:=0;
  until a>=pi*2;
end;

Разобраться не сложно. Высчитал радиус по x и по y координате и крутим эллипс.

[Dublin]

А Вы проверяли в действии программу?
просто если использовать данный код но не рисует ничего,если рисовать не по пикселям а например через PolyLine то эллипс не наклонный