跪求，已知一任意椭圆的圆心坐标和长短轴距离，如何绘制该旋转椭圆？

Question

已知一任意椭圆的圆心坐标和长短轴距离，如何绘制该旋转椭圆？网上找N久了，只有VC代码的，功力不够，一直改不好，大家帮忙啊！！！
-----思路是算出13个点坐标，然后用贝塞尔曲线拟合椭圆，帮帮忙啊，有完整代码最好，分不够再开贴加，谢谢啦

Answer 1

-------自己顶，找了个以前的帖子-------------
const   
      r:   Double   =   0.2761423749154;　   
    
  Center为椭圆中心、mb为短半轴、ma为长半轴   
  得到１３个点   
      P[0].x   :=   Center.x;   
      P[0].y   :=   Center.y   +   mb;   
      P[1].x   :=   Center.x   +   2   *   ma   *   r;   
      P[1].y   :=   Center.y   +   mb;   
      P[2].x   :=   Center.x   +   ma;   
      P[2].y   :=   Center.y   +   2   *   mb   *   r;   
      P[3].x   :=   Center.x   +   ma;   
      P[3].y   :=   Center.y;   
      P[4].x   :=   Center.x   +   ma;   
      P[4].y   :=   Center.y   -   2   *   mb   *   r;   
      P[5].x   :=   Center.x   +   2   *   ma   *   r;   
      P[5].y   :=   Center.y   -   mb;   
      P[6].x   :=   Center.x;   
      P[6].y   :=   Center.y   -   mb;   
      P[7].x   :=   Center.x   -   2   *   ma   *   r;   
      P[7].y   :=   Center.y   -   mb;   
      P[8].x   :=   Center.x   -   ma;   
      P[8].y   :=   Center.y   -   2   *   mb   *   r;   
      P[9].x   :=   Center.x   -   ma;   
      P[9].y   :=   Center.y;   
      P[10].x   :=   Center.x   -   ma;   
      P[10].y   :=   Center.y   +   2   *   mb   *   r;   
      P[11].x   :=   Center.x   -   2   *   ma   *   r;   
      P[11].y   :=   Center.y   +   mb;   
      P[12].x   :=   Center.x;   
      P[12].y   :=   Center.y   +   mb;   
    
  旋转，旋转中心是Center,   旋转角的Cos,Sin值mCosAlpha,   mSinAlpha   
      for   i   :=   0   to   12   do   
      begin   
          X   :=   P[i].x   -   Center.x;   
          Y   :=   P[i].y   -   Center.y;   
    
          P[i].x   :=   X   *   CosAlpha   -   Y   *   SinAlpha   +   Center.x;   
          P[i].y   :=   X   *   SinAlpha   +   Y   *   CosAlpha   +   Center.y;   
      end;   
    
      画Bezier曲线   
      ThisDxf.DxfCanvas.PolyBezier(P);   
-----拟合不出来啊，而且PolyBezier（）都是integer的类型参数，怎么办？？？

Answer 2

var
  points : array [0.. 360] of TPoint;
  i: Integer;
  X, Y, A, B: Integer;
begin
  X:= Self.Width div 2;
  Y:= Self.Height div 2;
  A:= 100;
  B:= 40;
  for i:= 0 to 360 do begin
    points[i].X:= Round(A * Cos(PI / 180 * i)) + X;
    points[i].Y:= Round(B * Sin(PI / 180 * i)) + Y;
  end;
  Canvas.Polyline(points);
end;

Answer 3

Canvas.Ellipse(100, 200 ,300 ,250);

Answer 4

uses Math;procedure TForm1.Button1Click(Sender: TObject);
var
  points : array [0.. 360] of TPoint;
  i,j: Integer;
  X, Y, A, B: Integer;
  xlen,ylen,len,angle:Extended;
begin
  X:= Self.Width div 2;
  Y:= Self.Height div 2;
  A:= 100;
  B:= 40;
  j:=0;
  while j<360 do
  begin
    for i:= 0 to 360 do begin
      xlen:=A * Cos(PI / 180 * i);
      ylen:=B * Sin(PI / 180 * i);
      len:=sqrt(xlen*xlen+ylen*ylen);
      angle:=ArcSin(ylen/len)+ PI / 180 * j;
      xlen:=len*Cos(angle);
      ylen:=len*Sin(angle);
      points[i].X:= Round(xlen) + X;
      points[i].Y:= Round(ylen) + Y;
    end;
    Canvas.Polyline(points);
    inc(j,45);//旋转递增角度
  end;
end;

Answer 5

结果是间隔45°角的4个椭圆（X, Y：为中心 A, B为长短轴）