вращение креста на паскале

[random7]

Помогите разобраться пожалуйста с графикой...
Задание "Вращение креста из двух отрезков линии в центре экрана."

Крест в центре нарисовать не проблема, но как сделать чтобы он вращался допустим по часовой стрелке?

program lab4_1;
uses crt,graph;
var gdriver, gmode: integer;
BEGIN
     clrscr;
     gdriver := detect;
     initgraph(gdriver,gmode,'');

     setcolor(red);
     setlinestyle(1,0,3);
     line(480,355,540,355);
     line(510,325,510,385);

     readln;
     closegraph;
END.

[raxp]

теорему синусов-косинусов еще помните? что-то так...

for ug:= 0 to 360*kol oborotov do begin
 x:= len*sin(pi*ug/180);
 y:= len*sin(pi*(90-ug)/180));
 line(0,0);
 line(x,y)
end;

даст вам вращающуюся линию, дальше догадаетесь думаю...

[random7]

У меня получилась вращающаяся линия, теперь проблема в том чтобы добавить вторую.
Никак не пойму как описать координаты для второй линии...

program lab4;

uses crt,graph;

var gdriver,gmode,x,y,x1,y1,r,d,i: integer;
    t: real;

BEGIN
     clrscr;
     gdriver:=detect;
     initgraph(gdriver,gmode,'');

     x:=getmaxx div 2;
     y:=getmaxy div 2;
     r:=50;
     i:=1;
     d:=100;
     setcolor(red);
     setlinestyle(1,0,3);

    repeat
     t:=i*pi/180;
     x:=round(r*cos(t))+getmaxx div 2;
     y:=round(r*sin(t))+getmaxy div 2;
     x1:=round(r*cos(t+pi))+getmaxx div 2;
     y1:=round(r*sin(t+pi))+getmaxy div 2;
     line(x,y,x1,y1);
     delay(d);
     cleardevice;
     if i<360 then i:=i+1 else i:=1;
    until keypressed;


     readln;
     closegraph;
END.

[raxp]

кто мешает повторить код, но еще 3 раза со сдвигом для каждого на 90гр?