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:
@@ -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]
|
||||
|
||||
|
||||
Reference in New Issue
Block a user