PureBasic Forums - English

I've done some testing with the 64-bit DLLs working with PureBasic; some functions need to be declared differently from the method I used in cv_functions.pbi... or more accurately they need to be declared the same way they're referenced in the manual; there are also some Structure discrepancies (alignment issues) between versions...

With the 32-bit DLL functions I needed to split out the Structure parameters, but for the same 64-bit DLL functions the Structure parameters needed to remain intact in order to work; a lot of trial and error.

Something like: [ CvRect ] vs [ x, y, width, height ]

And because there was/is so much to do creating an interface between PureBasic and OpenCV - I decided to remove the 64-bit part of the package, at least for the interim - until I'm comfortable with the progress.

Ziltch wrote:I have been using OpenCV in BlitzMax and C++ for ages. Great to see your work here getting it working with purebasic.

I am getting POLINK errors using PB x64. I can see no x64 directory in the binaries directory.
Is this now only 32bit?

JHPJHP wrote:Hi AAT,
The new example may be of some help with your current project.

      *poly.CvSeq   
      *pt1.CvPoint
      *pt2.CvPoint
      
      For rtnCount = 0 To nContours - 1
        area.d = cvContourArea(*contours, 0, #CV_WHOLE_SEQ_END_INDEX, 0)
        If area >= 35 And area <= 100000        
          *poly = cvApproxPoly(*contours, SizeOf(CvContour), *storage, #CV_POLY_APPROX_DP, cvContourPerimeter(*contours) * 0.02, 0)
          total = *poly\total
                    
          For rtnPoint = 0 To total - 1
            *pt1 = cvGetSeqElem(*poly, rtnPoint)
            *pt2 = cvGetSeqElem(*poly, (rtnPoint+1)%total)
            Select total
              Case 3
                cvLine(*resize, *pt1\x, *pt1\y, *pt2\x, *pt2\y, 255, 0, 0, 0, 2, #CV_AA, #Null)                  
              Case 4  
                cvLine(*resize, *pt1\x, *pt1\y, *pt2\x, *pt2\y, 0, 255, 0, 0, 2, #CV_AA, #Null) 
              Case 9
                cvLine(*resize, *pt1\x, *pt1\y, *pt2\x, *pt2\y, 0, 0, 255, 0, 2, #CV_AA, #Null) 
              Default
                cvLine(*resize, *pt1\x, *pt1\y, *pt2\x, *pt2\y, 0, 200, 255, 0, 2, #CV_AA, #Null) 
            EndSelect
              
          Next          
        EndIf
        *contours = *contours\h_next
      Next

Philippe-felixer76-3 wrote:...I have some idea's to improve the overal ocr a bit more.. so i will be working on it a bit more..

CvMat* cvGetSubRect(const CvArr* arr, CvMat* submat, CvRect rect)

submat – Pointer to the resultant sub-array header

*roi.CvMat
submat.CvMat
*roi = cvGetSubRect(*gray, @submat, self(rtnCount)\x, self(rtnCount)\y, self(rtnCount)\width, self(rtnCount)\height)
nZero = cvCountNonZero(*roi)

JHPJHP wrote:Updated:
- added Constants, Functions
- added 1 example
-- cv_cam_game.pb: falling ball game played on the webcam interface
- added 2 default images

This is another one of those examples where I saw a demonstration video and wanted to duplicate it... enjoy.
- converted from Python example located here