rhi/lang
1
0
Fork 0
Code Issues 2 Pull requests Releases Wiki Activity

more lántas script (finish drawing glyphs)

Browse source
This commit is contained in:
Rhiannon Morris 2020-11-10 15:39:45 +01:00
parent 0dea4d358f
commit 13836bac8b
6 changed files with 490 additions and 296 deletions
Download patch file Download diff file Expand all files Collapse all files

8
laantas-script/Svg.hs
View file

@ -1,6 +1,6 @@
module Svg
(module Svg,
Text,
Text, pack,
module Graphics.Svg,
module Control.Monad.Reader,
module Control.Monad.State)
@ -10,12 +10,12 @@ import Control.Monad.Reader
import Control.Monad.State
import qualified Graphics.Svg as Base
import Graphics.Svg hiding (mA, mR, lA, lR, cA, cR, sA, sR, aA, aR)
import Data.Text (Text)
import Data.Text (Text, pack)
data Env = E {width, size, stroke :: !Double}
data St = S {x, y, textWidth, textHeight' :: !Double}
-- nb textHeight' is one lineheight less than the actual height
data St = S {x, y, textWidth, textHeight :: !Double}
-- nb textHeight is one lineheight less than the actual height
-- unless ending with a 'newline'
type M = ReaderT Env (State St)