diff --git a/src/TernaryGraph.purs b/src/TernaryGraph.purs index ebb38bd..94785c6 100644 --- a/src/TernaryGraph.purs +++ b/src/TernaryGraph.purs @@ -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]