laantas-script/GlyphsBase.hs

@@ -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