this was the bad performance bottleneck

This commit is contained in:
nek0 2016-12-20 04:15:30 +01:00
parent 5f4d049a2b
commit ab976b4af6

View file

@ -101,7 +101,7 @@ handleDrawRequest
-> Affection us (Maybe DrawRequest)
handleDrawRequest pixels format stride cpp dr@DrawRequest{..} = do
ad <- get
let !surf = drawSurface ad
let surf = drawSurface ad
liftIO $ SDL.lockSurface surf
liftIO $ G.gegl_node_blit
requestNode
@ -113,7 +113,7 @@ handleDrawRequest pixels format stride cpp dr@DrawRequest{..} = do
stride
[G.GeglBlitDefault]
liftIO $ SDL.unlockSurface surf
liftIO $ SDL.updateWindowSurface $ drawWindow ad
-- liftIO $ SDL.updateWindowSurface $ drawWindow ad
if requestPersist
then
return Nothing
@ -143,7 +143,7 @@ invalidateDrawRequest pixels format stride cpp dr@DrawRequest{..} = do
stride
[G.GeglBlitDefault]
liftIO $ SDL.unlockSurface surf
liftIO $ SDL.updateWindowSurface $ drawWindow ad
-- liftIO $ SDL.updateWindowSurface $ drawWindow ad
-- | compute color for a single pixel
colorize