 getFrameNumber cap = unsafePerformIO $
                       withCapture cap $ \ccap ->
                          {#call cvGetCaptureProperty#} 
-                          ccap cvCAP_POS_FRAMES >>= return . floor
+                          ccap cvCAP_PROP_POS_FRAMES >>= return . floor
 
 -- Video Writing
 

                p_frame <- {#call cvQueryFrame#} ccap 
                creatingImage $ ensure32F p_frame -- NOTE: This works because Image module has generated wrappers for ensure32F

cvCAP_PROP_FRAME_COUNT = 7 -- These are likely to break..
cvCAP_PROP_FPS = 5
cvCAP_PROP_FRAME_WIDTH = 3
cvCAP_PROP_FRAME_HEIGHT = 4
cvCAP_POS_FRAMES = 1

getFrameRate cap = unsafePerformIO $
                      withCapture cap $ \ccap ->

                         return (w,h)


setCapProp cap prop val = withCapture cap $ \ccap ->
                         {#call cvSetCaptureProperty#} 
                           ccap prop (realToFrac val)

getNumberOfFrames cap = unsafePerformIO $
                      withCapture cap $ \ccap ->
                         {#call cvGetCaptureProperty#} 
