[bmx] Small animator by SystemError51 [ 1+ years ago ]

[BlitzBot]

Title : Small animator
Author : SystemError51
Posted : 1+ years ago

Description : I'm working on an online game right now, and the login screen required that tiny bit of subtle animation. I could not find anything here, so I quickly hacked a poor man's animator together.

You can define from and to where some image should animate, with what speed and what millisecond steps.

The parameters at the bottom allow you to change animation parameters at a later time, if so required.

Direction int's:
1 - Left
2 - Right
3 - Up
4 - Down

Create an animation like this:

yourObject.CA_CreateAnimation(yourImage , 20.0 , 20.0 , 100.0 , 100.0 , 40 , 2.0, 2, 4)

This will prepare an animation for yourImage at x:20 y:20 and destination x:100 y:100. Millisecond timer here is 40 (25 frames per second), animation speed per step is 2 pixels, direction is right and down.

I hope this makes sense...

Feel free to use

Code :

Code (blitzmax) Select Expand

' ----------------------------------------------------
' ORION'S GATE
' A sci-fi MMORTS game.
'
' depot/Tools/CoreAnimation.bmx
' A poor man's attempt at implementing a smooth
' animation framework as seen on OS X, for BlitzMax
' ----------------------------------------------------

Type CoreAnimation

' What should be animated
Field _ca_imageToAnimate :TImage

' From where
Field _ca_startX :Float
Field _ca_startY :Float
' To where
Field _ca_endX :Float
Field _ca_endY :Float

' Where are we now?
Field _ca_currentX :Float
Field _ca_currentY :Float

' Timer, and speed
Field _ca_timer :TTimer
Field _ca_animspeed :Float

' Directions to animate
Field _ca_horizontalDirection :Int
Field _ca_verticalDirection :Int


' Create a new animation sequence
Method CA_CreateAnimation(image:TImage , startx:Float , starty:Float , endx:Float , endy:Float , timingStep:Int , animSpeed:Float, xAxis:Int, yAxis:Int)

_ca_imageToAnimate = image
_ca_startX = startx
_ca_startY = starty
_ca_endX = endx
_ca_endY = endy

_ca_timer = CreateTimer(timingStep)
_ca_animspeed = animSpeed

_ca_currentX = startx
_ca_currentY = starty

_ca_horizontalDirection = xAxis
_ca_verticalDirection = yAxis

EndMethod


' Draw the animation. This will not clear the screen and assumes to be called in your draw loop
Method CA_DrawAnimation()
If _ca_currentX <> _ca_endX Or _ca_currentY <> _ca_endY
If WaitTimer
If _ca_horizontalDirection = 1
_ca_currentX = _ca_currentX - _ca_animspeed
EndIf

If _ca_horizontalDirection = 2
_ca_currentX = _ca_currentX + _ca_animspeed
EndIf

If _ca_verticalDirection = 3
_ca_currentY = _ca_currentY - _ca_animspeed
EndIf

If _ca_verticalDirection = 4
_ca_currentY = _ca_currentY + _ca_animspeed
EndIf
EndIf
EndIf

DrawImage _ca_imageToAnimate , _ca_currentX , _ca_currentY

EndMethod


' Adjust parameters
Method CA_SetStartX(newstartx:Int)
_ca_startX = newstartx
EndMethod

Method CA_SetStartY(newstarty:Int)
_ca_startY = newstarty
EndMethod

Method CA_SetEndX(newendx:Int)
_ca_EndX = newendx
EndMethod

Method CA_SetEndY(newendy:Int)
_ca_EndY = newendy
EndMethod

Method CA_SetHorizontalDirection(dir:Int)
_ca_horizontalDirection = dir
EndMethod

Method CA_SetVerticalDirection(dir:Int)
_ca_verticalDirection = dir
EndMethod

EndType

Comments :


SystemError51(Posted 1+ years ago)

 I forgot to mention that you have to use

Code Select Expand

CA_DrawAnimation()in your main draw loop (or where ever required) to actually draw the animation. [/i]