' Linesarray is declared as Dim Linesarray(1000,4) as Int in the Globals section. Could be a List as well
Dim myColorScalar As OCVScalar
Dim onedegree As Float = 3.1415/180
myColorScalar.Initialize3(0,255,0)
Dim LinesP As OCVMat
LinesP.Initialize
mImgProc.HoughLinesP(tmpMat,LinesP,1,onedegree,100,40,5)
Log("Lines: "&LinesP.rows)
For i = 0 To LinesP.rows-1
Dim l() As Double = LinesP.get5(i,0) 'This is crucial to access data in the LinesP OCVMat
Log ("Line i :"&i&" "&l(0)&","&l(1)&" to "&l(2)&","&l(3))
Linesarray(i,0) = l(0)
Linesarray(i,1) = l(1)
Linesarray(i,2) = l(2)
Linesarray(i,3) = l(3)
Next
NumberofLines = LinesP.rows
' Draw lines detected in
srcMat.copyTo( tmpMat)
If NumberofLines > 0 Then
Dim myColorScalar As OCVScalar
myColorScalar.Initialize3(255,0,0) 'thats red
For i = 0 To NumberofLines-1
Dim p1 As OCVPoint
Dim p2 As OCVPoint
p1 = CreatePoint(Linesarray(i,0),Linesarray(i,1))
p2 = CreatePoint(Linesarray(i,2),Linesarray(i,3))
Sleep(100) 'show progress
mImgProc.line(tmpMat,p1,p2,myColorScalar,2,1,0) 'p1 and p2 must be passed on as above
mUtils.matToBitmap1(tmpMat,dstBitmap)
dstIV.Invalidate
Next
End If