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

Reverse axes 1 and 3

Browse Source 
Because we want axis 1 to increase to the right, and axis 3 to increase
up
This commit is contained in:
Nathan McRae
2025-09-03 21:40:39 -07:00
parent 9859938df7
commit 4394d26184
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/TernaryGraph.purs
View File

@@ -214,8 +214,13 @@ ternaryGraph scale xOffset yOffset definition textDimensions = result
axis2TickStarts = map (\line -> line.start + axis2Offset) axis2TickStarts = map (\line -> line.start + axis2Offset)
axis3TickStarts = map (\line -> line.start + axis3Offset) axis3TickStarts = map (\line -> line.start + axis3Offset)
axisTickLabels = \rotation startI -> Array.mapWithIndex (\i point -> axisTickLabels = \rotation startI inverted -> Array.mapWithIndex (\i point ->
let text = ("E" <> (toString (Int.toNumber (i + startI)))) let index = if inverted
then startI + definition.numTicks - 1 - i
else startI + i
in
--let index = direction * (i + startI) in
let text = ("E" <> (toString (Int.toNumber index)))
angle = 0.0 angle = 0.0
labelText = case Map.lookup (Tup.Tuple text definition.tickTextStyle) textDimensions of labelText = case Map.lookup (Tup.Tuple text definition.tickTextStyle) textDimensions of
Maybe.Nothing -> Either.Left ("Failed to find '" <> text <> "' in dimensions map") Maybe.Nothing -> Either.Left ("Failed to find '" <> text <> "' in dimensions map")
@@ -224,9 +229,9 @@ ternaryGraph scale xOffset yOffset definition textDimensions = result
) )
axis1TickLabels :: Array (Either.Either String XMLFragment) axis1TickLabels :: Array (Either.Either String XMLFragment)
axis1TickLabels = axisTickLabels 0.0 definition.axis1Start $ axis1TickStarts axis1TickLines axis1TickLabels = axisTickLabels 0.0 definition.axis1Start true $ axis1TickStarts axis1TickLines
axis2TickLabels = axisTickLabels 0.0 definition.axis2Start $ axis2TickStarts axis2TickLines axis2TickLabels = axisTickLabels 0.0 definition.axis2Start false $ axis2TickStarts axis2TickLines
axis3TickLabels = axisTickLabels 0.0 definition.axis3Start $ axis3TickStarts axis3TickLines axis3TickLabels = axisTickLabels 0.0 definition.axis3Start true $ axis3TickStarts axis3TickLines
labelFragmentsErr = Array.concat [axisTitlesSvg, axis1TickLabels, axis2TickLabels, axis3TickLabels] labelFragmentsErr = Array.concat [axisTitlesSvg, axis1TickLabels, axis2TickLabels, axis3TickLabels]