Reverse axes 1 and 3

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

View File

@@ -214,8 +214,13 @@ ternaryGraph scale xOffset yOffset definition textDimensions = result
axis2TickStarts = map (\line -> line.start + axis2Offset)
axis3TickStarts = map (\line -> line.start + axis3Offset)
axisTickLabels = \rotation startI -> Array.mapWithIndex (\i point ->
let text = ("E" <> (toString (Int.toNumber (i + startI))))
axisTickLabels = \rotation startI inverted -> Array.mapWithIndex (\i point ->
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
labelText = case Map.lookup (Tup.Tuple text definition.tickTextStyle) textDimensions of
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 = axisTickLabels 0.0 definition.axis1Start $ axis1TickStarts axis1TickLines
axis2TickLabels = axisTickLabels 0.0 definition.axis2Start $ axis2TickStarts axis2TickLines
axis3TickLabels = axisTickLabels 0.0 definition.axis3Start $ axis3TickStarts axis3TickLines
axis1TickLabels = axisTickLabels 0.0 definition.axis1Start true $ axis1TickStarts axis1TickLines
axis2TickLabels = axisTickLabels 0.0 definition.axis2Start false $ axis2TickStarts axis2TickLines
axis3TickLabels = axisTickLabels 0.0 definition.axis3Start true $ axis3TickStarts axis3TickLines
labelFragmentsErr = Array.concat [axisTitlesSvg, axis1TickLabels, axis2TickLabels, axis3TickLabels]