'**********************historyinit() subroutine**********************
'
'   purpose: create an array of points that will be used for finding
'            the center of an object as defined by the edges found by
'            sobel()
'
'   input: none
'
'   output: x and y values for starting locations for the center points
'           of an object
'
'********************************************************************
Sub historyinit()
    history(0, 0) = 40 'y1
    history(0, 1) = 80 'x1
    history(1, 0) = 60 'y2
    history(1, 1) = 80 'x2
    history(2, 0) = 80 'y3
    history(2, 1) = 80 'x3
End Sub