поворот многоугольника в паскале

[Belii09878]

подскажите пожалуйста как сделать поворот многоугольника я вот чтото набросал

program graphic;
uses graph;
var  errorcode : integer; i,j,gd,gm,ygl: integer;
     pp: array[1..8] of PointType;
     pp2: array[1..8] of PointType;
     maxx, maxy,serx,sery:word;

Begin
    ygl:=30;
    gd:=detect;
    initGraph (gd,gm,'e:\egavga');
    errorcode:=graphresult;
    if errorcode<>grok then
 begin
    writeln('Error init Graph');
    closegraph;
    halt;
 end;
    maxx:=GetmaxX; maxy:=GetmaxY;
    serx:=maxx div 2;
    sery:=maxy div 2;

    pp[1].x :=serx-40;
    pp[1].y := sery-20;
    pp[2].x := serx+20;
    pp[2].y := sery-20;
    pp[3].x := serx+20;
    pp[3].y := sery-40;
    pp[4].x := serx+60;
    pp[4].y := sery;
    pp[5].x := serx+20;
    pp[5].y := sery+40;
    pp[6].x := serx+20;
    pp[6].y := sery+20;
    pp[7].x := serx-40;
    pp[7].y := sery+20;
    pp[8] :=pp[1];
    SetColor(8); {цвет для вычерчивания}
    DrawPoly(8,pp);
    floodfill(serx,sery,8);
 for i:=1 to 8 do
 begin
    pp2[i].x:=pp[i].x*sin(ygl)+pp[i].y*cos(ygl);
    pp2[i].y:=pp[i].x*(-cos(ygl))+pp[i].y*sin(ygl);
    i:=i+1;
 end;
  DrawPoly(8,pp2);
    readln;
    CloseGraph;
End.

[Stepler]

Угол в радианах нужно задавать, переведи градусы в радианы, 1 градус примерно 0,017 радиан.

[_-Re@l-_]

1 градус = 0.0174 радиан

[Serge_Bliznykov]

а ещё лучше, не заниматься "ручным" переводом,
а использовать формулу:

Radians := angle * Pi / 180;

p.s. PI задавать не надо, это стандартная константа.