From fd7f2ff8ba4a0d94aafca33675c366879257dbea Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 11 Dec 2016 17:44:01 +0100 Subject: [PATCH] another DrawRequest --- src/Affection/Draw.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Affection/Draw.hs b/src/Affection/Draw.hs index 6be8e4a..e2a8931 100644 --- a/src/Affection/Draw.hs +++ b/src/Affection/Draw.hs @@ -46,6 +46,10 @@ drawRect buf node color (Line size) rect@G.GeglRectangle{..} = do drawRect buf node color Fill (G.GeglRectangle rectangleX rectangleY size rectangleHeight) drawRect buf node color Fill (G.GeglRectangle (rectangleX + rectangleWidth - size) rectangleY size rectangleHeight) drawRect buf node color Fill (G.GeglRectangle rectangleX (rectangleY + rectangleHeight - size) rectangleWidth size) + ad@AffectionData{..} <- get + put $ ad + { drawStack = (DrawRequest node rect) : drawStack + } -- | force a blit of a specified area present