Вращение 5-угольника..?

[Roberto]

Как заставить вращаться без разницы в каком направлении 5-угольник, если я рисую его с помощью Polygon функции?? Заранее спасибо!

[mutabor]

Пересчитывать координаты его вершин в зависимости от угла поворота. Sin, Cos в помощь.

[Roberto]

У кого нибудь есть исходник этой задачки???????????????? Скинтье пожалуйста...

[Stilet]

Держи, я сегодня добрый:

//********* PROCEDURE**********
procedure draw(cx,cy,BeginAngle:real; n:integer);
var rx,ry,x,y,angle, rang, ang:real;i:integer;
 atp:array of TPoint;
begin

//cx:=form1.Width div 2;cy:=form1.Height div 2;
ang:=360/n;
angle:=(2*pi*ang)/360; rang:=angle;
SetLength(atp,n);
with form1 do begin
  //********* FOR ******************
  for  i:=0  to n  do
  begin
   //canvas.MoveTo(cx,cy);
   rx:=(cos(angle+BeginAngle));
   ry:=(sin(angle+BeginAngle));
   atp[i].X:=round(cx+100*(rx));
   atp[i].Y:=round(cy+100*(ry));
 //  canvas.LineTo(round(x),round(y));
 angle:=angle+rang;
   end;
  //******* END FOR ****************
  Canvas.Polygon(atp);
end;
//form1.Canvas.LineTo(100,100);
end;

//********* END PROCEDURE*******

Тебе остается добавить код вращения - изменения начального угла.

[mutabor]

У кого нибудь есть исходник этой задачки???????????????? Скинтье пожалуйста...

Я давал аж два исходника, с разными фигурами, в этой ветке, уже с вращением. Ищи по словам вращение, вращение фигур, многоугольников. Тема с вложением, если захочешь найдешь.

з.ы. Раз ты здесь новичок, то я тебе нашел вот тема http://www.programmersforum.ru/showt...F9%E5%ED%E8%E5