И опять движение по окружности !)

[Weyner]

вот у меня квадрат надо чтобы этот квадрат двигался по окружности, я составляю код но у мя все время зараза получается движение по диагонали, вот мой код:

procedure TFigure.Move;
var Temp:integer;
begin
hide;
temp:=x+x1;
if (temp-size div 2<0) or (temp+size div 2 >maxsize) then

x1:=-x1;
x:=x+x1;

temp:=y+y1;
if (temp-size div 2<0) or (temp+size div 2 >maxsize) then

y1:=-y1;
y:=y+y1;

show;
end;

Эта чертова окружность меня даканала!)))

[Stilet]

Загляни сюда:http://www.programmersforum.ru/showthread.php?t=70107
Тема для размышления.

[Weyner]

извените она не то хоть и похоже!))