Public Overrides Sub Update(transformer As IChartTransformer)
..
CalculatePoints(chartTransformer)
Debug.WriteLine("CalculatePoints method completed in {0} milliseconds.", sw.ElapsedMilliseconds)
UpdateVisual()
End If
End Sub
Private Sub CalculatePoints(ByVal cartesianTransformer As ChartTransform.ChartCartesianTransformer)
Dim xAxis As ChartAxis = cartesianTransformer.XAxis
Dim cnt As Integer = xChartVals.Count - 1
Dim start As Integer = 0, endV As Integer = 0
start = Math.Floor(xAxis.VisibleRange.Start)
endV = Math.Ceiling(xAxis.VisibleRange.End)
If start < 0 Then
start = 0
End If
If endV > yChartVals.Count - 1 Then
endV = yChartVals.Count - 1
End If
For i As Integer = start To [endV]
GetType(FastStepLineBitmapSegment).GetMethod("AddDataPoint", BindingFlags.InvokeMethod Or BindingFlags.Instance Or BindingFlags.NonPublic).
Invoke(Me, New Object() {cartesianTransformer, i})
Next
End Sub
|