round line join
This commit is contained in:
parent
7bc480d45a
commit
ee9923dcc1
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue