Вращение прямоугольника

[Sazary]

...........
...........

if keypressed then
 begin
  ch := readkey;
  if ch = '1' then koef := 1
  else if ch='2' then koef := -1
  else if ch=#27 then break;

 alpha := alpha + koef*0.1;
if alpha>=2*pi then alpha := 0;
delay(30);
cleardevice;
 end;
until ch=#27;

сразу после расчета новых координат

[Kopova]

Сообщение от Sazary

сразу после расчета новых координат

Хм... почему-то прямоугольник раздваивается...
У меня ещё вот такой вариант есть:

...
ch:=readkey;
cleardevice
case ch of
#77:begin
        koef:=1;
        alpha:=alpha+koef*0.1;
       end;
#75:begin
        koef:=-1;
        alpha:=alpha+koef*0.1;
       end;
#27:break
end;

if alpha >=2*pi then alpha :=0;
delay(10);
until ch=#27;

closegraph;
end.

сразу после расчёта координат для y4.
Но в этом случае прямоугольник изначально находится где-то за пределами экрана, или вообще не существует, а появляется только по нажатию клавиши.