Вращающийся отрезок - работа с графикой

[>>arty<<]

Здравствуйте, помогите с заданием, никогда не работал с графикой и свойствами подобных объектов...
Помогите кто чем может и пожалуйста объясните на будущее, может у кого подобное задание встречалось? Тогда выложите исходник желательно с комментариями, заранее благодарен!
Вот задание:

Изобразить на экране отрезок, вращающийся в плоскости экрана вокруг:

своей середины;

своего конца;

случайно выбранной точки на отрезке.

Предоставить пользователю возможность изменять скорость, направление вращения, длину, толщину и цвет отрезка.

[DomiNick]

Это не "объект"... Это задание скорее на тригонометрию...
Координаты, углы, синусы/косинусы...

И на каком языке нужно-то?

[>>arty<<]

на языке Delphi

[Serge_Bliznykov]

помочь чем? написать за Вас? Так это можно, но это другая тема (это фриланс. отписался Вам в личку).

А по сути. кидайте таймер на форму. на таймере такой код вращения:

Пусть имеется центр,
 Center : TPoint;
 это центр, вокруг которого мы будем поворачивать отрезок.

 И пусть этот центр делит отрезок на две части,
    с длинами r1 и r2

 (т.е. если центр вращения находится ровно на середине отрезка,
   то r1 = r2 = половине длины отрезка

  если центр находится на конце отрезка, тогда 
    r1 = 0, r2 = длине отрезка)


  А вот собственно код на onTimer

       {стираем старый отрезок}
       x1 := Center.X - round(r1 * cos(Angle * pi / 180));
       y1 := Center.Y - round(r1 * sin(Angle * pi / 180));
       x2 := Center.X + round(r2 * cos(Angle * pi / 180));
       y2 := Center.Y + round(r2 * sin(Angle * pi / 180));

       Image1.Canvas.Pen.Color := clWhite;
       Image1.Canvas.MoveTo( x1, y1);
       Image1.Canvas.LineTo( x2, y2);

       {увеличиваем угол, на который повернут отрезок
         на величину повотора}
       Angle := Angle + DeltaAngle;

       {расчитываем новые координаты}
       x1 := Center.X - round(r1 * cos(Angle * pi / 180));
       y1 := Center.Y - round(r1 * sin(Angle * pi / 180));
       x2 := Center.X + round(r2 * cos(Angle * pi / 180));
       y2 := Center.Y + round(r2 * sin(Angle * pi / 180));

       {выводим отрезок}
       Image1.Canvas.Pen.Color := Color;
       Image1.Canvas.MoveTo( x1, y1);
       Image1.Canvas.LineTo( x2, y2);

[Stilet]

Для раздумий:
http://www.programmersforum.ru/showthread.php?p=308568

[>>arty<<]

Всем большое спасибо