justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Include tick counting code

Browse Source
This commit is contained in:
jgk
2021-02-27 02:09:04 +01:00
parent 4fc6917741
commit 3b4b387943
9 changed files with 64 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app/Main.hs
+10 -2
View File
@@ -54,7 +54,8 @@ main = do
(-- \((bs:fs:ts:_),tes) w -> --do render setparams w egFade
\preData w -> --do render setparams w egFade
do
renderPicture' (_renderData preData)
startTicks <- SDL.ticks
(lightTicks,timeSpentPoking) <- renderPicture' (_renderData preData)
(_cameraRot w) (_cameraZoom w)
(_cameraPos w)
(_windowX w,_windowY w)
@@ -65,9 +66,16 @@ main = do
renderTree (_renderData preData) (_cameraRot w) (_cameraZoom w) (_cameraPos w)
(_windowX w,_windowY w)
(picToList 1 $ fixedCoordPictures w)
endRenderTicks <- SDL.ticks
playSoundQueue (_soundData preData) (_soundQueue w)
newSoundData <- playAndUpdate (_sounds w) (_soundData preData)
return $ preData {_soundData = newSoundData}
endMixerTicks <- SDL.ticks
return $ (preData {_soundData = newSoundData})
& renderTime +~ (endRenderTicks - startTicks)
& mixerTime +~ (endMixerTicks - endRenderTicks)
& renderLighting +~ (lightTicks - startTicks)
& renderPicture +~ (endRenderTicks - lightTicks)
& pokeTime +~ timeSpentPoking
)
(flip $ menuEvents $ flip handleEvent)
(\w -> Just $ update w)