layers-game-0.4: src/Utils.hs

module Utils where
#include "Utils.cpp"
import qualified Graphics.UI.GLFW as GLFW
import Control.Applicative ((<$>))
import Gamgine.Math.Vect as V
import qualified Gamgine.Math.Matrix as M
import qualified Gamgine.Math.Box as B
import qualified AppData as AP
import qualified GameData.Data as GD
import qualified GameData.Level as LV
import qualified GameData.Boundary as BD
import qualified GameData.Entity as E
IMPORT_LENS_AS_LE


interpolateFrame :: Double -> V.Vect -> V.Vect -> V.Vect
interpolateFrame nextFrameFraction position velocity =
   position + (velocity * (V.v3 nextFrameFraction nextFrameFraction nextFrameFraction))


levelScrolling :: Double -> AP.AppData -> V.Vect
levelScrolling nextFrameFraction appData =
   let fvec      = V.v3 (fx / 2) (fy / 2) 0
       scroll    = V.map (max 0) (playerPos - fvec)
       maxScroll = V.v3 (ax - fx) (ay - fy) 0
       in (V.minVec scroll maxScroll) * (-1)
   where
      playerPos   = interpolatePos nextFrameFraction $ LE.getL (LV.playerL . AP.currentLevelL) appData
      (ax:.ay:._) = BD.boundaryArea $ LE.getL (LV.boundaryL . AP.currentLevelL) appData
      (fx, fy)    = AP.frustumSize appData

      interpolatePos factor player =
         interpolateFrame factor (E.playerPosition player) (E.playerVelocity player)


mousePosInLevelCoords :: GLFW.Window -> AP.AppData -> IO V.Vect
mousePosInLevelCoords win appData = do
   (x, y) <- GLFW.getCursorPos win
   return $ windowToLevelCoords (floor x, floor y) appData


windowToLevelCoords :: (Int, Int) -> AP.AppData -> V.Vect
windowToLevelCoords xy appData =
   V.setElem 2 0 $ (windowToWorldCoords xy appData) - (levelScrolling 0 appData)


windowToWorldCoords :: (Int, Int) -> AP.AppData -> V.Vect
windowToWorldCoords winCoord appData =
   let (width, height)   = AP.windowSize appData
       (dWidth, dHeight) = (fromIntegral width, fromIntegral height) :: (Double, Double)
       top               = AP.orthoScale appData * (dHeight / dWidth)
       right             = top * (dWidth / dHeight)
       frustum           = M.Frustum 0 right 0 top (-1) 1
       winToWorldMtx     = M.mkWinToWorldMatrix (width, height) frustum
       in M.winToWorld winToWorldMtx winCoord


-- | ensure that the boundary size of all levels is at least of the size of the window
updateBoundarySize :: AP.AppData -> AP.AppData
updateBoundarySize app@AP.AppData {AP.windowSize = (width, height)} =
   let wcoord     = windowToWorldCoords (width, -height) app
       boundMaxPt = B.maxPtL . BD.boxL . LV.boundaryL
       in LE.modL (GD.levelsL . AP.gameDataL) (LE.modL boundMaxPt (V.maxVec wcoord) <$>) app