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