vulkan-tutorial/src/Util.hs

14 lines
264 B
Haskell
Raw Normal View History

2023-01-06 15:03:01 +00:00
module Util where
import qualified Data.Vector as V
-- internal imports
import Types
getFrame :: EngineData -> Int -> FrameData
getFrame engineData frame =
let frameVector = engineFrames engineData
in
frameVector V.! (frame `mod` V.length frameVector)