nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

another DrawRequest

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Affection/Draw.hs
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