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

round line join

Browse source
This commit is contained in:
Rhiannon Morris 2021-04-30 13:45:18 +02:00
parent 7bc480d45a
commit ee9923dcc1
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 act = do
E {stroke, color} <- ask E {stroke, color} <- ask
let gattrs = [Stroke_ <<- color, Stroke_width_ <<- toPx stroke, 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 g_ gattrs . mconcat <$> traverse placeWord gs <* newline
wrap (content, T {width, height}) = wrap (content, T {width, height}) =
let sattrs = [Height_ <<- toPx height, Width_ <<- toPx width] in let sattrs = [Height_ <<- toPx height, Width_ <<- toPx width] in