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

add script to lántas pages

Browse source
This commit is contained in:
Rhiannon Morris 2021-04-29 11:55:54 +02:00
parent ba5522187c
commit f61e5b1146
13 changed files with 332 additions and 143 deletions
Download patch file Download diff file Expand all files Collapse all files

2
laantas-script/Svg.hs
View file

@ -13,7 +13,7 @@ import Graphics.Svg hiding (mA, mR, lA, lR, cA, cR, sA, sR, aA, aR)
import Data.Text (Text, pack)
data Env = E {width, size, stroke :: !Double}
data Env = E {width, size, stroke :: !Double, color :: !Text}
data St = S {x, y, textWidth, textHeight :: !Double}
-- nb textHeight is one lineheight less than the actual height
-- unless ending with a 'newline'