Перемещение геометрической фигуры

[_Bac9_]

Нарисовать заданную геометрическую фигуру, которая перемещается по заданной траектории и постоянно изменяет свой масштаб («дышит»). Язык программирования Delphi.
Может у кого завалялся пример или алгоритм?
Приму любую помощь, спасибо

[Человек_Борща]

Напишите функцию:

function DrawTriangle(can:TCanvas; x,y:integer; scaleSize:smallInt):Boolean;

которая рисует треугольник на холсте can, в позиции x,y у которого все стороны 2 пикселя умноженных на scaleSize, Result в true, когда нарисовали.

Киньте таймер и PaintBox, в таймере интервал (задаёт скорость вращение по оси) поставьте 200 мс, внутри заведите константу указывающую радиус круга, и две переменные задающие 2 точки в плоскости координат по которым будет рисоваться круг и летать треугольник, а так же размер шага треугольника на каждом цикле.
В зависимости от радиуса вычислите кол-во таких шагов по окружности.

Далее алгоритм такой:
1. расчитаете кол-во шагов.
2. Цикл по шагам.
2.1. Очистили Canvas, залили белым.
2.2. Нарисовали от центра Canvas на раастоянии радиуса R окружность от от заданных X, Y координат.
2.3. Нарисовали треугольник.
2.4. перешли к пункту 2.1.

будет "моргать" но двойную буферизацию мб и не осилите.

Код сами пишите.