From 124132fdc73cf2f126e6b918e26dbd3f243a0255 Mon Sep 17 00:00:00 2001
From: Nathan McRae <nathanm@electroimpact.com>
Date: Wed, 20 Aug 2025 20:29:54 -0700
Subject: [PATCH] Center layout better

---
 src/Main.purs         | 6 ++----
 src/TernaryGraph.purs | 2 +-
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/src/Main.purs b/src/Main.purs
index dbb98ca..b6827cc 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -148,7 +148,7 @@ update e = do
     Nothing -> "Not found"
     Just { widthPx: width, heightPx: height} -> (toString width) <> ", " <> (toString height)
 
-  let mySVGErr = ternaryGraph 100.0 50.0 50.0 graphDef textDimensions
+  let mySVGErr = ternaryGraph 100.0 50.0 70.0 graphDef textDimensions
   mySVG <- case mySVGErr of
     Left error -> throw error
     Right svg -> pure svg
@@ -207,9 +207,7 @@ main = do
 
   log $ Foldable.foldr (\dim str -> str <> "\n" <> (toString dim.widthPx) <> ", " <> (toString dim.heightPx)) "" $ Map.values textDimensions
 
-  let textDimensions2 = Map.mapMaybe (\dim -> Just {widthPx: 0.0, heightPx: 0.0}) textDimensions
-
-  let mySVGErr = ternaryGraph 100.0 50.0 50.0 graphDef textDimensions2
+  let mySVGErr = ternaryGraph 100.0 50.0 70.0 graphDef textDimensions
   mySVG <- case mySVGErr of
     Left error -> throw error
     Right svg -> pure svg
diff --git a/src/TernaryGraph.purs b/src/TernaryGraph.purs
index d87604a..4107a93 100644
--- a/src/TernaryGraph.purs
+++ b/src/TernaryGraph.purs
@@ -129,7 +129,7 @@ ternaryGraphSvg fragments = """<?xml version="1.0" encoding="UTF-8"?>
   <svg
     width="150mm"
     height="120mm"
-    viewBox="-50 -50 200 200"
+    viewBox="-50 -50 200 250"
     version="1.1"
     xmlns="http://www.w3.org/2000/svg"
     xmlns:inkscape="http://www.inkscape.org/namespaces/inkscape"