ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 16:54:42 +03:00
Code Issues Projects Releases Wiki Activity

addMaybeClipped: skip blit of joins when their primary dimension is zero

Browse Source
This commit is contained in:
Jonathan Daugherty 2016-12-03 17:49:49 -08:00
parent 0002d3de80
commit cf3bd4c99f
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/Graphics/Vty/PictureToSpans.hs
View File

@ -259,17 +259,19 @@ addMaybeClipped (HorizText a textStr ow _cw) = do
in addUnclippedText a textStr'
else addUnclippedText a textStr
addMaybeClipped (VertJoin topImage bottomImage _ow oh) = do
addMaybeClippedJoin "vert_join" skipRows remainingRows rowOffset
(imageHeight topImage)
topImage
bottomImage
oh
when (imageHeight topImage + imageHeight bottomImage > 0) $
addMaybeClippedJoin "vert_join" skipRows remainingRows rowOffset
(imageHeight topImage)
topImage
bottomImage
oh
addMaybeClipped (HorizJoin leftImage rightImage ow _oh) = do
addMaybeClippedJoin "horiz_join" skipColumns remainingColumns columnOffset
(imageWidth leftImage)
leftImage
rightImage
ow
when (imageWidth leftImage + imageWidth rightImage > 0) $
addMaybeClippedJoin "horiz_join" skipColumns remainingColumns columnOffset
(imageWidth leftImage)
leftImage
rightImage
ow
addMaybeClipped BGFill {outputWidth, outputHeight} = do
s <- get
let outputWidth' = min (outputWidth - s^.skipColumns) (s^.remainingColumns)