nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

add utility module

Browse source
This commit is contained in:
nek0 2023-01-06 16:03:01 +01:00
parent 925359acc3
commit be689da9bf
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Util.hs Normal file
View file

@ -0,0 +1,13 @@
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)