Движение шарика по кругу

[Позитрон]

При реализации вращения шарика по кругу столкнулся со следующей проблемой:есть процедура move, которая перемещает объект (шар) в двухмерной системе координат. Шар обладает скоростью (vx и vy), имеет определённые координаты (Xt и Yt), а с помощью процедуры телу сообщается ускорение (ax,ay).
То есть координаты тела равны (Xt,Yt), скорость равна (vx,vy); при этом через равные промежутки времени t вызывается процедура move(ax,ay).
К примеру, чтобы смоделировать свободное падение тела, необходимо придать величине ax значение 0, величине ay - значение g (при условии, что координаты тела не совпадают с землёй).
Так вот, с помощью этой функции я задаю телу определённое нормальное ускорение следующим образом: в переменные rx и ry перед каждым вызовом move записываются разности координат центра вращения и тела, далее, собственно, вызывается move(rx*sqr(w) , ry*sqr(w)). Однако при этом линейная скорость тела v начинает резко возрастать до тех пор,пока не пока не превысит максимально допустимую.
При этом тело движется по окружности радиуса sqrt(sqr(rx)+sqr(ry)).
В чём ошибка?

[phomm]

Код всего проекта киньте в архив и прикрепите сюда. Проще будет разбираться.