From 8e2f92a8b624f6ec59f4d30d2b0b6c0ffceeab76 Mon Sep 17 00:00:00 2001
From: Rhiannon Morris <rhi@rhiannon.website>
Date: Fri, 30 Apr 2021 13:45:18 +0200
Subject: [PATCH] round line join

---
 laantas-script/GlyphsBase.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/laantas-script/GlyphsBase.hs b/laantas-script/GlyphsBase.hs
index 0ac2421..83c3606 100644
--- a/laantas-script/GlyphsBase.hs
+++ b/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