Анимация прямой

[NecroSlider]

Есть прямая, по середине формы, как заставить ее вращаться от крайне левого положения до крайне правого и обратно?
Как-то вот так:
_|_

[zetrix]

Одна точка прямой не подвижна (x0 y0), другая движется по окружности
x:=R*Cos(t)+dx;
y:=R*Sin(t)+dy;
dx, dy - смещение (чтоб по центру формы были), например dx=300; dy=300;
R - длинна прямой
Всё это делаем в цикле (t меняем от 3.14 до 0 и обратно - два цикла for друг за другом, и оба в while например - т.е. пробегаем туда, потом обратно и повторяем)

[NecroSlider]

zetrix, я пользовался таким способом чтобы делать вращение фигур. Если тебе не трудно, то не мог бы ты поподробнее расписать, а то у меня не получается, желательно через таймер это делать, так как я потом буду использовать закон движения, но пока мне нужно просто чтобы прямая крутилась туда-сюда, а то рисуется чего-то непонятное.

[zetrix]

На форме расположи таймер: Interval=1
Цвет формы: clWhite
ну и собственно код:

unit Unit1;

interface

uses
  Windows, Classes, Graphics, Controls, Forms, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  t, dt, tempx, tempy: real;

const dx=150;
      dy=150;
      R=50;
      
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:real;
begin
canvas.Pen.Color:=clWhite;
canvas.MoveTo(dx,dy);
canvas.LineTo(round(tempx),round(tempy));
if (t>3.18)or(t<0) then dt:=-dt;
t:=t+dt;
x:=R*cos(t)+dx;
y:=R*sin(t)+dy;
canvas.Pen.Color:=clBlack;
canvas.MoveTo(dx,dy);
canvas.LineTo(round(x),round(y));
tempx:=x;
tempy:=y;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
dt:=0.02;
end;

end.

Скорость колебаний регулируется с помощью интервала таймера и dt!