```
#DesignerProperty: Key: ReverseYScale, DisplayName: ReverseYScale, FieldType: Boolean, DefaultValue: False, Description: Causes Y axis to reverse, min on top, max on bottom.
Type ScaleData (Scale As Double, MinVal As Double, MaxVal As Double, MinManu As Double, MaxManu As Double, IntervalManu As Double, MinAuto As Double, MaxAuto As Double, IntervalAuto As Double, Interval As Double, NbIntervals As Int, Automatic As Boolean, Different As Boolean, Exp As Double, YZeroAxis As Boolean, YZeroAxisHighlight As Boolean, ScaleValues As String, Logarithmic As Boolean, DrawXScale As Boolean, DrawYScale As Boolean, ReverseYScale As Boolean)
Scale(sY(i)).ReverseYScale = Props.GetDefault("ReverseYScale", False)
Private Sub DrawScaleY
...
If Scale(sY(0)).ReverseYScale = False Then
txt = NumberFormat3(Scale(sY(0)).MinVal + i * Scale(sY(0)).Interval, 6)
Else ' reverse Y
txt = NumberFormat3(Scale(sY(0)).MaxVal - i * Scale(sY(0)).Interval, 6)
End If
...
Private Sub DrawYXLines
...
If Scale(sY(0)).Logarithmic = False Then
If Scale(sY(0)).ReverseYScale = False Then
y0 = Graph.Bottom - (yxVal(1) - Scale(sY(0)).MinVal) * Scale(sY(0)).Scale
Else ' reverse Y
y0 = Graph.Bottom - (Scale(sY(0)).MaxVal - yxVal(1)) * Scale(sY(0)).Scale
End If
Else
...
...
If Scale(sY(0)).Logarithmic = False Then
If Scale(sY(0)).ReverseYScale = False Then
y1 = Graph.Bottom - (yxVal(1) - Scale(sY(0)).MinVal) * Scale(sY(0)).Scale
Else ' xxx reverse Y
y1 = Graph.Bottom - (Scale(sY(0)).MaxVal - yxVal(1)) * Scale(sY(0)).Scale
End If
Else
...
Public Sub ClearPointsFrom(LineIndex As Int)
Private ID As ItemData
If Graph.ChartType = "YX_CHART" And Items.Size > LineIndex Then
ID = Items.Get(LineIndex)
ID.YXArray.Initialize
End If
End Sub
Public Sub setReverseYScale(ReverseYScale As Boolean)
Scale(sY(0)).ReverseYScale = ReverseYScale
Scale(sY(1)).ReverseYScale = ReverseYScale
Scale(sY(2)).ReverseYScale = ReverseYScale
Scale(sY(3)).ReverseYScale = ReverseYScale
End Sub
```