another DrawRequest

This commit is contained in:
nek0 2016-12-11 17:44:01 +01:00
parent 2b1e6c62f1
commit fd7f2ff8ba
1 changed files with 4 additions and 0 deletions

View File

@ -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