"My favourite animation trick: exponential smoothing"

[Sandman]

My favourite animation trick: exponential smoothing

I write stuff about math, simulation, graphics, gamedev, and programming.

lisyarus.github.io

 

[klaus]

You may also have a look at this site: Easing Equations

And a B4XPages project using these equations, not tested with B4i, but the principles are the same.
I have used this kind of animation in the xRotaryKnob library, but inspired by a code from Erel in the Gauges thread.

To use only one equation you can change it in the AnimateTo routine.
The commented line is specific for CubicTimeEaseInOut.

Private Sub AnimateTo(MoveFrom As Int, MoveTo As Int, Duration As Int)
    Private CurrentPosition As Int
    Private BeginTime As Long = DateTime.Now
   
    CurrentPosition = MoveTo
    Dim tempValueA As Float
    Do While DateTime.Now < BeginTime + Duration
        tempValueA = CallAnimation(DateTime.Now - BeginTime, MoveFrom, MoveTo - MoveFrom, Duration)
'        tempValueA = CubicTimeEaseInOut(DateTime.Now - BeginTime, MoveFrom, MoveTo - MoveFrom, Duration)
        DrawCircle(tempValueA)
        Sleep(5)
        If MoveTo <> CurrentPosition Then Return 'will happen if another update has started
    Loop
    DrawCircle(CurrentPosition)
End Sub

 

[josejad]

Please @klaus, post this wonderful example in some section of the forum. The chit chat forum is not indexed for searching.

 

[epiCode]

You may also have a look at this site: Easing Equations

I have converted all functions from this site for B4X here

 

[klaus]

I have converted all functions from this site for B4X here

Sorry, I did not remember this thread.

 

[klaus]

Please @klaus, post this wonderful example in some section of the forum. The chit chat forum is not indexed for searching.

Even though these equations were already converted to B4X by @epiCode, I opened a new thread in the Code snippets forum.