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

show fps

Browse source
This commit is contained in:
nek0 2016-12-11 12:23:46 +01:00
parent 40d88c4fd2
commit f034f40c2d
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/example01.hs
View file

@ -143,8 +143,8 @@ update sec = do
-- liftIO $ delaySec 5 -- liftIO $ delaySec 5
ad@AffectionData{..} <- get ad@AffectionData{..} <- get
let ud@UserData{..} = userState let ud@UserData{..} = userState
traceM $ show elapsedTime traceM $ (show $ 1 / sec) ++ " FPS"
if elapsedTime < 5 if elapsedTime < 20
then do then do
fg <- liftIO $ G.gegl_buffer_get_extent foreground fg <- liftIO $ G.gegl_buffer_get_extent foreground
_ <- liftIO $ G.gegl_buffer_set_extent foreground $ fg _ <- liftIO $ G.gegl_buffer_set_extent foreground $ fg