adjust space handling to avoid a gap on the right
...which made the images not centred propertly
This commit is contained in:
parent
2607e26119
commit
f243311e64
2 changed files with 11 additions and 6 deletions
|
@ -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'
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue