Показать сообщение отдельно
Старый 19.02.2013, 23:49   #5
Кирпи4
Социал-сычевист
 
Аватар для Кирпи4
 
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений
(для 1,359 пользователей)
Ответ: Смешивание анимаций

Решение
Бился очень долго, но сделал

Function InterpolateAngle#(angle1#,angle2#,delta#)
	If angle1>angle2
		If 360-(angle1-angle2)<180
			angle2=angle2+360
			Return (angle1+(angle2-angle1)*delta) Mod 360
		Else
			angle1=angle1 + 180
			angle2=angle2 + 180
			Return (angle1+(angle2-angle1)*delta)-180
		EndIf
	Else
		If 360-(angle2-angle1)<180
			angle1=angle1+360
			Return (angle1+(angle2-angle1)*delta) Mod 360
		Else
			angle1=angle1 - 180
			angle2=angle2 - 180
			Return (angle1+(angle2-angle1)*delta)+180
		EndIf
	EndIf
EndFunction
__________________



Последний раз редактировалось Кирпи4, 20.02.2013 в 01:04.
(Offline)
 
Ответить с цитированием