вращение отрезка в дельфи

[diliana]

Привет всем.

Изучаю графику в Делфи. Пытаюсь сделать вращене отрезка.
Сделать хочу так, чтобы изображение выводилось на компонент PaintBox, и будет одна кнопка, при нажатии на нее, должно появиться изображение вращающегося отрезка.
В общем, в книжке дан алгоритм, но нет примера, чтобы посмотреть, как это сделать.
Ну вот в книжке такие рекомендации:

Перерисовку изображений производить в обработчике OnTimer с использованием однородных координат и матриц переноса и поворота.
Включить в программу типы Vector, Matrix и процедуры умножения вектора на матрицу и матрицы на матрицу.
Алгоритм вывода отрезка:
1. Закрасить текущее изображение цветом фона.
2. Повернуть объект на малый угол Dj (умножить векторы однородных координат концов отрезка на композицию матриц переноса и поворота).
3. Вывести изображение объекта в новом положении

Я тут запуталась со всем этим.
Может есть у кого-то пример-исходник такой программы.

[psycho-coder]

Ну, вот так получилось. В колледже вращали еще и через центр, но уже не помню как. У таймера интервал "1".

  private
    XCenter, YCenter: Integer;
    Rnd: Real;
    { Private declarations }
  end;

const
  Len = 100;

procedure TForm1.Button1Click(Sender: TObject);
begin
  XCenter := Round(PaintBox1.Width / 2);
  YCenter := Round(PaintBox1.Height / 2);
  PaintBox1.Canvas.Brush.Color := clWhite;
  PaintBox1.Canvas.FillRect(Rect(0, 0, 353, 353));
  Rnd := 0.0;
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  XTo, YTo: Integer;
begin
  XTo := Round(Sin(Rnd)*Len);
  YTo := Round(Cos(Rnd)*Len);
  PaintBox1.Canvas.MoveTo(XCenter, YCenter);
  PaintBox1.Canvas.Pen.Color := clWhite;
  PaintBox1.Canvas.LineTo(XTo + XCenter, YTo + YCenter);

  Rnd := Rnd + 0.01;

  XTo := Round(Sin(Rnd)*Len);
  YTo := Round(Cos(Rnd)*Len);
  PaintBox1.Canvas.MoveTo(XCenter, YCenter);
  PaintBox1.Canvas.Pen.Color := clBlack;
  PaintBox1.Canvas.LineTo(XTo + XCenter, YTo + Ycenter);
end;

[diliana]

psycho-coder

спасибо за ответ, но к сожалению не все так просто...

вот видите

Включить в программу типы Vector, Matrix и процедуры умножения вектора на матрицу и матрицы на матрицу.

то есть точки задаются 3 координатами (т.е. в пространстве) - x, y, z

то есть следует предварительно обьявлять типы Vector, Matrix
очевидно, вот так

vector = array [1..3,1..3] of real;
matrix = array [1..3,1..3] of real;

может у кого-нибудь найдется пример такой программы?