delphi Код:
a = ArcTan2(secObj.Y-firstObj.Y,secObj.X-firstObj.X)
dist = Hypot(secObj.X-firstObj.X,secObj.Y-firstObj.Y)
new_a = a + (newAngle-oldAngle)
secObj.x = firstObj.X + cos(new_a) * dist
secObj.y = firstObj.Y + sin(new_a) * dist
че-нить типа такого
__________________
Начало.
Последний раз редактировалось supernewbie, 12.03.2013 в 19:28.
|