Движение по эллипсу в delphi7

[GaLiof]

Здравствуйте.Интересует следующий вопрос: Как заставить картинку(компонент image) вращаться по эллипсу?(эммитация орбиты планеты). И ещё:как сделать, чтоб движение было более плавным? При маленьком значении таймера планета вращается слишком быстро, при большом как-бы кадрами...
Заранее спасибо

[Anatole]

Чтобы сделать движение более плавным уменш шаг с которым ты перерисовываеш картинку

[Levsha100]

x:=x0+cos(angle*pi/180)*r *kx;
y:=y0+sin(angle*pi/180)*r *ky;

[GaLiof]

for levsha100: что есть r и kx в уравнениях?
вот мой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, jpeg;

type
  Tform1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const centerx=500;
      centery=500;
      rad=600;

var
  form1: Tform1;
  angle:real;

implementation

{$R *.dfm}

procedure Tform1.FormCreate(Sender: TObject);
begin
form1.Color:=clblack;
angle:=0;
end;

procedure Tform1.Timer1Timer(Sender: TObject);
begin
image1.Left:=centerx+Round(rad*cos(angle));
image1.Top:=centery+Round(rad*sin(angle));
angle:=angle+pi/18;   //изменение угла. чем меньше, тем точнее
end;
procedure Tform1.Image1Click(Sender: TObject);
begin
ShowMessage('Земля - наш дом');
end;

end.

что надо изменить?
и по поводу уменьшения шага прорисовки: где его менять?

[Serge_Bliznykov]

ну у Вас же всё написано!

angle:=angle+pi/18;   //изменение угла. чем меньше, тем точнее
end;

замените на

angle:=angle+pi/180;   //изменение угла. чем меньше, тем точнее
end;

А у таймера интервал сделайте, например, 10

[GaLiof]

Я изменил, но почему-то планеты всёравно двигаются по кругу
Ещё вопрос: а возможно ли сделать орбиту планеты видимой? т.е. чтобы например по ходу своего движения, планета рисовала за собой линию...?
И по поводу интервала: а можно ли без потери планости движения заставить фигуры двигаться медленнее? а то при интервале=10 они прям ооочень быстро летят...

[Levsha100]

Вы математику учили?
r- радиус окружности
kx/ky-[0;1]- коэф. сжатия по осям.
можно еще поиграться с разностью углов в аргументах синуса/косинуса.

[GaLiof]

т.е. r я задаю как константу. а kx и ky как задаются? я прописал:
const
r=100;
x0=600;//как я понимаю, эти константы определяют центр
y0=600;
var
angle:real;
begin
angle:=0;
и затем в таймере вписал:
image1.left:=x0+cos(angle*pi/180)*r *kx;
image1.top:=y0+sin(angle*pi/180)*r *ky;
при интервате 10.
Куда вписываются kx и ky? И вообще, так ли это делается? Просто по формуле круга, я всё сделал довольно быстро...а вот с эллиптической орбитой чёто завис...

[Levsha100]

var
  Form2: TForm2;
   angle:real;
implementation

{$R *.dfm}

procedure TForm2.Timer1Timer(Sender: TObject);
var
x,y:integer;
begin
   angle:=angle+1;
   if angle>360 then  angle:=angle-360;
   {x:=Round(200+cos(angle*Pi/180)*150);
   y:=Round(200+sin(angle*Pi/180)*35);}
   x:=Round(200+cos(angle*Pi/180)*150);
   y:=Round(200+cos((angle+120)*Pi/180)*150);
   {Image1.Canvas.FillRect(Rect(0,0,400,400));}
   Image1.Canvas.Ellipse(x+10,y+10,x-10,y-10);
end;

[Serge_Bliznykov]

GaLiof
так пойдёт?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   // вычисляем координаты следа...
   x:=Round(200+cos((angle-12)*Pi/180)*150);
   y:=Round(200+cos((angle-12+120)*Pi/180)*150);
   Form1.Canvas.Ellipse(x+1,y+1,x-1,y-1);

   angle:=angle+1;
   if angle>360 then  angle:=angle-360;
   x:=Round(200+cos(angle*Pi/180)*150);
   y:=Round(200+cos((angle+120)*Pi/180)*150);
   {Image1.Canvas.FillRect(Rect(0,0,400,400)100
   Image1.Canvas.Ellipse(x+10,y+10,x-10,y-10);}
   Image1.Left := x-(Image1.Width div 2);
   Image1.Top := y-(Image1.Height div 2);
end;

p.s. а скоростью можно рулить через интервал таймера. поставьте 200 или 300 - будет медленно, поставьте 10 - будет быстро...