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