PureBasic Forums - English

Code: Select all

...
cvThreshold(*gray, *gray, 210, 255, #CV_THRESH_BINARY)...
...
      For rtnCount = 0 To nContours - 1
        area.d = cvContourArea(*contours, 0, #CV_WHOLE_SEQ_END_INDEX, 0)

;        If area >= 35 And area <= 100000
        If area >= 45 And area <= 1000;000          
          cvDrawContours(*contour, *contours, 255, 155, 0, 0, 155, 255, 0, 0, 0, 1, #CV_AA, 0, 0)
          *poly = cvApproxPoly(*contours, SizeOf(CvContour), *storage, #CV_POLY_APPROX_DP, 5, 1)

;           For rtnPoint = 0 To *poly\total - 1
;             *element = cvGetSeqElem(*poly, rtnPoint)
;             cvCircle(*contour, *element\x, *element\y, 2, 0, 255, 255, 0, 2, #CV_AA, #Null)       
;           Next
          cvMoments(*contours, @moments, 0)
          cx.d = moments\m10 / area
          cy.d = moments\m01 / area
          x = Round(cx, #PB_Round_Nearest)
          y = Round(cy, #PB_Round_Nearest)
          cvCircle(*contour, x, y, 2, 0, 0, 255, 0, 2, #CV_AA, #Null)
          cvCircle(*resize, x, y, 2, 0, 0, 255, 0, 2, #CV_AA, #Null)            
;          cvPutText(*contour, Str(epsilon) + " : " + Str(*poly\total), x + 10, y + 10, @font, 255, 255, 255, 0)
          cvPutText(*resize, Str(x) + "," + Str(y), x + 10, y + 10, @font, 255, 255, 255, 0)          
        EndIf
        *contours = *contours\h_next
      Next
      *param.CvUserData = AllocateMemory(SizeOf(CvUserData))
      *param\Pointer1 = *contour
      *param\Value = window_handle
      cvSetMouseCallback(*window_name, @CvMouseCallback(), *param)

      Repeat
        If *contour
          cvShowImage(#CV_WINDOW_NAME, *contour)
          cvShowImage("Pic", *resize)
          keyPressed = cvWaitKey(0)
        EndIf
      Until keyPressed = 27 Or exitCV
...