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

round line join

This commit is contained in:
Rhiannon Morris 2021-04-30 13:45:18 +02:00
parent 0d72266e5d
commit 8e2f92a8b6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
laantas-script/GlyphsBase.hs
View File

@ -82,7 +82,8 @@ doGlyphs gs e = wrap $ run act e where
act = do
E {stroke, color} <- ask
let gattrs = [Stroke_ <<- color, Stroke_width_ <<- toPx stroke,
Stroke_linecap_ <<- "round", Fill_ <<- "none"]
Stroke_linecap_ <<- "round", Stroke_linejoin_ <<- "round",
Fill_ <<- "none"]
g_ gattrs . mconcat <$> traverse placeWord gs <* newline
wrap (content, T {width, height}) =
let sattrs = [Height_ <<- toPx height, Width_ <<- toPx width] in