layers-game-0.3: src/GameData/Platform.hs

module GameData.Platform where
import qualified Gamgine.Math.Box as B
import qualified GameData.Entity as E
import qualified Defaults as DF


newPlatform :: Int -> E.PositionOrAnimation -> B.Box -> E.Entity
newPlatform id posOrAnim bound = E.Platform {
   E.platformId       = id,
   E.platformPosition = posOrAnim,
   E.platformBound    = bound
   }


platformVelocity :: Double
platformVelocity = 2.5 / (fromIntegral DF.ticksPerSecond)