Dim circles As OCVMatOfPoint3f
circles.Initialize
'dp=1 --> scaling factor of the algorith. 1=start with the original image
'minDistance --> to prevent false positives. But if circles are concentrical, leave this factor as small as possible
'mImgProc.HoughCircles1( tmpMatGray,circles,mImgProc.HOUGH_GRADIENT,1,10)
mImgProc.HoughCircles(tmpMatGray,circles,mImgProc.HOUGH_GRADIENT,1.0d,10,150,100,20,240)
'The function HoughCircles returns an array of 3-points (x,y,radius)
Log(circles.rows&" "&circles.cols&" "&circles.depth)
Dim allCircles() As OCVPoint3= circles.toArray()
For k=0 To allCircles.Length-1
Log("Detected circle: x="&allCircles(k).x &" y="& allCircles(k).y &" radius="& allCircles(k).z)