simple-firewire-0.1.3.4: System/Camera/Firewire/Simple.hs
{-#LANGUAGE ScopedTypeVariables, TypeFamilies, DataKinds#-}
module System.Camera.Firewire.Simple (
-- * Basic types
Camera
, CameraId
, CaptureFlag
, DC1394
-- * Capture flags
, (&+)
, autoISO
, candwidthAlloc
, channelAlloc
, defaultFlags
-- * Setting up cameras
, cameraFromID
, setFrameRate
, setISOSpeed
, setOperationMode
, withVideoMode
, setupCamera
-- * Setting up the context, cameras and the transmission
, getCameras
, withDC1394
, startVideoTransmission
, stopVideoTransmission
, stopCapture
-- * Camera properties
, oneShotCapable
-- * Controlling cameras
, resetCamera
, resetBus
, avtReset
, setPower
, setGain
, setBrightness
, setExposure
, setSharpness
, setHue
, setSaturation
, setGamma
, setShutter
, setGain
, setIris
, setFocus
, setTrigger
, setTriggerDelay
-- , setWhiteBalance
-- , setTemperature
-- , setWhiteShading
, setFeatureFrameRate
, setZoom
, setPan
, setTilt
, setOpticalFilter
, setCaptureSize
, setCaptureQuality
-- * Getting images
, getFrame
, flushBuffer
-- * Various flags
, DCResult(..)
, Framerate(..)
, ISOSpeed(..)
, OperationMode(..)
, VideoMode(..)
) where
import Bindings.DC1394
import CV.Conversions
import CV.Image
import Control.Applicative
import Control.Exception
import Control.Monad
import Data.Bits
import Data.Word
import Foreign.C.Types
import Foreign.Concurrent
import Foreign.ForeignPtr hiding (newForeignPtr)
import Foreign.Marshal.Alloc
import Foreign.Marshal.Array
import Foreign.Ptr
import Foreign.Storable
import System.IO.Unsafe
import Unsafe.Coerce
getIds :: C'dc1394camera_list_t -> IO [C'dc1394camera_id_t]
getIds camList = peekArray (fromIntegral $ c'dc1394camera_list_t'num camList)
(c'dc1394camera_list_t'ids camList)
-- | Unique camera identifier
type CameraId = C'dc1394camera_id_t
-- | Get list of available cameras
getCameras :: DC1394 -> IO [CameraId]
getCameras dc =
withDCPtr dc $ \c_dc ->
alloca $ \list -> bracket
(checking $ c'dc1394_camera_enumerate c_dc list)
(\_ -> peek list >>= c'dc1394_camera_free_list)
(\_ -> peek list >>= peek >>= getIds)
-- | Poll frames until the camera buffer is empty. Notice that you
-- have to restart the transmission after this call
flushBuffer :: Camera a -> IO ()
flushBuffer cam = alloca $ \(framePtrPtr :: Ptr (Ptr C'dc1394video_frame_t)) -> do
withCameraPtr cam $ flushLoop framePtrPtr
where
flushLoop framePtrPtr cam = do
c'dc1394_capture_dequeue cam c'DC1394_CAPTURE_POLICY_POLL framePtrPtr
-- print "Flush!"
framePtr :: Ptr C'dc1394video_frame_t <- peek framePtrPtr
-- putStrLn $ show (framePtr,framePtrPtr)
when (framePtr /= nullPtr) $ c'dc1394_capture_enqueue cam framePtr >> flushLoop framePtrPtr cam
class GetFrame a where
type ResultImageOf a :: *
getFrame :: Camera a -> IO (Maybe (ResultImageOf a))
-- | Grab a frame from the camera.
--getFrame :: Camera -> IO (Maybe (Image RGB D8))
instance GetFrame Mode_640x480_RGB8 where
type ResultImageOf Mode_640x480_RGB8 = Image RGB D8
getFrame camera' = getPrimalFrame camera' Mode_640x480_RGB8 convertToCVRGB
instance GetFrame Mode_800x600_RGB8 where
type ResultImageOf Mode_800x600_RGB8 = Image RGB D8
getFrame camera' = getPrimalFrame camera' Mode_800x600_RGB8 convertToCVRGB
instance GetFrame Mode_1024x768_RGB8 where
type ResultImageOf Mode_1024x768_RGB8 = Image RGB D8
getFrame camera' = getPrimalFrame camera' Mode_1024x768_RGB8 convertToCVRGB
instance GetFrame Mode_1280x960_RGB8 where
type ResultImageOf Mode_1280x960_RGB8 = Image RGB D8
getFrame camera' = getPrimalFrame camera' Mode_1280x960_RGB8 convertToCVRGB
instance GetFrame Mode_640x480_MONO8 where
type ResultImageOf Mode_640x480_MONO8 = Image GrayScale D8
getFrame camera' = getPrimalFrame camera' Mode_640x480_MONO8 convertToCVMONO8
instance GetFrame Mode_800x600_MONO8 where
type ResultImageOf Mode_800x600_MONO8 = Image GrayScale D8
getFrame camera' = getPrimalFrame camera' Mode_800x600_MONO8 convertToCVMONO8
instance GetFrame Mode_1024x768_MONO8 where
type ResultImageOf Mode_1024x768_MONO8 = Image GrayScale D8
getFrame camera' = getPrimalFrame camera' Mode_1024x768_MONO8 convertToCVMONO8
instance GetFrame Mode_1280x960_MONO8 where
type ResultImageOf Mode_1280x960_MONO8 = Image GrayScale D8
getFrame camera' = getPrimalFrame camera' Mode_1280x960_MONO8 convertToCVMONO8
-- | Perform operations with a given video-mode. The idea is that each camera outside the
-- `withVideoMode` is represented with an UnsetMode with which you can't grab frames.
-- This is done regardless of the actual device mode.
class WithVideoMode a where
withVideoMode :: Camera UnsetMode -> (Camera a -> IO b) -> IO b
instance WithVideoMode Mode_640x480_RGB8 where
withVideoMode cam op = withCameraPtr cam $ \camera ->
(checking $ c'dc1394_video_set_mode camera (toVideoMode Mode_640x480_RGB8))
>> op (unsafeCoerce cam)
instance WithVideoMode Mode_640x480_MONO8 where
withVideoMode cam op = withCameraPtr cam $ \camera ->
(checking $ c'dc1394_video_set_mode camera (toVideoMode Mode_640x480_MONO8))
>> op (unsafeCoerce cam)
instance WithVideoMode Mode_800x600_RGB8 where
withVideoMode cam op = withCameraPtr cam $ \camera ->
(checking $ c'dc1394_video_set_mode camera (toVideoMode Mode_800x600_RGB8))
>> op (unsafeCoerce cam)
instance WithVideoMode Mode_1280x960_RGB8 where
withVideoMode cam op = withCameraPtr cam $ \camera ->
(checking $ c'dc1394_video_set_mode camera (toVideoMode Mode_1280x960_RGB8))
>> op (unsafeCoerce cam)
getPrimalFrame camera' assumedMode conv = alloca $ \(framePtr :: Ptr (Ptr C'dc1394video_frame_t)) ->
withCameraPtr camera' $ \camera -> do
mode <- getMode camera
when (mode /= fromVideoMode assumedMode) $ error "Mode sync error!"
c'dc1394_capture_dequeue camera c'DC1394_CAPTURE_POLICY_WAIT framePtr
frameP :: Ptr C'dc1394video_frame_t <- peek framePtr
if frameP == nullPtr -- Perhaps there was no frame available?
then c'dc1394_capture_enqueue camera frameP >> return Nothing
else do
--corrupt <- c'dc1394_capture_is_frame_corrupt camera frameP -- Or it was corrupted?
-- For some reason this seems always true on os x
let corrupt = 0
case corrupt of
0 -> do -- Yay! A frame!
dataPtr <- c'dc1394video_frame_t'image <$> (peek framePtr >>= peek)
r <- conv assumedMode dataPtr
c'dc1394_capture_enqueue camera frameP
return . Just $ r
_ -> c'dc1394_capture_enqueue camera frameP >> return Nothing
convertToCVRGB mode dataPtr = case mode of
Mode_640x480_RGB8 -> unsafe8UC_BGRFromPtr (640,480) dataPtr
Mode_800x600_RGB8 -> unsafe8UC_BGRFromPtr (800,600) dataPtr
Mode_1024x768_RGB8 -> unsafe8UC_BGRFromPtr (1024,768) dataPtr
Mode_1280x960_RGB8 -> unsafe8UC_BGRFromPtr (1280,960) dataPtr
Mode_1600x1200_RGB8 -> unsafe8UC_BGRFromPtr (1600,1200) dataPtr
convertToCVMONO8 mode dataPtr = case mode of
Mode_640x480_MONO8 -> unsafe8UC_MONOFromPtr (640,480) dataPtr
Mode_800x600_MONO8 -> unsafe8UC_MONOFromPtr (800,600) dataPtr
Mode_1024x768_MONO8 -> unsafe8UC_MONOFromPtr (1024,768) dataPtr
Mode_1280x960_MONO8 -> unsafe8UC_MONOFromPtr (1280,960) dataPtr
Mode_1600x1200_MONO8 -> unsafe8UC_MONOFromPtr (1600,1200) dataPtr
convertToCVMONO16 mode dataPtr = case mode of
Mode_640x480_MONO16 -> error "Unsupported video mode"
Mode_800x600_MONO16 -> error "Unsupported video mode"
Mode_1024x768_MONO16 -> error "Unsupported video mode"
Mode_1280x960_MONO16 -> error "Unsupported video mode"
Mode_1600x1200_MONO16 -> error "Unsupported video mode"
convertToCVYUV mode dataPtr = case mode of
Mode_160x120_YUV444 -> error "Unsupported video mode"
Mode_320x240_YUV422 -> error "Unsupported video mode"
Mode_640x480_YUV411 -> error "Unsupported video mode"
Mode_640x480_YUV422 -> error "Unsupported video mode"
Mode_800x600_YUV422 -> error "Unsupported video mode"
Mode_1024x768_YUV422 -> error "Unsupported video mode"
Mode_1280x960_YUV422 -> error "Unsupported video mode"
Mode_1600x1200_YUV422 -> error "Unsupported video mode"
getMode :: Ptr C'dc1394camera_t -> IO CInt
getMode camera = alloca $ \(mode :: Ptr CInt) -> do
c'dc1394_video_get_mode camera mode
peek mode
sizeFromMode camera mode = alloca $ \w -> alloca $ \h -> do
c'dc1394_get_image_size_from_video_mode camera mode w h
(,) <$> peek w <*> peek h
-- | Abstract type for cameras
data Camera (mode :: VideoMode) = Camera (ForeignPtr C'dc1394camera_t)
--type Camera = Camera' Mode_640x480_RGB8
-- | Create Camera from ID. Although the camera type is memory managed, the user is required
-- to stop data transfer and reset appropriate settings. Finalizers are not quaranteed to run.
cameraFromID :: DC1394 -> CameraId -> IO (Camera UnsetMode)
cameraFromID dc e = do
let guid = c'dc1394camera_id_t'guid e
camera <- withDCPtr dc $ \c_dc -> c'dc1394_camera_new c_dc guid
when (camera==nullPtr) $ error "Could not create camera"
Camera <$> newForeignPtr camera (c'dc1394_camera_free camera)
-- #TODO What else should be cleaned up?
withCameraPtr (Camera fptr) = withForeignPtr fptr
withCamera (Camera fptr) op = withForeignPtr fptr (\ptr -> peek ptr >>= op)
-- | DC1394 context used for creating cameras, etc.
newtype DC1394 = DC1394 (Ptr C'dc1394_t)
-- | Create a new DC1394 context
withDC1394 :: (DC1394 -> IO a) -> IO a
withDC1394 op = bracket
c'dc1394_new
c'dc1394_free
(\dc -> when (dc==nullPtr) (error "Could not get dc1394 context")
>> op (DC1394 dc))
withDCPtr :: DC1394 -> (Ptr C'dc1394_t -> IO b) -> IO b
withDCPtr (DC1394 ptr) op = op ptr
-- | Set the video transmission on
startVideoTransmission :: Camera a -> IO ()
startVideoTransmission c = withCameraPtr c $ \camera -> checking $ c'dc1394_video_set_transmission camera c'DC1394_ON
-- | Set the video transmission off. Call this when you are done with the camera
stopVideoTransmission :: Camera a -> IO ()
stopVideoTransmission c = withCameraPtr c $ \camera -> checking $ c'dc1394_video_set_transmission camera c'DC1394_OFF
-- | Stop capturing. Call this when you are done with the camera.
stopCapture :: Camera a -> IO ()
stopCapture c = withCameraPtr c $ \camera -> checking $ c'dc1394_capture_stop camera
-- | Does the camera have one-shot functionality?
oneShotCapable :: Camera a -> Bool
oneShotCapable camera = unsafePerformIO $ withCamera camera (return . itob . c'dc1394camera_t'one_shot_capable)
-- | Type for capture flags
newtype CaptureFlag = CF CInt
channelAlloc, candwidthAlloc, defaultFlags, autoISO :: CaptureFlag
channelAlloc = CF c'DC1394_CAPTURE_FLAGS_CHANNEL_ALLOC
candwidthAlloc = CF c'DC1394_CAPTURE_FLAGS_BANDWIDTH_ALLOC
defaultFlags = CF c'DC1394_CAPTURE_FLAGS_DEFAULT
autoISO = CF c'DC1394_CAPTURE_FLAGS_AUTO_ISO
fromCF (CF a) = a
-- | Join flags
(&+) :: CaptureFlag -> CaptureFlag -> CaptureFlag
CF a &+ CF b = CF (a .&. b)
-- | Set power. True = On, False = Off
setPower :: Camera a -> Bool -> IO ()
setPower c state = withCameraPtr c $ \camera ->
checking $ c'dc1394_camera_set_power camera $
case state of
True -> c'DC1394_ON
False -> c'DC1394_OFF
-- | Set ISO speed
setISOSpeed :: Camera a -> ISOSpeed -> IO ()
setISOSpeed c iso = withCameraPtr c $ \camera ->
checking $ c'dc1394_video_set_iso_speed camera (fromISO iso)
-- | Set operation mode
data OperationMode = Legacy | B deriving (Eq,Ord,Show)
setOperationMode :: Camera a -> OperationMode -> IO ()
setOperationMode c mode = withCameraPtr c $ \camera ->
checking $ c'dc1394_video_set_operation_mode camera $
case mode of
Legacy -> c'DC1394_OPERATION_MODE_LEGACY
B -> c'DC1394_OPERATION_MODE_1394B
getOperationMode :: Camera a -> IO OperationMode
getOperationMode c = withCameraPtr c $ \camera ->
alloca $ \modeOut -> do
checking $ c'dc1394_video_get_operation_mode camera modeOut
r <- peek modeOut
if r == c'DC1394_OPERATION_MODE_LEGACY
then return Legacy
else return B -- TODO: Make this more secure by adding 'other' case
-- | Reset the camera
resetCamera :: Camera a -> IO ()
resetCamera c = withCameraPtr c $ \camera ->
checking $ c'dc1394_camera_reset camera
-- | Reset the bus
resetBus :: Camera a -> IO ()
resetBus c = withCameraPtr c $ \camera ->
checking $ c'dc1394_reset_bus camera
-- | AVT Reset
avtReset :: Camera a -> IO ()
avtReset c = withCameraPtr c $ \camera ->
checking $ c'dc1394_avt_reset camera
-- | Set the video mode, type-UNSAFE at current point..
setVideoMode :: Camera a -> VideoMode -> IO ()
setVideoMode c mode = withCameraPtr c $ \camera ->
checking $ c'dc1394_video_set_mode camera (toVideoMode mode)
-- | Set the frame rate
setFrameRate :: Camera a -> Framerate -> IO ()
setFrameRate c rate = withCameraPtr c $ \camera ->
checking $ c'dc1394_video_set_framerate camera (toFramerate rate)
-- | Setup the camera for capturing
setupCamera :: Camera a -> Int -> CaptureFlag -> IO ()
setupCamera c dmaBuffers cf = withCameraPtr c $ \camera ->
checking $ c'dc1394_capture_setup camera
(fromIntegral dmaBuffers) (fromCF cf)
-- | Set camera shutter speed
setFeature :: CUInt -> Camera a -> Word32 -> IO ()
setFeature f c speed = withCameraPtr c $ \camera ->
checking $ c'dc1394_feature_set_value
camera
f
(fromIntegral speed)
setBrightness = setFeature c'DC1394_FEATURE_BRIGHTNESS
setExposure = setFeature c'DC1394_FEATURE_EXPOSURE
setSharpness = setFeature c'DC1394_FEATURE_SHARPNESS
setHue = setFeature c'DC1394_FEATURE_HUE
setSaturation = setFeature c'DC1394_FEATURE_SATURATION
setGamma = setFeature c'DC1394_FEATURE_GAMMA
setShutter = setFeature c'DC1394_FEATURE_SHUTTER
setGain = setFeature c'DC1394_FEATURE_GAIN
setIris = setFeature c'DC1394_FEATURE_IRIS
setFocus = setFeature c'DC1394_FEATURE_FOCUS
setTrigger = setFeature c'DC1394_FEATURE_TRIGGER
setTriggerDelay = setFeature c'DC1394_FEATURE_TRIGGER_DELAY
setFeatureFrameRate = setFeature c'DC1394_FEATURE_FRAME_RATE
setZoom = setFeature c'DC1394_FEATURE_ZOOM
setPan = setFeature c'DC1394_FEATURE_PAN
setTilt = setFeature c'DC1394_FEATURE_TILT
setOpticalFilter = setFeature c'DC1394_FEATURE_OPTICAL_FILTER
setCaptureSize = setFeature c'DC1394_FEATURE_CAPTURE_SIZE
setCaptureQuality = setFeature c'DC1394_FEATURE_CAPTURE_QUALITY
-- These are multiple valued and cannot be set as features
-- setWhiteBalance = setFeature c'DC1394_FEATURE_WHITE_BALANCE
-- setWhiteShading = setFeature c'DC1394_FEATURE_WHITE_SHADING
-- setTemperature = setFeature c'DC1394_FEATURE_TEMPERATURE
-- | Execute a libdc1394 function and check for the error code. Currently raises the error as
-- UserError, but in future might provide a more reasonable error hierarchy.
checking :: IO CInt -> IO ()
checking op = do
r <- toResult <$>op
case r of
SUCCESS -> return ()
e -> error (show e)
itob 0 = False
itob _ = True
data ISOSpeed =
ISO_100
| ISO_200
| ISO_400
| ISO_800
| ISO_1600
| ISO_3200
fromISO ISO_100 = c'DC1394_ISO_SPEED_100
fromISO ISO_200 = c'DC1394_ISO_SPEED_200
fromISO ISO_400 = c'DC1394_ISO_SPEED_400
fromISO ISO_800 = c'DC1394_ISO_SPEED_800
fromISO ISO_1600 = c'DC1394_ISO_SPEED_1600
fromISO ISO_3200 = c'DC1394_ISO_SPEED_3200
toISO i
| i == c'DC1394_ISO_SPEED_100 = ISO_100
| i == c'DC1394_ISO_SPEED_200 = ISO_200
| i == c'DC1394_ISO_SPEED_400 = ISO_400
| i == c'DC1394_ISO_SPEED_800 = ISO_800
| i == c'DC1394_ISO_SPEED_1600 = ISO_1600
| i == c'DC1394_ISO_SPEED_3200 = ISO_3200
data DCResult =
SUCCESS
| FAILURE
| NOT_A_CAMERA
| FUNCTION_NOT_SUPPORTED
| CAMERA_NOT_INITIALIZED
| MEMORY_ALLOCATION_FAILURE
| TAGGED_REGISTER_NOT_FOUND
| NO_ISO_CHANNEL
| NO_BANDWIDTH
| IOCTL_FAILURE
| CAPTURE_IS_NOT_SET
| CAPTURE_IS_RUNNING
| RAW1394_FAILURE
| FORMAT7_ERROR_FLAG_1
| FORMAT7_ERROR_FLAG_2
| INVALID_ARGUMENT_VALUE
| REQ_VALUE_OUTSIDE_RANGE
| INVALID_FEATURE
| INVALID_VIDEO_FORMAT
| INVALID_VIDEO_MODE
| INVALID_FRAMERATE
| INVALID_TRIGGER_MODE
| INVALID_TRIGGER_SOURCE
| INVALID_ISO_SPEED
| INVALID_IIDC_VERSION
| INVALID_COLOR_CODING
| INVALID_COLOR_FILTER
| INVALID_CAPTURE_POLICY
| INVALID_ERROR_CODE
| INVALID_BAYER_METHOD
| INVALID_VIDEO1394_DEVICE
| INVALID_OPERATION_MODE
| INVALID_TRIGGER_POLARITY
| INVALID_FEATURE_MODE
| INVALID_LOG_TYPE
| INVALID_BYTE_ORDER
| INVALID_STEREO_METHOD
| BASLER_NO_MORE_SFF_CHUNKS
| BASLER_CORRUPTED_SFF_CHUNK
| BASLER_UNKNOWN_SFF_CHUNK
deriving (Show,Eq)
fromResult SUCCESS = c'DC1394_SUCCESS
fromResult FAILURE = c'DC1394_FAILURE
fromResult NOT_A_CAMERA = c'DC1394_NOT_A_CAMERA
fromResult FUNCTION_NOT_SUPPORTED = c'DC1394_FUNCTION_NOT_SUPPORTED
fromResult CAMERA_NOT_INITIALIZED = c'DC1394_CAMERA_NOT_INITIALIZED
fromResult MEMORY_ALLOCATION_FAILURE = c'DC1394_MEMORY_ALLOCATION_FAILURE
fromResult TAGGED_REGISTER_NOT_FOUND = c'DC1394_TAGGED_REGISTER_NOT_FOUND
fromResult NO_ISO_CHANNEL = c'DC1394_NO_ISO_CHANNEL
fromResult NO_BANDWIDTH = c'DC1394_NO_BANDWIDTH
fromResult IOCTL_FAILURE = c'DC1394_IOCTL_FAILURE
fromResult CAPTURE_IS_NOT_SET = c'DC1394_CAPTURE_IS_NOT_SET
fromResult CAPTURE_IS_RUNNING = c'DC1394_CAPTURE_IS_RUNNING
fromResult RAW1394_FAILURE = c'DC1394_RAW1394_FAILURE
fromResult FORMAT7_ERROR_FLAG_1 = c'DC1394_FORMAT7_ERROR_FLAG_1
fromResult FORMAT7_ERROR_FLAG_2 = c'DC1394_FORMAT7_ERROR_FLAG_2
fromResult INVALID_ARGUMENT_VALUE = c'DC1394_INVALID_ARGUMENT_VALUE
fromResult REQ_VALUE_OUTSIDE_RANGE = c'DC1394_REQ_VALUE_OUTSIDE_RANGE
fromResult INVALID_FEATURE = c'DC1394_INVALID_FEATURE
fromResult INVALID_VIDEO_FORMAT = c'DC1394_INVALID_VIDEO_FORMAT
fromResult INVALID_VIDEO_MODE = c'DC1394_INVALID_VIDEO_MODE
fromResult INVALID_FRAMERATE = c'DC1394_INVALID_FRAMERATE
fromResult INVALID_TRIGGER_MODE = c'DC1394_INVALID_TRIGGER_MODE
fromResult INVALID_TRIGGER_SOURCE = c'DC1394_INVALID_TRIGGER_SOURCE
fromResult INVALID_ISO_SPEED = c'DC1394_INVALID_ISO_SPEED
fromResult INVALID_IIDC_VERSION = c'DC1394_INVALID_IIDC_VERSION
fromResult INVALID_COLOR_CODING = c'DC1394_INVALID_COLOR_CODING
fromResult INVALID_COLOR_FILTER = c'DC1394_INVALID_COLOR_FILTER
fromResult INVALID_CAPTURE_POLICY = c'DC1394_INVALID_CAPTURE_POLICY
fromResult INVALID_ERROR_CODE = c'DC1394_INVALID_ERROR_CODE
fromResult INVALID_BAYER_METHOD = c'DC1394_INVALID_BAYER_METHOD
fromResult INVALID_VIDEO1394_DEVICE = c'DC1394_INVALID_VIDEO1394_DEVICE
fromResult INVALID_OPERATION_MODE = c'DC1394_INVALID_OPERATION_MODE
fromResult INVALID_TRIGGER_POLARITY = c'DC1394_INVALID_TRIGGER_POLARITY
fromResult INVALID_FEATURE_MODE = c'DC1394_INVALID_FEATURE_MODE
fromResult INVALID_LOG_TYPE = c'DC1394_INVALID_LOG_TYPE
fromResult INVALID_BYTE_ORDER = c'DC1394_INVALID_BYTE_ORDER
fromResult INVALID_STEREO_METHOD = c'DC1394_INVALID_STEREO_METHOD
fromResult BASLER_NO_MORE_SFF_CHUNKS = c'DC1394_BASLER_NO_MORE_SFF_CHUNKS
fromResult BASLER_CORRUPTED_SFF_CHUNK = c'DC1394_BASLER_CORRUPTED_SFF_CHUNK
fromResult BASLER_UNKNOWN_SFF_CHUNK = c'DC1394_BASLER_UNKNOWN_SFF_CHUNK
toResult r
| r == c'DC1394_SUCCESS = SUCCESS
| r == c'DC1394_FAILURE = FAILURE
| r == c'DC1394_NOT_A_CAMERA = NOT_A_CAMERA
| r == c'DC1394_FUNCTION_NOT_SUPPORTED = FUNCTION_NOT_SUPPORTED
| r == c'DC1394_CAMERA_NOT_INITIALIZED = CAMERA_NOT_INITIALIZED
| r == c'DC1394_MEMORY_ALLOCATION_FAILURE = MEMORY_ALLOCATION_FAILURE
| r == c'DC1394_TAGGED_REGISTER_NOT_FOUND = TAGGED_REGISTER_NOT_FOUND
| r == c'DC1394_NO_ISO_CHANNEL = NO_ISO_CHANNEL
| r == c'DC1394_NO_BANDWIDTH = NO_BANDWIDTH
| r == c'DC1394_IOCTL_FAILURE = IOCTL_FAILURE
| r == c'DC1394_CAPTURE_IS_NOT_SET = CAPTURE_IS_NOT_SET
| r == c'DC1394_CAPTURE_IS_RUNNING = CAPTURE_IS_RUNNING
| r == c'DC1394_RAW1394_FAILURE = RAW1394_FAILURE
| r == c'DC1394_FORMAT7_ERROR_FLAG_1 = FORMAT7_ERROR_FLAG_1
| r == c'DC1394_FORMAT7_ERROR_FLAG_2 = FORMAT7_ERROR_FLAG_2
| r == c'DC1394_INVALID_ARGUMENT_VALUE = INVALID_ARGUMENT_VALUE
| r == c'DC1394_REQ_VALUE_OUTSIDE_RANGE = REQ_VALUE_OUTSIDE_RANGE
| r == c'DC1394_INVALID_FEATURE = INVALID_FEATURE
| r == c'DC1394_INVALID_VIDEO_FORMAT = INVALID_VIDEO_FORMAT
| r == c'DC1394_INVALID_VIDEO_MODE = INVALID_VIDEO_MODE
| r == c'DC1394_INVALID_FRAMERATE = INVALID_FRAMERATE
| r == c'DC1394_INVALID_TRIGGER_MODE = INVALID_TRIGGER_MODE
| r == c'DC1394_INVALID_TRIGGER_SOURCE = INVALID_TRIGGER_SOURCE
| r == c'DC1394_INVALID_ISO_SPEED = INVALID_ISO_SPEED
| r == c'DC1394_INVALID_IIDC_VERSION = INVALID_IIDC_VERSION
| r == c'DC1394_INVALID_COLOR_CODING = INVALID_COLOR_CODING
| r == c'DC1394_INVALID_COLOR_FILTER = INVALID_COLOR_FILTER
| r == c'DC1394_INVALID_CAPTURE_POLICY = INVALID_CAPTURE_POLICY
| r == c'DC1394_INVALID_ERROR_CODE = INVALID_ERROR_CODE
| r == c'DC1394_INVALID_BAYER_METHOD = INVALID_BAYER_METHOD
| r == c'DC1394_INVALID_VIDEO1394_DEVICE = INVALID_VIDEO1394_DEVICE
| r == c'DC1394_INVALID_OPERATION_MODE = INVALID_OPERATION_MODE
| r == c'DC1394_INVALID_TRIGGER_POLARITY = INVALID_TRIGGER_POLARITY
| r == c'DC1394_INVALID_FEATURE_MODE = INVALID_FEATURE_MODE
| r == c'DC1394_INVALID_LOG_TYPE = INVALID_LOG_TYPE
| r == c'DC1394_INVALID_BYTE_ORDER = INVALID_BYTE_ORDER
| r == c'DC1394_INVALID_STEREO_METHOD = INVALID_STEREO_METHOD
| r == c'DC1394_BASLER_NO_MORE_SFF_CHUNKS = BASLER_NO_MORE_SFF_CHUNKS
| r == c'DC1394_BASLER_CORRUPTED_SFF_CHUNK = BASLER_CORRUPTED_SFF_CHUNK
| r == c'DC1394_BASLER_UNKNOWN_SFF_CHUNK = BASLER_UNKNOWN_SFF_CHUNK
data VideoMode = Mode_160x120_YUV444
| Mode_320x240_YUV422
| Mode_640x480_YUV411
| Mode_640x480_YUV422
| Mode_640x480_RGB8
| Mode_640x480_MONO8
| Mode_640x480_MONO16
| Mode_800x600_YUV422
| Mode_800x600_RGB8
| Mode_800x600_MONO8
| Mode_1024x768_YUV422
| Mode_1024x768_RGB8
| Mode_1024x768_MONO8
| Mode_800x600_MONO16
| Mode_1024x768_MONO16
| Mode_1280x960_YUV422
| Mode_1280x960_RGB8
| Mode_1280x960_MONO8
| Mode_1600x1200_YUV422
| Mode_1600x1200_RGB8
| Mode_1600x1200_MONO8
| Mode_1280x960_MONO16
| Mode_1600x1200_MONO16
| Mode_EXIF
| Mode_FORMAT7_0
| Mode_FORMAT7_1
| Mode_FORMAT7_2
| Mode_FORMAT7_3
| Mode_FORMAT7_4
| Mode_FORMAT7_5
| Mode_FORMAT7_6
| Mode_FORMAT7_7
| UnsetMode
deriving (Show,Eq)
fromVideoMode Mode_160x120_YUV444 = c'DC1394_VIDEO_MODE_160x120_YUV444
fromVideoMode Mode_320x240_YUV422 = c'DC1394_VIDEO_MODE_320x240_YUV422
fromVideoMode Mode_640x480_YUV411 = c'DC1394_VIDEO_MODE_640x480_YUV411
fromVideoMode Mode_640x480_YUV422 = c'DC1394_VIDEO_MODE_640x480_YUV422
fromVideoMode Mode_640x480_RGB8 = c'DC1394_VIDEO_MODE_640x480_RGB8
fromVideoMode Mode_640x480_MONO8 = c'DC1394_VIDEO_MODE_640x480_MONO8
fromVideoMode Mode_640x480_MONO16 = c'DC1394_VIDEO_MODE_640x480_MONO16
fromVideoMode Mode_800x600_YUV422 = c'DC1394_VIDEO_MODE_800x600_YUV422
fromVideoMode Mode_800x600_RGB8 = c'DC1394_VIDEO_MODE_800x600_RGB8
fromVideoMode Mode_800x600_MONO8 = c'DC1394_VIDEO_MODE_800x600_MONO8
fromVideoMode Mode_1024x768_YUV422 = c'DC1394_VIDEO_MODE_1024x768_YUV422
fromVideoMode Mode_1024x768_RGB8 = c'DC1394_VIDEO_MODE_1024x768_RGB8
fromVideoMode Mode_1024x768_MONO8 = c'DC1394_VIDEO_MODE_1024x768_MONO8
fromVideoMode Mode_800x600_MONO16 = c'DC1394_VIDEO_MODE_800x600_MONO16
fromVideoMode Mode_1024x768_MONO16 = c'DC1394_VIDEO_MODE_1024x768_MONO16
fromVideoMode Mode_1280x960_YUV422 = c'DC1394_VIDEO_MODE_1280x960_YUV422
fromVideoMode Mode_1280x960_RGB8 = c'DC1394_VIDEO_MODE_1280x960_RGB8
fromVideoMode Mode_1280x960_MONO8 = c'DC1394_VIDEO_MODE_1280x960_MONO8
fromVideoMode Mode_1600x1200_YUV422 = c'DC1394_VIDEO_MODE_1600x1200_YUV422
fromVideoMode Mode_1600x1200_RGB8 = c'DC1394_VIDEO_MODE_1600x1200_RGB8
fromVideoMode Mode_1600x1200_MONO8 = c'DC1394_VIDEO_MODE_1600x1200_MONO8
fromVideoMode Mode_1280x960_MONO16 = c'DC1394_VIDEO_MODE_1280x960_MONO16
fromVideoMode Mode_1600x1200_MONO16 = c'DC1394_VIDEO_MODE_1600x1200_MONO16
fromVideoMode Mode_EXIF = c'DC1394_VIDEO_MODE_EXIF
fromVideoMode Mode_FORMAT7_0 = c'DC1394_VIDEO_MODE_FORMAT7_0
fromVideoMode Mode_FORMAT7_1 = c'DC1394_VIDEO_MODE_FORMAT7_1
fromVideoMode Mode_FORMAT7_2 = c'DC1394_VIDEO_MODE_FORMAT7_2
fromVideoMode Mode_FORMAT7_3 = c'DC1394_VIDEO_MODE_FORMAT7_3
fromVideoMode Mode_FORMAT7_4 = c'DC1394_VIDEO_MODE_FORMAT7_4
fromVideoMode Mode_FORMAT7_5 = c'DC1394_VIDEO_MODE_FORMAT7_5
fromVideoMode Mode_FORMAT7_6 = c'DC1394_VIDEO_MODE_FORMAT7_6
fromVideoMode Mode_FORMAT7_7 = c'DC1394_VIDEO_MODE_FORMAT7_7
toVideoMode i
| i == Mode_160x120_YUV444 = c'DC1394_VIDEO_MODE_160x120_YUV444
| i == Mode_320x240_YUV422 = c'DC1394_VIDEO_MODE_320x240_YUV422
| i == Mode_640x480_YUV411 = c'DC1394_VIDEO_MODE_640x480_YUV411
| i == Mode_640x480_YUV422 = c'DC1394_VIDEO_MODE_640x480_YUV422
| i == Mode_640x480_RGB8 = c'DC1394_VIDEO_MODE_640x480_RGB8
| i == Mode_640x480_MONO8 = c'DC1394_VIDEO_MODE_640x480_MONO8
| i == Mode_640x480_MONO16 = c'DC1394_VIDEO_MODE_640x480_MONO16
| i == Mode_800x600_YUV422 = c'DC1394_VIDEO_MODE_800x600_YUV422
| i == Mode_800x600_RGB8 = c'DC1394_VIDEO_MODE_800x600_RGB8
| i == Mode_800x600_MONO8 = c'DC1394_VIDEO_MODE_800x600_MONO8
| i == Mode_1024x768_YUV422 = c'DC1394_VIDEO_MODE_1024x768_YUV422
| i == Mode_1024x768_RGB8 = c'DC1394_VIDEO_MODE_1024x768_RGB8
| i == Mode_1024x768_MONO8 = c'DC1394_VIDEO_MODE_1024x768_MONO8
| i == Mode_800x600_MONO16 = c'DC1394_VIDEO_MODE_800x600_MONO16
| i == Mode_1024x768_MONO16 = c'DC1394_VIDEO_MODE_1024x768_MONO16
| i == Mode_1280x960_YUV422 = c'DC1394_VIDEO_MODE_1280x960_YUV422
| i == Mode_1280x960_RGB8 = c'DC1394_VIDEO_MODE_1280x960_RGB8
| i == Mode_1280x960_MONO8 = c'DC1394_VIDEO_MODE_1280x960_MONO8
| i == Mode_1600x1200_YUV422 = c'DC1394_VIDEO_MODE_1600x1200_YUV422
| i == Mode_1600x1200_RGB8 = c'DC1394_VIDEO_MODE_1600x1200_RGB8
| i == Mode_1600x1200_MONO8 = c'DC1394_VIDEO_MODE_1600x1200_MONO8
| i == Mode_1280x960_MONO16 = c'DC1394_VIDEO_MODE_1280x960_MONO16
| i == Mode_1600x1200_MONO16 = c'DC1394_VIDEO_MODE_1600x1200_MONO16
| i == Mode_EXIF = c'DC1394_VIDEO_MODE_EXIF
| i == Mode_FORMAT7_0 = c'DC1394_VIDEO_MODE_FORMAT7_0
| i == Mode_FORMAT7_1 = c'DC1394_VIDEO_MODE_FORMAT7_1
| i == Mode_FORMAT7_2 = c'DC1394_VIDEO_MODE_FORMAT7_2
| i == Mode_FORMAT7_3 = c'DC1394_VIDEO_MODE_FORMAT7_3
| i == Mode_FORMAT7_4 = c'DC1394_VIDEO_MODE_FORMAT7_4
| i == Mode_FORMAT7_5 = c'DC1394_VIDEO_MODE_FORMAT7_5
| i == Mode_FORMAT7_6 = c'DC1394_VIDEO_MODE_FORMAT7_6
| i == Mode_FORMAT7_7 = c'DC1394_VIDEO_MODE_FORMAT7_7
data Framerate = Rate_1_875
| Rate_3_75
| Rate_7_5
| Rate_15
| Rate_30
| Rate_60
| Rate_120
| Rate_240
deriving (Show,Eq)
fromFramerate Rate_1_875 = c'DC1394_FRAMERATE_1_875
fromFramerate Rate_3_75 = c'DC1394_FRAMERATE_3_75
fromFramerate Rate_7_5 = c'DC1394_FRAMERATE_7_5
fromFramerate Rate_15 = c'DC1394_FRAMERATE_15
fromFramerate Rate_30 = c'DC1394_FRAMERATE_30
fromFramerate Rate_60 = c'DC1394_FRAMERATE_60
fromFramerate Rate_120 = c'DC1394_FRAMERATE_120
fromFramerate Rate_240 = c'DC1394_FRAMERATE_240
toFramerate i
| i == Rate_1_875 = c'DC1394_FRAMERATE_1_875
| i == Rate_3_75 = c'DC1394_FRAMERATE_3_75
| i == Rate_7_5 = c'DC1394_FRAMERATE_7_5
| i == Rate_15 = c'DC1394_FRAMERATE_15
| i == Rate_30 = c'DC1394_FRAMERATE_30
| i == Rate_60 = c'DC1394_FRAMERATE_60
| i == Rate_120 = c'DC1394_FRAMERATE_120
| i == Rate_240 = c'DC1394_FRAMERATE_240