adjust space handling to avoid a gap on the right

...which made the images not centred propertly
This commit is contained in:
Rhiannon Morris 2021-04-29 12:01:45 +02:00
parent 2607e26119
commit f243311e64
2 changed files with 11 additions and 6 deletions

View file

@ -14,7 +14,7 @@ import Data.Text (Text, pack)
data Env = E {width, size, stroke :: !Double, color :: !Text}
data St = S {x, y, textWidth, textHeight :: !Double}
data St = S {x, y, textWidth, textHeight :: !Double, firstOnLine :: Bool}
-- nb textHeight is one lineheight less than the actual height
-- unless ending with a 'newline'