'*************************linesegments() subroutine******************
'
'   purpose: takes the points in the history array and computes
'            draws the line segments between each pair of points
'
'   input: history array
'
'   output: draws the line segments in the picturebox control
'           draws a small circle at each of the points in the history array
'
'********************************************************************
Sub linesegments()
    Picture4.ScaleMode = vbPixels
    Picture4.DrawWidth = 5
    
    Dim i As Integer
    
    For i = 0 To bfln - 2
        Picture4.Line (history((i + 1), 1), history((i + 1), 0))-(history(i, 1), history(i, 0)), RGB(0, 255, 0)
    Next i

    For i = 0 To bfln - 1
        Picture4.Circle (history(i, 1), history(i, 0)), 5, RGB(0, 0, 255)
    Next i
End Sub