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

[ironbeef]

доброго всем времени суток! Очень нужна помощь с прогой.
Нужно что бы по таймеру в пределах окружности определенного радиуса двигалась прямая.
Т.е. x0,y0 (центр окружности) - были бы статичным, а x,y (координаты на окружности) -
изменялись бы в завиимости от градуса (На примере - третье звено). Начальное значение -
45 градусов.

Вот код. посмотрите пожалуйста, где зафэлил.

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
 Timer1: TTimer;
 Edit1: TEdit;
 procedure Timer1Timer(Sender: TObject);
 procedure FormCreate(Sender: TObject);
 private
 public
 end;

var
 Form1: TForm1;
 n: real;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject); //интервал таймера 300ms
var R: integer;
 x: integer;
 y: integer;
 x0: integer;
 y0: integer;
 m: integer;
begin
R:=100; //радиус
n:=n+1; //значение градусов по таймеру увеличиватся на 1
m:=Round(180/n); //перевод в радианы

x0:=200; //координата x центра
y0:=200; //координата y центра

x:=Round(x0+R*Cos(pi/m)); //параметрическое уравнение для x
y:=Round(y0+R*Sin(pi/m)); //параметрическое уравнение для y

Form1.Canvas.MoveTo(x0, y0); //центр окружности
Form1.Canvas.LineTo(X, Y); //координаты x,y (докуда рисовать линию)

Edit1.Text:=FloatToStr(n)+' °'; //текущее значение градусов
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
n:=45; //начальное значение 45 градусов
end;

И еще вопрос - как очистить экран от предыдущих canvas'ов?
Заранее всем спасибо.

Вот пример - http://i065.radikal.ru/1104/56/3ddff0c969a7.jpg



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[mss]

m:=Round(180/n); //перевод в радианы

На то есть ф-ция DegToRad();

m := DegToRad(n);
..
x:=Round(x0+R*Cos(m)); //параметр ф-ции Cos - в радианах !!
y:=Round(y0+R*Sin(m)); //тоже самое !!

как очистить экран от предыдущих canvas'ов?

Form1.Canvas.FillRect(Form1.ClientR ect);

[Serge_Bliznykov]

И еще вопрос - как очистить экран от предыдущих canvas'ов?

к радикальному и простому решению mss
могу добавить ещё:
обычно анимацию производят следующим образом.
выводят объект по координатам X,Y
выжидают паузу.
стирают объект по координатам X,Y (например, выводят тот же объект, но цветом формы.
Изменяют координаты X,Y (по нужному закону движения)
переход на начало цикла.

в случае использования процедуры на таймере вначале стирайте объект.
потом изменяйте X,Y
потом выводите (прорисовывайте) объект.


p.s. а анимация прикольная

[ironbeef]

Сообщение от mss

На то есть ф-ция DegToRad();

Спасибо!!!!! не знал