Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fixed module names.

  • Loading branch information...
commit 6d631ca64d6f8784342dea23c0abacc2821f159b 1 parent 62f5a82
@acowley authored
View
4 HOpenCV.cabal
@@ -1,12 +1,12 @@
name: HOpenCV
-version: 0.2.2
+version: 0.3.0
license: BSD3
author: Noam Lewis <jones.noamle@gmail.com>
maintainer: Anthony Cowley <acowley@gmail.com>
stability: experimental
category: AI, Graphics
synopsis: A binding for the OpenCV computer vision library.
-Tested-With: GHC==7.0.3
+Tested-With: GHC==7.4.1
description:
Limited bindings to OpenCV 2.4. (See: <http://opencv.willowgarage.com/wiki/Welcome>)
.
View
2  Setup.hs
@@ -12,7 +12,7 @@ runHsc2hs f = system $ "hsc2hs "++f++" "++libs'
where libs' = intercalate " " $ map ("-L -l"++) libs
srcPath :: FilePath
-srcPath = "src/AI/CV/OpenCV"
+srcPath = "src/OpenCV"
main :: IO ()
main = do mapM_ (runHsc2hs . (srcPath </>) . flip addExtension "hsc")
View
2  src/Examples/OneOffs/Closing.hs
@@ -1,3 +1,3 @@
-import AI.CV.OpenCV.HighCV
+import OpenCV.HighCV
main = toFile "closed.png" . erode 8 . dilate 8 =<< fromFileGray "input.png"
View
6 src/Examples/OneOffs/EqualizeCenter.hs
@@ -1,7 +1,7 @@
import Control.Applicative
-import AI.CV.OpenCV.HighCV
-import AI.CV.OpenCV.ArrayOps
-import AI.CV.OpenCV.Histograms
+import OpenCV.HighCV
+import OpenCV.ArrayOps
+import OpenCV.Histograms
boostSaturation :: ColorImage -> ColorImage
boostSaturation img = convertHSVToBGR $ replaceChannel 1 s hsv
View
6 src/Examples/PerfTest/PerfTest.hs
@@ -1,7 +1,7 @@
{-# LANGUAGE TypeSynonymInstances #-}
-import AI.CV.OpenCV.HighCV
-import AI.CV.OpenCV.ArrayOps
-import AI.CV.OpenCV.Filtering
+import OpenCV.HighCV
+import OpenCV.ArrayOps
+import OpenCV.Filtering
import Control.Parallel
import Criterion.Main
View
8 src/Examples/VideoFunhouse/VideoFunhouse.hs
@@ -2,10 +2,10 @@
-- the video feed from an attached webcam or a video file specified as
-- a command line argument. The executable prints usage instructions
-- to the console when run.
-import AI.CV.OpenCV.HighCV
-import AI.CV.OpenCV.ArrayOps
-import AI.CV.OpenCV.Filtering
-import AI.CV.OpenCV.Histograms
+import OpenCV.HighCV
+import OpenCV.ArrayOps
+import OpenCV.Filtering
+import OpenCV.Histograms
import Control.Applicative
import Control.Parallel
import System.Environment (getArgs)
View
24 src/OpenCV/ArrayOps.hsc
@@ -1,13 +1,13 @@
{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, ScopedTypeVariables,
FlexibleContexts #-}
-- |Array operations.
-module AI.CV.OpenCV.ArrayOps (subRS, absDiff, abs, convertScale,
- cvAnd, andMask, scaleAdd, cvAndS,
- cvOr, cvOrS, set, cvAbs, cvAbsDiffS,
- mul, mulS, add, addS, sub, subMask,
- cmpS, avg, avgMask, cvNot, withROI,
- ComparisonOp(..), isolateChannel, copy,
- replaceChannel, convertScaleAbs, absSat) where
+module OpenCV.ArrayOps (subRS, absDiff, abs, convertScale,
+ cvAnd, andMask, scaleAdd, cvAndS,
+ cvOr, cvOrS, set, cvAbs, cvAbsDiffS,
+ mul, mulS, add, addS, sub, subMask,
+ cmpS, avg, avgMask, cvNot, withROI,
+ ComparisonOp(..), isolateChannel, copy,
+ replaceChannel, convertScaleAbs, absSat) where
import Data.Word (Word8)
import Foreign.C.Types (CDouble(..), CInt(..))
import Foreign.Ptr (Ptr, castPtr, nullPtr)
@@ -15,11 +15,11 @@ import Foreign.Marshal.Array
import Foreign.Marshal.Alloc
import Foreign.Storable (poke, peek)
import System.IO.Unsafe (unsafePerformIO)
-import AI.CV.OpenCV.Core.CxCore (CvArr, CvRect(..), CmpOp(..), CvScalar(..),
- cmpEq, cmpGT, cmpGE, cmpLT, cmpLE, cmpNE)
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
-import AI.CV.OpenCV.Core.StorableUtil
+import OpenCV.Core.CxCore (CvArr, CvRect(..), CmpOp(..), CvScalar(..),
+ cmpEq, cmpGT, cmpGE, cmpLT, cmpLE, cmpNE)
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
+import OpenCV.Core.StorableUtil
type M = Monochromatic
View
10 src/OpenCV/ColorConversion.hs
@@ -1,14 +1,14 @@
{-# LANGUAGE FlexibleContexts #-}
-- |Type-safe color conversion functions.
-module AI.CV.OpenCV.ColorConversion
+module OpenCV.ColorConversion
(convertGrayToRGB, convertGrayToBGR,
convertBGRToGray, convertRGBToGray,
convertBayerBgToBGR, convertBayerBgToRGB,
convertRGBToHSV, convertBGRToHSV, convertHSVToBGR) where
-import AI.CV.OpenCV.Core.CV
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.ColorConversion
-import AI.CV.OpenCV.Core.CVOp
+import OpenCV.Core.CV
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.ColorConversion
+import OpenCV.Core.CVOp
type M = Monochromatic
type T = Trichromatic
View
6 src/OpenCV/Contours.hsc
@@ -1,8 +1,8 @@
{-# LANGUAGE ForeignFunctionInterface #-}
-- |Incomplete support for cvFindContours.
-module AI.CV.OpenCV.Contours (ContourMode(..), ContourMethod(..),
- cvFindContours, followContourList) where
-import AI.CV.OpenCV.Core.CxCore
+module OpenCV.Contours (ContourMode(..), ContourMethod(..),
+ cvFindContours, followContourList) where
+import OpenCV.Core.CxCore
import Foreign.C.Types (CInt)
import Foreign.Ptr (Ptr, castPtr, nullPtr)
import Foreign.Storable
View
6 src/OpenCV/Core/CV.hsc
@@ -1,6 +1,6 @@
{-# LANGUAGE ForeignFunctionInterface, EmptyDataDecls, ScopedTypeVariables #-}
-- |Support for features from the OpenCV Image Filtering library.
-module AI.CV.OpenCV.Core.CV
+module OpenCV.Core.CV
( InterpolationMethod(..),
cvResize, cvDilate, cvErode, cvPyrDown, cvHoughLines2,
--CvHaarClassifierCascade, HaarDetectFlag,
@@ -16,8 +16,8 @@ import Foreign.Marshal.Alloc (allocaBytes)
import Foreign.Marshal.Array (peekArray)
import Foreign.Storable (Storable, sizeOf)
import Foreign.Ptr
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.ColorConversion
+import OpenCV.Core.CxCore
+import OpenCV.Core.ColorConversion
#include <opencv/cv.h>
View
8 src/OpenCV/Core/CVOp.hs
@@ -18,10 +18,10 @@
-- with such an operation, must have a destination image
-- allocated. This is cheaper than duplicating the input image as with
-- operations wrapped by the `cv` combinator.
-module AI.CV.OpenCV.Core.CVOp (cv, Inplace(..)) where
-import AI.CV.OpenCV.Core.CxCore (IplArrayType, CvArr)
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.HIplImage
+module OpenCV.Core.CVOp (cv, Inplace(..)) where
+import OpenCV.Core.CxCore (IplArrayType, CvArr)
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.HIplImage
import Control.Monad ((>=>), void)
import Data.Int
import Data.Monoid
View
2  src/OpenCV/Core/ColorConversion.hsc
@@ -1,5 +1,5 @@
-- |Constants for color conversion
-module AI.CV.OpenCV.Core.ColorConversion where
+module OpenCV.Core.ColorConversion where
import Foreign.C.Types (CInt)
#include <opencv2/imgproc/imgproc_c.h>
View
2  src/OpenCV/Core/CxCore.hsc
@@ -1,5 +1,5 @@
{-# LANGUAGE ForeignFunctionInterface, EmptyDataDecls, TypeFamilies #-}
-module AI.CV.OpenCV.Core.CxCore where
+module OpenCV.Core.CxCore where
import Control.Applicative
import Control.Monad ((>=>))
import Foreign.C.Types
View
12 src/OpenCV/Core/HIplImage.hsc
@@ -2,7 +2,7 @@
TypeFamilies, MultiParamTypeClasses, FlexibleInstances, GADTs,
BangPatterns, FlexibleContexts, TypeSynonymInstances #-}
{-# OPTIONS_GHC -funbox-strict-fields #-}
-module AI.CV.OpenCV.Core.HIplImage (
+module OpenCV.Core.HIplImage (
-- * Phantom types that statically describe image properties
Trichromatic, Monochromatic, HasROI, NoROI,
@@ -18,11 +18,11 @@ module AI.CV.OpenCV.Core.HIplImage (
c_cvResetImageROI, origin, width, height, imageSize, roi, imageData,
widthStep, imageDataOrigin, setROI, resetROI, ImgBuilder(..)
) where
-import AI.CV.OpenCV.Core.CxCore (IplImage,Depth(..),iplDepth8u, iplDepth16u,
- iplDepth16s, iplDepth32f, iplDepth64f, cvFree,
- CvRect(..), CvScalar(..))
-import AI.CV.OpenCV.Core.CV (cvCvtColor)
-import AI.CV.OpenCV.Core.ColorConversion (cv_GRAY2BGR, cv_BGR2GRAY)
+import OpenCV.Core.CxCore (IplImage,Depth(..),iplDepth8u, iplDepth16u,
+ iplDepth16s, iplDepth32f, iplDepth64f, cvFree,
+ CvRect(..), CvScalar(..))
+import OpenCV.Core.CV (cvCvtColor)
+import OpenCV.Core.ColorConversion (cv_GRAY2BGR, cv_BGR2GRAY)
import Control.Applicative ((<$>))
import Control.Monad (when)
import Data.Bits (complement, (.&.))
View
12 src/OpenCV/Core/HIplUtil.hs
@@ -1,7 +1,7 @@
{-# LANGUAGE ScopedTypeVariables, BangPatterns, MultiParamTypeClasses,
FlexibleInstances #-}
-- |Functions for working with 'HIplImage's.
-module AI.CV.OpenCV.Core.HIplUtil
+module OpenCV.Core.HIplUtil
(isColor, isMono, imgChannels, withPixelVector, pixels,
fromPtr, fromFileColor, fromFileGray, fromPGM16, toFile,
compatibleImage, duplicateImage, fromPixels,
@@ -14,11 +14,11 @@ module AI.CV.OpenCV.Core.HIplUtil
HasDepth(..), HasScalar(..), IsCvScalar(..), colorDepth,
ByteOrFloat, getRect, imageData, fromFile, unsafeWithHIplImage,
duplicateImagePtr, compatibleImagePtr, compatibleImagePtrPtr) where
-import AI.CV.OpenCV.Core.CxCore (IplImage, cvFree, cvFreePtr, createImageF,
- CvSize(..), cloneImageF, cvCreateImage,
- getNumChannels, getDepth, cvGetSize)
-import AI.CV.OpenCV.Core.HighGui (cvLoadImage, cvSaveImage, LoadColor(..))
-import AI.CV.OpenCV.Core.HIplImage
+import OpenCV.Core.CxCore (IplImage, cvFree, cvFreePtr, createImageF,
+ CvSize(..), cloneImageF, cvCreateImage,
+ getNumChannels, getDepth, cvGetSize)
+import OpenCV.Core.HighGui (cvLoadImage, cvSaveImage, LoadColor(..))
+import OpenCV.Core.HIplImage
import Control.Applicative
import Control.Arrow (second, (***))
import Control.Monad (when, unless, join)
View
4 src/OpenCV/Core/HighGui.hsc
@@ -1,5 +1,5 @@
{-# LANGUAGE ForeignFunctionInterface, EmptyDataDecls #-}
-module AI.CV.OpenCV.Core.HighGui
+module OpenCV.Core.HighGui
(cvLoadImage, LoadColor(..), cvSaveImage,
CvCapture, cvCreateCameraCapture,
createCameraCaptureF, createFileCaptureF,
@@ -19,7 +19,7 @@ import Foreign.ForeignPtr
import Foreign.C.String
import Data.List (foldl')
-import AI.CV.OpenCV.Core.CxCore
+import OpenCV.Core.CxCore
#include <opencv2/highgui/highgui_c.h>
View
2  src/OpenCV/Core/StorableUtil.hs
@@ -1,4 +1,4 @@
-module AI.CV.OpenCV.Core.StorableUtil where
+module OpenCV.Core.StorableUtil where
import Foreign.Marshal.Alloc (alloca)
import Foreign.Storable (Storable(poke))
import Foreign.Ptr (Ptr)
View
12 src/OpenCV/Drawing.hsc
@@ -1,10 +1,10 @@
{-# LANGUAGE ForeignFunctionInterface #-}
-module AI.CV.OpenCV.Drawing (prepFont, prepFontAlt, putText, FontFace(..),
- LineType(..), RGB, drawLines, fillConvexPoly) where
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
-import AI.CV.OpenCV.Core.StorableUtil
+module OpenCV.Drawing (prepFont, prepFontAlt, putText, FontFace(..),
+ LineType(..), RGB, drawLines, fillConvexPoly) where
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
+import OpenCV.Core.StorableUtil
import Data.Bits ((.|.))
import Foreign.C.String
import Foreign.C.Types
View
8 src/OpenCV/FeatureDetection.hs
@@ -1,11 +1,11 @@
{-# LANGUAGE ForeignFunctionInterface, FlexibleContexts #-}
-- |Feature Detection.
-module AI.CV.OpenCV.FeatureDetection (cornerHarris, cornerHarris', canny) where
+module OpenCV.FeatureDetection (cornerHarris, cornerHarris', canny) where
import Foreign.C.Types (CInt(..), CDouble(..))
import Foreign.Ptr (Ptr, castPtr)
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
foreign import ccall "opencv2/imgproc/imgproc_c.h cvCornerHarris"
c_cvHarris :: Ptr CvArr -> Ptr CvArr -> CInt -> CInt -> CDouble -> IO ()
View
12 src/OpenCV/Filtering.hsc
@@ -1,15 +1,15 @@
{-# LANGUAGE ForeignFunctionInterface, TypeFamilies #-}
-- |Image filtering operations.
-module AI.CV.OpenCV.Filtering (smoothGaussian, smoothGaussian',
- sobel, sobelDX, sobelDY,
- ApertureSize(..), DerivativeOrder(..)) where
+module OpenCV.Filtering (smoothGaussian, smoothGaussian',
+ sobel, sobelDX, sobelDY,
+ ApertureSize(..), DerivativeOrder(..)) where
import Data.Word (Word8)
import Data.Int (Int16)
import Foreign.C.Types (CInt(..), CDouble(..))
import Foreign.Ptr (Ptr, castPtr)
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
#include <opencv2/imgproc/types_c.h>
View
10 src/OpenCV/FloodFill.hsc
@@ -1,13 +1,13 @@
{-# LANGUAGE ForeignFunctionInterface, TypeFamilies #-}
-- |Miscellaneous image transformations.
-module AI.CV.OpenCV.FloodFill (floodFill, FloodRange(..)) where
+module OpenCV.FloodFill (floodFill, FloodRange(..)) where
import Data.Bits ((.|.))
import Foreign.C.Types (CInt(..))
import Foreign.Ptr (Ptr, nullPtr, castPtr)
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
-import AI.CV.OpenCV.Core.StorableUtil
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
+import OpenCV.Core.StorableUtil
-- |Flag used to indicate whether pixels under consideration for
-- addition to a connected component should be compared to the seed
View
10 src/OpenCV/GUI.hs
@@ -1,10 +1,10 @@
-- |Very simple tools for showing images in a window. The 'runWindow'
-- and 'runNamedWindow' interfaces are the recommended entrypoints.
-module AI.CV.OpenCV.GUI (namedWindow, WindowFlag(..), MouseCallback,
- waitKey, cvInit, runWindow, runNamedWindow) where
-import AI.CV.OpenCV.Core.HIplImage
-import AI.CV.OpenCV.Core.HighGui
-import AI.CV.OpenCV.Core.CxCore (fromArr)
+module OpenCV.GUI (namedWindow, WindowFlag(..), MouseCallback,
+ waitKey, cvInit, runWindow, runNamedWindow) where
+import OpenCV.Core.HIplImage
+import OpenCV.Core.HighGui
+import OpenCV.Core.CxCore (fromArr)
import Control.Monad ((>=>))
import Data.Bits ((.&.))
import Data.Word (Word8)
View
88 src/OpenCV/HighCV.hs
@@ -2,56 +2,56 @@
-- operations will be performed in-place under composition. For
-- example, @dilate 8 . erode 8@ will allocate one new image rather
-- than two.
-module AI.CV.OpenCV.HighCV (
- -- * Image Files
- fromFile, fromFileGray, fromFileColor,
- fromPGM16, toFile,
- -- * Image Properties
- width, height, numPixels, isColor, isMono,
- -- * Image Construction
- fromPixels, fromGrayPixels, fromColorPixels,
- fromPtr,
- -- * Image Data Accessors
- pixels, withPixelVector, withImagePixels,
- sampleLine, getRect,
- -- * Image Processing
- erode, dilate, houghStandard, houghProbabilistic,
- normalize, resize, setROI, resetROI,
- module AI.CV.OpenCV.ColorConversion,
- module AI.CV.OpenCV.Threshold,
- module AI.CV.OpenCV.FloodFill,
- module AI.CV.OpenCV.FeatureDetection,
- Connectivity(..),
- CvRect(..), liftCvRect,
- cv_L2, cv_MinMax,
- InterpolationMethod(..),
- -- * GUI and Drawing
- module AI.CV.OpenCV.GUI,
- module AI.CV.OpenCV.Drawing,
- -- * Video
- module AI.CV.OpenCV.Video,
- -- * Image types
- HIplImage, Monochromatic, Trichromatic,
- HasChannels, HasDepth,
- GrayImage, ColorImage, GrayImage16, GrayImage16S,
- Word8, Word16
+module OpenCV.HighCV (
+ -- * Image Files
+ fromFile, fromFileGray, fromFileColor,
+ fromPGM16, toFile,
+ -- * Image Properties
+ width, height, numPixels, isColor, isMono,
+ -- * Image Construction
+ fromPixels, fromGrayPixels, fromColorPixels,
+ fromPtr,
+ -- * Image Data Accessors
+ pixels, withPixelVector, withImagePixels,
+ sampleLine, getRect,
+ -- * Image Processing
+ erode, dilate, houghStandard, houghProbabilistic,
+ normalize, resize, setROI, resetROI,
+ module OpenCV.ColorConversion,
+ module OpenCV.Threshold,
+ module OpenCV.FloodFill,
+ module OpenCV.FeatureDetection,
+ Connectivity(..),
+ CvRect(..), liftCvRect,
+ cv_L2, cv_MinMax,
+ InterpolationMethod(..),
+ -- * GUI and Drawing
+ module OpenCV.GUI,
+ module OpenCV.Drawing,
+ -- * Video
+ module OpenCV.Video,
+ -- * Image types
+ HIplImage, Monochromatic, Trichromatic,
+ HasChannels, HasDepth,
+ GrayImage, ColorImage, GrayImage16, GrayImage16S,
+ Word8, Word16
) where
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.CV
-import AI.CV.OpenCV.Drawing
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
-import AI.CV.OpenCV.ColorConversion
+import OpenCV.Core.CxCore
+import OpenCV.Core.CV
+import OpenCV.Drawing
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
+import OpenCV.ColorConversion
import Data.Word (Word8, Word16)
import Foreign.C.Types (CDouble)
import Foreign.Ptr
import Foreign.Storable
import System.IO.Unsafe (unsafePerformIO)
-import AI.CV.OpenCV.GUI
-import AI.CV.OpenCV.Threshold
-import AI.CV.OpenCV.FloodFill
-import AI.CV.OpenCV.FeatureDetection
-import AI.CV.OpenCV.Video
+import OpenCV.GUI
+import OpenCV.Threshold
+import OpenCV.FloodFill
+import OpenCV.FeatureDetection
+import OpenCV.Video
-- |Erode an 'HIplImage' with a 3x3 structuring element for the
-- specified number of iterations.
View
8 src/OpenCV/Histograms.hs
@@ -1,9 +1,9 @@
{-# LANGUAGE ForeignFunctionInterface #-}
-module AI.CV.OpenCV.Histograms (equalizeHist) where
+module OpenCV.Histograms (equalizeHist) where
import Foreign.Ptr (Ptr)
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
foreign import ccall "opencv2/imgproc/imgproc_c.h cvEqualizeHist"
c_cvEqualizeHist :: Ptr CvArr -> Ptr CvArr -> IO ()
View
6 src/OpenCV/Motion.hsc
@@ -1,12 +1,12 @@
{-# LANGUAGE ForeignFunctionInterface #-}
-- |Motion analysis functions.
-module AI.CV.OpenCV.Motion (calcOpticalFlowBM) where
+module OpenCV.Motion (calcOpticalFlowBM) where
import Data.Word (Word8)
import Foreign.C.Types (CInt)
import Foreign.Ptr (Ptr)
import System.IO.Unsafe
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplImage
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplImage
foreign import ccall "opencv2/video/tracking.hpp cvCalcOpticalFlowBM"
c_cvCalcOpticalFlowBM :: Ptr CvArr -> Ptr CvArr -> CInt -> CInt ->
View
8 src/OpenCV/PixelUtils.hs
@@ -3,10 +3,10 @@
-- pixels arranged in BGR order and pad image rows with unused
-- bytes. This module provides mechanisms to drop the unused packing
-- bytes.
-module AI.CV.OpenCV.PixelUtils where
-import AI.CV.OpenCV.Core.HIplImage
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.ColorConversion (convertRGBToGray)
+module OpenCV.PixelUtils where
+import OpenCV.Core.HIplImage
+import OpenCV.Core.HIplUtil
+import OpenCV.ColorConversion (convertRGBToGray)
import Control.Monad.ST (runST)
import qualified Data.Vector.Storable as V
import qualified Data.Vector.Storable.Mutable as VM
View
18 src/OpenCV/Threshold.hs
@@ -2,19 +2,19 @@
MultiParamTypeClasses, FlexibleInstances, FlexibleContexts #-}
-- |Image thresholding operations. These operations will perform
-- destructive, in-place updates when used in compositions.
-module AI.CV.OpenCV.Threshold (thresholdBinary, thresholdBinaryInv,
- thresholdTruncate,
- thresholdToZero, thresholdToZeroInv,
- thresholdBinaryOtsu, thresholdBinaryOtsuInv,
- thresholdTruncateOtsu,
- thresholdToZeroOtsu, thresholdToZeroOtsuInv) where
+module OpenCV.Threshold (thresholdBinary, thresholdBinaryInv,
+ thresholdTruncate,
+ thresholdToZero, thresholdToZeroInv,
+ thresholdBinaryOtsu, thresholdBinaryOtsuInv,
+ thresholdTruncateOtsu,
+ thresholdToZeroOtsu, thresholdToZeroOtsuInv) where
import Data.Bits ((.|.))
import Data.Word (Word8)
import Foreign.C.Types (CDouble(..), CInt(..))
import Foreign.Ptr (Ptr)
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.CVOp
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.CVOp
data ThresholdType = ThreshBinary
| ThreshBinaryInv
View
12 src/OpenCV/Video.hs
@@ -1,14 +1,14 @@
-- |Interfaces for grabbing images from cameras and video files, and
-- for writing to video files.
-module AI.CV.OpenCV.Video (createFileCapture, createFileCaptureLoop,
- createCameraCapture, createVideoWriter,
- FourCC, mpeg4CC) where
+module OpenCV.Video (createFileCapture, createFileCaptureLoop,
+ createCameraCapture, createVideoWriter,
+ FourCC, mpeg4CC) where
import Data.Maybe (fromMaybe)
import Foreign.Ptr
import Foreign.ForeignPtr (withForeignPtr)
-import AI.CV.OpenCV.Core.CxCore
-import AI.CV.OpenCV.Core.HIplUtil
-import AI.CV.OpenCV.Core.HighGui
+import OpenCV.Core.CxCore
+import OpenCV.Core.HIplUtil
+import OpenCV.Core.HighGui
-- |Raise an error if 'cvQueryFrame' returns 'Nothing'; otherwise
-- returns a 'Ptr' 'IplImage'.
Please sign in to comment.
Something went wrong with that request. Please try again.