From f034f40c2da03cd050ba0be068868ceeaf5d0767 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 11 Dec 2016 12:23:46 +0100 Subject: [PATCH] show fps --- examples/example01.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/example01.hs b/examples/example01.hs index 58f528b..5ec6295 100644 --- a/examples/example01.hs +++ b/examples/example01.hs @@ -143,8 +143,8 @@ update sec = do -- liftIO $ delaySec 5 ad@AffectionData{..} <- get let ud@UserData{..} = userState - traceM $ show elapsedTime - if elapsedTime < 5 + traceM $ (show $ 1 / sec) ++ " FPS" + if elapsedTime < 20 then do fg <- liftIO $ G.gegl_buffer_get_extent foreground _ <- liftIO $ G.gegl_buffer_set_extent foreground $ fg