Движение по окружности

[Mickle]

Привет всем!
Мужики выручте
Используя компонент TShape и компонент TTimer как спомощь вот этого примера
var ang, //текущее положение в радианах
spd, //скорость (на сколько радиан передвигать каждый раз)
rad: Double; //радиус окружности
cx, cy, //координаты центра окр.
x, y: Integer; //текущие коорд. точки

procedure TForm1.Timer1_Timer(Sender: TObject);
begin
Canvas.Pixels[x, y]:=clBtnFace;
ang:=ang + spd;
x:=cx + Round(Cos(ang) * rad);
y:=cy + Round(Sin(ang) * rad);
Canvas.Pixels[x, y]:=clBlack;
end;
можно заставить один Shape вращатся вокруг Второго Shapa
используя Timer
Заранее благодарю

[Сильванович Михаил]

Определяем координаты оси вращения:

var k: integer;
if Shape1.Width>Shape1.Height then k:=Shape1.Width else k:=Shape1.Height;
cx:=Shape1.Left+Shape1.Width div 2;
cy:=Shape1.Top+Shape1.Height div 2;
k:=k div 2;

Процедура цикла вращения:

procedure TForm1.Timer1_Timer(Sender: TObject);
begin
 ang:=ang + spd;
 Shape2.Left:=cx + Round(Cos(ang) * k);
 Shape2.Top:=cy + Round(Sin(ang) * k);
end;

[Mickle]

Красавчик Михаил все получилось, а ты не мог бы подсказать как вот в этом примере сделать так чтобы Shape перемещался плавно, а то Shape через большой интервал перемещается
Procedure Dvij;
Begin
if Form1.Shape1.Width>Form1.Shape1.Hei ght then
k:=Form1.Shape1.Width
else
k:=Form1.Shape1.Height;
cx:=Form1.Shape1.Left+Form1.Shape1. Width div 2;
cy:=Form1.Shape1.Top+Form1.Shape1.H eight div 2;
//k:=k div 2;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Dvij;
ang:=ang + spd;
Shape2.Left:=cx + Round(Cos(ang) * k);
Shape2.Top:=cy + Round(Sin(ang) * k);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ang:=10;
spd:=50;
end;
end.
Я пока ещё новичек в программирование
Выручи!
Зарание Благодарен.

[Сильванович Михаил]

Ну, ты двинул!

spd:=50

Сам подумай, если угол исчисляется в радианах, то 50 приблизительно pi*16 (16*180 градусов - поворот за 1 раз). Т.е. бери spd:=0.15 и все будет "ок".
По поводу интервала - у TTimer есть свойство определяющее промежуток времени через который будет повторяться заданная
процедура - ставь 50-300 мс - и будет тебе счастье!