nathanmcrae/ternary-graph-generator
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Center layout better

Browse Source
This commit is contained in:
Nathan McRae
2025-08-20 20:29:54 -07:00
parent 6d8d32c8eb
commit 124132fdc7
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/Main.purs
View File

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

2
src/TernaryGraph.purs
View File

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