Ответ: Смешивание анимаций
Решение
Бился очень долго, но сделал
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.
|