Could someone please tell me how to stop paint from drawing a line when it is positioned on another point.
The problem appears between point 4 and 5 which should not be drawn.
In the example I try to draw the capital letter "A" but you see the result.
Private afPoints As New Float[][]
Public Sub ToolButton1_Click()
afPoints.Add([10, 100])
afPoints.Add([60, 10])
afPoints.Add([60, 10])
afPoints.Add([110, 100])
afPoints.Add([30, 50])
afPoints.Add([80, 50])
DrawingArea1.Refresh
End
Public Sub DrawingArea1_Draw()
Dim z As Integer
If afPoints.Count > 0 Then
Paint.Brush = Paint.Color(Color.Red)
Paint.LineWidth = 3
For z = 0 To afPoints.Max - 1
Paint.MoveTo(afPoints[0], afPoints[1])
Paint.LineTo(afPoints[z + 1][0], afPoints[z + 1][1])
Paint.Stroke
Next
Endif
End
Regrds