помогите с графом в паскале

[Panda]

Нарисовать на экране катящееся по горизонтали колесо с четырьмя спицами.
Програмка немного не правильно работает

Program graph_14_4;
uses crt,dos,graph;
var
i:integer;
driver,mode,errcode:integer;
path:string;
x1,x2,y1,y2,x11,x22,y11,y22,x12,y12,x32,y32:integer;
procedure paint;
 begin
  setcolor(15);

  circle(242+i, 256,30);

  {ўа*йҐ*ЁҐ Є®«Ґб}
{///////////////////}
   setcolor(15);


   x11:=round(30*cos(i/30*pi)+242+i);
   y11:=round(30*sin(i/30*pi)+256);
   x22:=round(30*cos(i/30*pi+pi)+242+i);
   y22:=round(30*sin(i/30*pi+pi)+256);
    line(x11,y11,x22,y22);
    x12:=round(30*cos(i/90*pi)+242+i);
   y12:=round(30*sin(i/90*pi)+256);
   x32:=round(30*cos(i/90*pi+pi)+242+i);
   y32:=round(30*sin(i/90*pi+pi)+256);
   line(x12,y12,x32,y32);



  delay(1200);
  setcolor(0);
{///////////////////}

 end;
begin
 i:=-280;
 driver:=vga;
 mode:=vgahi;
 path:='H:\bp\bgi';
 initgraph(driver,mode,path);
 ErrCode:=graphResult;
 if ErrCode<>grok then
  begin
   writeln('Error');
   readln;
   halt(1);
  end;

repeat
 paint;
 delay(1200);
 cleardevice;
 inc(i);
 if i=620 then i:=-280;
until KeyPressed;
closegraph;
{ch:=#32;}
end.

[knight]

вторая спица обгоняет, а надо сместить на pi/2:

    x12:=round(30*cos(i/30*pi + pi/2)+242+i);
    y12:=round(30*sin(i/30*pi+ pi/2)+256);
    x32:=round(30*cos(i/30*pi+pi+ pi/2)+242+i);
    y32:=round(30*sin(i/30*pi+pi+ pi/2)+256);
    line(x12,y12,x32,y32);

[Panda]

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

вторая спица обгоняет, а надо сместить на pi/2:

    x12:=round(30*cos(i/30*pi + pi/2)+242+i);
    y12:=round(30*sin(i/30*pi+ pi/2)+256);
    x32:=round(30*cos(i/30*pi+pi+ pi/2)+242+i);
    y32:=round(30*sin(i/30*pi+pi+ pi/2)+256);
    line(x12,y12,x32,y32);

Спасибо!!!!

[Serge_Bliznykov]

а можно я ещё добавлю свои пять копеек?... :-))

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

procedure paint(Displaycolor:integer);
 begin
    setcolor(Displaycolor);

    circle(242+i, 256,30);

    x11:=round(30*cos(i/30*pi)+242+i);
    y11:=round(30*sin(i/30*pi)+256);
    x22:=round(30*cos(i/30*pi+pi)+242+i);
    y22:=round(30*sin(i/30*pi+pi)+256);
    line(x11,y11,x22,y22);

    x12:=round(30*cos(i/30*pi + pi/2)+242+i);
    y12:=round(30*sin(i/30*pi+ pi/2)+256);
    x32:=round(30*cos(i/30*pi+pi+ pi/2)+242+i);
    y32:=round(30*sin(i/30*pi+pi+ pi/2)+256);
    line(x12,y12,x32,y32);
 end;

и тогда основной цикл программы:

...
repeat
 paint(15);
 delay(2000);
 paint(0);
 inc(i);
 if i=620 then i:=-280;
until KeyPressed;