Не работает алгоритм вращения точки.

[616th]

Пишу код на PascalABC, использую алгоритм вращение точки вокруг второй точки:
newx=(x-startx)*cos(Угол поворота)-(y-starty)*sin(Угол поворота)+startx
newy=(y-starty)*cos(Угол поворота)+(x-startx)*sin(Угол поворота)+starty

С каждым оборотом вокруг точки растояние между точками уменьшается, что приводит к движению по спирале.Мучаюсь уже дня три с кодом так и не понял где погрешность.Если кто знает в чем проблема помогите.

Исходный код программы:http://upwap.ru/1285993

[NiCola999]

// phi в градусах
phi *= PI/180;
point.x = (int)(axis.x - distance * cos(phi));  // distance - расстояние между точкой и осью вращения (вторая точка)
point.y = (int)(axis.y - distance * sin(phi));

[616th]

Спасибо большок,а можно на Pascal'е пример?Буду очень благодарен.

[616th]

И кстате, а почему всетаки не работает алгаритм:
newx=(x-startx)*cos(Угол поворота)-(y-starty)*sin(Угол поворота)+startx
newy=(y-starty)*cos(Угол поворота)+(x-startx)*sin(Угол поворота)+starty

????????????????????

[616th]

Не ну люди я не верю, что никто не знает в чем проблема!!!((((((((((