clear

examples/example02.hs

@@ -86,11 +86,8 @@ load _ = do
 draw :: Affection UserData ()
 draw = do
   traceM "drawing"
-  ad <- get
   UserData{..} <- getAffection
-  SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions $ drawSurface ad
+  clear foreground
-  let (w, h) = (fromIntegral rw, fromIntegral rh)
-  liftIO $ clearArea foreground (GeglRectangle 0 0 w h)
   maybe (return ()) (\(x, y) ->
     drawRect
       (nodeGraph M.! "nop")

src/Affection/Draw.hs

@@ -3,7 +3,7 @@
 -- | Module for drawing primitives
 module Affection.Draw
   ( drawRect
-  -- , clear
+  , clear
   , handleDrawRequest
   , invalidateDrawRequest
   , present
@@ -186,3 +186,11 @@ clearArea
   -> G.GeglRectangle -- ^ Area to clear
   -> IO ()
 clearArea = G.gegl_buffer_clear
+
+-- | Clear the whole drawing area
+clear :: G.GeglBuffer -> Affection us ()
+clear buffer = do
+  ad <- get
+  SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions $ drawSurface ad
+  let (w, h) = (fromIntegral rw, fromIntegral rh)
+  liftIO $ clearArea buffer (GeglRectangle 0 0 w h)