This commit is contained in:
nek0 2016-12-11 12:23:46 +01:00
parent 40d88c4fd2
commit f034f40c2d

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