packages feed

imagemagick 0.0.3.7 → 0.0.4

raw patch · 122 files changed

+5480/−5492 lines, 122 filesdep +filepathdep +tastydep +tasty-hunitdep −HUnitdep −system-filepathdep −test-frameworkdep ~vectorbinary-added

Dependencies added: filepath, tasty, tasty-hunit

Dependencies removed: HUnit, system-filepath, test-framework, test-framework-hunit, test-framework-quickcheck2

Dependency ranges changed: vector

Files

− Graphics/ImageMagick/MagickCore.hs 
@@ -1,13 +0,0 @@-module Graphics.ImageMagick.MagickCore-       ( module Graphics.ImageMagick.MagickCore.Exception-       , module Graphics.ImageMagick.MagickCore.Gem-       , module Graphics.ImageMagick.MagickCore.Mime-       , module Graphics.ImageMagick.MagickCore.Option-       , module Graphics.ImageMagick.MagickCore.Types-       ) where--import           Graphics.ImageMagick.MagickCore.Exception-import           Graphics.ImageMagick.MagickCore.Gem-import           Graphics.ImageMagick.MagickCore.Mime-import           Graphics.ImageMagick.MagickCore.Option-import           Graphics.ImageMagick.MagickCore.Types
− Graphics/ImageMagick/MagickCore/Exception.hs 
@@ -1,28 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-module Graphics.ImageMagick.MagickCore.Exception-  ( MagickWandException(..)-  -- * support for ImageMagick Exceptions-  , ExceptionCarrier(..)-  , ExceptionSeverity-  , ExceptionType-  ) where--import           Control.Exception.Base-import           Data.Typeable-import           Graphics.ImageMagick.MagickCore.Types--data MagickWandException = MagickWandException ExceptionSeverity ExceptionType String-  deriving (Typeable)---instance Show (MagickWandException) where-  show (MagickWandException _ x s) = concat [show x, ": ", s]--instance Exception MagickWandException---- * Exception Carrier can be different objects--- that are used in functions--class ExceptionCarrier a where-  getException :: a -> IO MagickWandException-
− Graphics/ImageMagick/MagickCore/FFI/Gem.hsc 
@@ -1,24 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.FFI.Gem-    where--import           Foreign-import           Foreign.C.Types-import           Graphics.ImageMagick.MagickCore.Types.FFI.Types-#include <magick/MagickCore.h>--foreign import ccall "ConvertHSBToRGB" convertHSBToRGB-  :: CDouble -> CDouble -> CDouble -> Ptr Quantum -> Ptr Quantum -> Ptr Quantum -> IO ()-foreign import ccall "ConvertHSLToRGB" convertHSLToRGB-  :: CDouble -> CDouble -> CDouble -> Ptr Quantum -> Ptr Quantum -> Ptr Quantum -> IO ()-foreign import ccall "ConvertHWBToRGB" convertHWBToRGB-  :: CDouble -> CDouble -> CDouble -> Ptr Quantum -> Ptr Quantum -> Ptr Quantum -> IO ()-foreign import ccall "ConvertRGBToHSB" convertRGBToHSB-  :: Quantum -> Quantum -> Quantum -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()-foreign import ccall "ConvertRGBToHSL" convertRGBToHSL-  :: Quantum -> Quantum -> Quantum -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()-foreign import ccall "ConvertRGBToHWB" convertRGBToHWB-  :: Quantum -> Quantum -> Quantum -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()-
− Graphics/ImageMagick/MagickCore/FFI/Log.hsc 
@@ -1,17 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.FFI.Log-    where--import           Foreign.C.String-import           Foreign.C.Types-import           Graphics.ImageMagick.MagickCore.Types.FFI.Log-#include <magick/MagickCore.h>----- | SetLogEventMask() accepts a list that determines which events to log.  All--- other events are ignored.  By default, no debug is enabled.  This method--- returns the previous log event mask.-foreign import ccall "SetLogEventMask" setLogEventMask-  :: CString -> IO LogEventType
− Graphics/ImageMagick/MagickCore/FFI/Mime.hsc 
@@ -1,16 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.FFI.Mime-    where--import           Foreign.C.String-#include <magick/MagickCore.h>----- | MagickToMime() returns the officially registered (or de facto) MIME--- media-type corresponding to a magick string.  If there is no registered--- media-type, then the string "image/x-magick" (all lower case) is returned.--- The returned string must be deallocated by the user.-foreign import ccall "MagickToMime" magickToMime-  :: CString -> IO CString
− Graphics/ImageMagick/MagickCore/FFI/Option.hsc 
@@ -1,18 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.FFI.Option-  where--import           Foreign.C.String-import           Foreign.C.Types--import           Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType--#include <magick/MagickCore.h>---- | ParseChannelOption() parses channel type string representation--foreign import ccall "ParseChannelOption" parseChannelOption-  :: CString -> IO ChannelType-
− Graphics/ImageMagick/MagickCore/FFI/Quantize.hsc 
@@ -1,14 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.FFI.Quantize-    where--#include <magick/MagickCore.h>--import Foreign-import Graphics.ImageMagick.MagickCore.Types.FFI.Quantize--foreign import ccall unsafe "GetQuantizeInfo"-  c_getQuantizeInfo :: Ptr QuantizeInfo -> IO ()-
− Graphics/ImageMagick/MagickCore/Gem.hs 
@@ -1,51 +0,0 @@-module Graphics.ImageMagick.MagickCore.Gem-  ( convertHSBToRGB-  , convertHSLToRGB-  , convertHWBToRGB-  , convertRGBToHSB-  , convertRGBToHSL-  , convertRGBToHWB-  ) where--import Foreign.Ptr              (Ptr)-import Foreign.Storable         (Storable, peek)-import Foreign.Marshal.Alloc    (alloca)-import Control.Monad.IO.Class-import Control.Monad.Trans.Resource-import Graphics.ImageMagick.MagickCore.Types-import qualified Graphics.ImageMagick.MagickCore.FFI.Gem as F---with3 :: (Storable a, Storable b, Storable c) =>-         (Ptr a -> Ptr b -> Ptr c -> IO ())-       -> IO (a, b, c)-with3 f = alloca (\x -> alloca (\y -> alloca (\z -> do -              f x y z -              x' <- peek x-              y' <- peek y-              z' <- peek z-              return (x',y',z')-              )))--map3 :: (a -> b) -> (a, a, a) -> (b, b, b)-map3 f (a,b,c) = (f a, f b, f c)---convertHSBToRGB :: MonadResource m => Double -> Double -> Double -> m (Quantum, Quantum, Quantum)-convertHSBToRGB d1 d2 d3 = liftIO $ with3 (F.convertHSBToRGB (realToFrac d1) (realToFrac d2) (realToFrac d3))--convertHSLToRGB :: MonadResource m => Double -> Double -> Double -> m (Quantum, Quantum, Quantum)-convertHSLToRGB d1 d2 d3 = liftIO $ with3 (F.convertHSLToRGB (realToFrac d1) (realToFrac d2) (realToFrac d3))--convertHWBToRGB :: MonadResource m => Double -> Double -> Double -> m (Quantum, Quantum, Quantum)-convertHWBToRGB d1 d2 d3 = liftIO $ with3 (F.convertHWBToRGB (realToFrac d1) (realToFrac d2) (realToFrac d3))--convertRGBToHSB :: MonadResource m => Quantum -> Quantum -> Quantum -> m (Double, Double, Double)-convertRGBToHSB q1 q2 q3 = (liftIO $ with3 (F.convertRGBToHSB q1 q2 q3)) >>= return . (map3 realToFrac)--convertRGBToHSL :: MonadResource m => Quantum -> Quantum -> Quantum -> m (Double, Double, Double)-convertRGBToHSL q1 q2 q3 = liftIO $ with3 (F.convertRGBToHSL q1 q2 q3) >>= return . (map3 realToFrac)--convertRGBToHWB :: MonadResource m => Quantum -> Quantum -> Quantum -> m (Double, Double, Double)-convertRGBToHWB q1 q2 q3 = liftIO $ with3 (F.convertRGBToHSB q1 q2 q3) >>= return . (map3 realToFrac)-
− Graphics/ImageMagick/MagickCore/Mime.hs 
@@ -1,23 +0,0 @@-module Graphics.ImageMagick.MagickCore.Mime-  ( toMime-  ) where--import           Control.Applicative-import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Data.ByteString                          (packCString,-                                                           useAsCString)-import           Data.Text                                (Text)-import           Data.Text.Encoding                       (decodeUtf8,-                                                           encodeUtf8)-import           Foreign---import qualified Graphics.ImageMagick.MagickCore.FFI.Mime as F--toMime :: (MonadResource m) => Text -> m Text-toMime format = liftIO $ do-  cstr <- useAsCString (encodeUtf8 format) F.magickToMime-  mime <- decodeUtf8 <$> packCString cstr-  free cstr-  return mime
− Graphics/ImageMagick/MagickCore/Option.hs 
@@ -1,14 +0,0 @@-module Graphics.ImageMagick.MagickCore.Option-       ( parseChannelOption-       ) where--import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Data.ByteString                            (ByteString, useAsCString)--import qualified Graphics.ImageMagick.MagickCore.FFI.Option as F-import           Graphics.ImageMagick.MagickCore.Types---parseChannelOption :: (MonadResource m) => ByteString -> m ChannelType-parseChannelOption s = liftIO $ useAsCString s F.parseChannelOption
− Graphics/ImageMagick/MagickCore/Quantize.hs 
@@ -1,15 +0,0 @@-module Graphics.ImageMagick.MagickCore.Quantize where--import           Control.Monad.Trans.Resource-import           Control.Monad.IO.Class--import           Foreign--import qualified Graphics.ImageMagick.MagickCore.FFI.Quantize as F-import           Graphics.ImageMagick.MagickCore.Types.FFI.Quantize (QuantizeInfo)--getQuantizeInfo :: (MonadResource m) => m QuantizeInfo-getQuantizeInfo = liftIO $-  alloca $ \qiPtr -> do-    () <- F.c_getQuantizeInfo qiPtr-    peek qiPtr
− Graphics/ImageMagick/MagickCore/Types.hs 
@@ -1,48 +0,0 @@-module Graphics.ImageMagick.MagickCore.Types-  ( module Graphics.ImageMagick.MagickCore.Types.FFI.AlphaChannelType-  , module Graphics.ImageMagick.MagickCore.Types.FFI.CacheView-  , module Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType-  , module Graphics.ImageMagick.MagickCore.Types.FFI.ColorspaceType-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Composite-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Compress-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Constitute-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Distort-  , module Graphics.ImageMagick.MagickCore.Types.FFI.DitherMethod-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Exception-  , module Graphics.ImageMagick.MagickCore.Types.FFI.FilterTypes-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Fx-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Geometry-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Image-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Layer-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Log-  , module Graphics.ImageMagick.MagickCore.Types.FFI.MagickFunction-  , module Graphics.ImageMagick.MagickCore.Types.FFI.PaintMethod-  , module Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Statistic-  , module Graphics.ImageMagick.MagickCore.Types.FFI.Types-  , module Graphics.ImageMagick.MagickCore.Types.MBits-  ) where--import           Graphics.ImageMagick.MagickCore.Types.FFI.AlphaChannelType-import           Graphics.ImageMagick.MagickCore.Types.FFI.CacheView-import           Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType-import           Graphics.ImageMagick.MagickCore.Types.FFI.ColorspaceType-import           Graphics.ImageMagick.MagickCore.Types.FFI.Composite-import           Graphics.ImageMagick.MagickCore.Types.FFI.Compress-import           Graphics.ImageMagick.MagickCore.Types.FFI.Constitute-import           Graphics.ImageMagick.MagickCore.Types.FFI.Distort-import           Graphics.ImageMagick.MagickCore.Types.FFI.DitherMethod-import           Graphics.ImageMagick.MagickCore.Types.FFI.Exception-import           Graphics.ImageMagick.MagickCore.Types.FFI.FilterTypes-import           Graphics.ImageMagick.MagickCore.Types.FFI.Fx-import           Graphics.ImageMagick.MagickCore.Types.FFI.Geometry-import           Graphics.ImageMagick.MagickCore.Types.FFI.Image-import           Graphics.ImageMagick.MagickCore.Types.FFI.Layer-import           Graphics.ImageMagick.MagickCore.Types.FFI.Log-import           Graphics.ImageMagick.MagickCore.Types.FFI.MagickFunction-import           Graphics.ImageMagick.MagickCore.Types.FFI.PaintMethod-import           Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket-import           Graphics.ImageMagick.MagickCore.Types.FFI.Statistic-import           Graphics.ImageMagick.MagickCore.Types.FFI.Types-import           Graphics.ImageMagick.MagickCore.Types.MBits-
− Graphics/ImageMagick/MagickCore/Types/FFI/AlphaChannelType.hsc 
@@ -1,25 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.AlphaChannelType-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>-newtype AlphaChannelType = AlphaChannelType { unAlphaChannelType :: CInt }-  deriving (Eq, Show)--#{enum AlphaChannelType, AlphaChannelType-  , undefinedAlphaChannel = UndefinedAlphaChannel-  , activateAlphaChannel = ActivateAlphaChannel-  , backgroundAlphaChannel = BackgroundAlphaChannel-  , copyAlphaChannel = CopyAlphaChannel-  , deactivateAlphaChannel = DeactivateAlphaChannel-  , extractAlphaChannel = ExtractAlphaChannel-  , opaqueAlphaChannel = OpaqueAlphaChannel-  , resetAlphaChannel = ResetAlphaChannel  /* deprecated */-  , setAlphaChannel = SetAlphaChannel-  , shapeAlphaChannel = ShapeAlphaChannel-  , transparentAlphaChannel = TransparentAlphaChannel-  , lattenAlphaChannel = FlattenAlphaChannel-  , removeAlphaChannel = RemoveAlphaChannel-}
− Graphics/ImageMagick/MagickCore/Types/FFI/CacheView.hsc 
@@ -1,32 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.CacheView-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype VirtualPixelMethod = VirtualPixelMethod { unVirtualPixelMethod :: CInt }-          deriving (Eq, Show)--#{enum VirtualPixelMethod, VirtualPixelMethod,-    undefinedVirtualPixelMethod = UndefinedVirtualPixelMethod,-    backgroundVirtualPixelMethod = BackgroundVirtualPixelMethod,-    constantVirtualPixelMethod = ConstantVirtualPixelMethod,-    ditherVirtualPixelMethod = DitherVirtualPixelMethod,-    edgeVirtualPixelMethod = EdgeVirtualPixelMethod,-    mirrorVirtualPixelMethod = MirrorVirtualPixelMethod,-    randomVirtualPixelMethod = RandomVirtualPixelMethod,-    tileVirtualPixelMethod = TileVirtualPixelMethod,-    transparentVirtualPixelMethod = TransparentVirtualPixelMethod,-    maskVirtualPixelMethod = MaskVirtualPixelMethod,-    blackVirtualPixelMethod = BlackVirtualPixelMethod,-    grayVirtualPixelMethod = GrayVirtualPixelMethod,-    whiteVirtualPixelMethod = WhiteVirtualPixelMethod,-    horizontalTileVirtualPixelMethod = HorizontalTileVirtualPixelMethod,-    verticalTileVirtualPixelMethod = VerticalTileVirtualPixelMethod,-    horizontalTileEdgeVirtualPixelMethod = HorizontalTileEdgeVirtualPixelMethod,-    verticalTileEdgeVirtualPixelMethod = VerticalTileEdgeVirtualPixelMethod,-    checkerTileVirtualPixelMethod = CheckerTileVirtualPixelMethod-}
− Graphics/ImageMagick/MagickCore/Types/FFI/ChannelType.hsc 
@@ -1,33 +0,0 @@-{-# LANGUAGE CPP, ForeignFunctionInterface, NoMonomorphismRestriction #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType-  where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype ChannelType = ChannelType { unChannelType :: CInt }-  deriving (Eq, Show)--#{enum ChannelType, ChannelType- , undefinedCHannel =  UndefinedChannel- , redChannel =  RedChannel- , grayChannel = GrayChannel- , cyanChannel = CyanChannel- , greenChannel = GreenChannel- , magentaChannel = MagentaChannel- , blueChannel = BlueChannel- , yellowChannel = YellowChannel- , alphaChannel = AlphaChannel- , opacityChannel = OpacityChannel- , matteChannel = MatteChannel - , blackChannel = BlackChannel- , indexChannel = IndexChannel- , compositeChannels = CompositeChannels- , allChannels = AllChannels- , trueAlphaChannel = TrueAlphaChannel- , rgbChannels = RGBChannels- , grayChannels = GrayChannels- , syncChannels = SyncChannels- , defaultChannels = DefaultChannels-}
− Graphics/ImageMagick/MagickCore/Types/FFI/ColorspaceType.hsc 
@@ -1,39 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.ColorspaceType-    where--import           Foreign.C.Types-import           Foreign.Storable-#include <magick/MagickCore.h>--newtype ColorspaceType = ColorspaceType { unColorspaceType :: CInt }-    deriving (Eq, Show, Storable)---#{enum ColorspaceType, ColorspaceType,-  undefinedColorspace =  UndefinedColorspace,-  rgbColorspace =   RGBColorspace,-  grayColorspace =   GRAYColorspace,-  transparentColorspace =   TransparentColorspace,-  ohtaColorspace =   OHTAColorspace,-  labColorspace =   LabColorspace,-  xyzColorspace =   XYZColorspace,-  ycbCrColorspace =   YCbCrColorspace,-  yccColorspace =   YCCColorspace,-  yiqColorspace =   YIQColorspace,-  ypbprColorspace =   YPbPrColorspace,-  yuvColorspace =   YUVColorspace,-  cmykColorspace =   CMYKColorspace,-  srgbColorspace =   sRGBColorspace,-  hsbColorspace =   HSBColorspace,-  hslColorspace =   HSLColorspace,-  hwbColorspace =   HWBColorspace,-  rec601LumaColorspace =   Rec601LumaColorspace,-  rec601YCbCrColorspace =   Rec601YCbCrColorspace,-  rec709LumaColorspace =   Rec709LumaColorspace,-  rec709YCbCrColorspace =   Rec709YCbCrColorspace,-  logColorspace =   LogColorspace,-  cmyColorspace = CMYColorspace-}
− Graphics/ImageMagick/MagickCore/Types/FFI/Composite.hsc 
@@ -1,81 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.Composite-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype CompositeOperator = CompositeOperator { unCompositeOperator :: CInt }--#{enum CompositeOperator, CompositeOperator,-   undefinedCompositeOp =  UndefinedCompositeOp,-   noCompositeOp =  NoCompositeOp,-   modulusAddCompositeOp =  ModulusAddCompositeOp,-   atopCompositeOp =  AtopCompositeOp,-   blendCompositeOp =  BlendCompositeOp,-   bumpmapCompositeOp =  BumpmapCompositeOp,-   changeMaskCompositeOp =  ChangeMaskCompositeOp,-   clearCompositeOp =  ClearCompositeOp,-   colorBurnCompositeOp =  ColorBurnCompositeOp,-   colorDodgeCompositeOp =  ColorDodgeCompositeOp,-   colorizeCompositeOp =  ColorizeCompositeOp,-   copyBlackCompositeOp =  CopyBlackCompositeOp,-   copyBlueCompositeOp =  CopyBlueCompositeOp,-   copyCompositeOp =  CopyCompositeOp,-   copyCyanCompositeOp =  CopyCyanCompositeOp,-   copyGreenCompositeOp =  CopyGreenCompositeOp,-   copyMagentaCompositeOp =  CopyMagentaCompositeOp,-   copyOpacityCompositeOp =  CopyOpacityCompositeOp,-   copyRedCompositeOp =  CopyRedCompositeOp,-   copyYellowCompositeOp =  CopyYellowCompositeOp,-   darkenCompositeOp =  DarkenCompositeOp,-   dstAtopCompositeOp =  DstAtopCompositeOp,-   dstCompositeOp =  DstCompositeOp,-   dstInCompositeOp =  DstInCompositeOp,-   dstOutCompositeOp =  DstOutCompositeOp,-   dstOverCompositeOp =  DstOverCompositeOp,-   differenceCompositeOp =  DifferenceCompositeOp,-   displaceCompositeOp =  DisplaceCompositeOp,-   dissolveCompositeOp =  DissolveCompositeOp,-   exclusionCompositeOp =  ExclusionCompositeOp,-   hardLightCompositeOp =  HardLightCompositeOp,-   hueCompositeOp =  HueCompositeOp,-   inCompositeOp =  InCompositeOp,-   lightenCompositeOp =  LightenCompositeOp,-   linearLightCompositeOp =  LinearLightCompositeOp,-   luminizeCompositeOp =  LuminizeCompositeOp,-   minusDstCompositeOp =  MinusDstCompositeOp,-   modulateCompositeOp =  ModulateCompositeOp,-   multiplyCompositeOp =  MultiplyCompositeOp,-   outCompositeOp =  OutCompositeOp,-   overCompositeOp =  OverCompositeOp,-   overlayCompositeOp =  OverlayCompositeOp,-   plusCompositeOp =  PlusCompositeOp,-   replaceCompositeOp =  ReplaceCompositeOp,-   saturateCompositeOp =  SaturateCompositeOp,-   screenCompositeOp =  ScreenCompositeOp,-   softLightCompositeOp =  SoftLightCompositeOp,-   srcAtopCompositeOp =  SrcAtopCompositeOp,-   srcCompositeOp =  SrcCompositeOp,-   srcInCompositeOp =  SrcInCompositeOp,-   srcOutCompositeOp =  SrcOutCompositeOp,-   srcOverCompositeOp =  SrcOverCompositeOp,-   modulusSubtractCompositeOp =  ModulusSubtractCompositeOp,-   thresholdCompositeOp =  ThresholdCompositeOp,-   xorCompositeOp =  XorCompositeOp,-   divideDstCompositeOp =  DivideDstCompositeOp,-   distortCompositeOp =  DistortCompositeOp,-   blurCompositeOp =  BlurCompositeOp,-   pegtopLightCompositeOp =  PegtopLightCompositeOp,-   vividLightCompositeOp =  VividLightCompositeOp,-   pinLightCompositeOp =  PinLightCompositeOp,-   linearDodgeCompositeOp =  LinearDodgeCompositeOp,-   linearBurnCompositeOp =  LinearBurnCompositeOp,-   mathematicsCompositeOp =  MathematicsCompositeOp,-   divideSrcCompositeOp =  DivideSrcCompositeOp,-   minusSrcCompositeOp =  MinusSrcCompositeOp,-   darkenIntensityCompositeOp =  DarkenIntensityCompositeOp,-   lightenIntensityCompositeOp = LightenIntensityCompositeOp-} -
− Graphics/ImageMagick/MagickCore/Types/FFI/Compress.hsc 
@@ -1,36 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.Compress-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype CompressionType = CompressionType { unCompressionType :: CInt }-    deriving (Eq, Show)---#{enum CompressionType, CompressionType-  , undefinedCompression = UndefinedCompression-  , noCompression = NoCompression-  , bzipCompression = BZipCompression-  , dxt1Compression = DXT1Compression-  , dxt3Compression = DXT3Compression-  , dxt5Compression = DXT5Compression-  , axCompression = FaxCompression-  , group4Compression = Group4Compression-  , jpegCompression = JPEGCompression-  , jpeg2000Compression = JPEG2000Compression      /* ISO/IEC std 15444-1 */-  , losslessJPEGCompression = LosslessJPEGCompression-  , lzwCompression = LZWCompression-  , rleCompression = RLECompression-  , zipCompression = ZipCompression-  , zipsCompression = ZipSCompression-  , pizCompression = PizCompression-  , pxr24Compression = Pxr24Compression-  , b44Compression = B44Compression-  , b44aCompression = B44ACompression-  , lzmaCompression = LZMACompression            /* Lempel-Ziv-Markov chain algorithm */-  , jbig1Compression = JBIG1Compression           /* ISO/IEC std 11544 / ITU-T rec T.82 */-  , jbig2Compression = JBIG2Compression            /* ISO/IEC std 14492 / ITU-T rec T.88 */-}
− Graphics/ImageMagick/MagickCore/Types/FFI/Constitute.hsc 
@@ -1,22 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Constitute-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype StorageType = StorageType { unStorageType :: CInt }-          deriving (Eq, Show)--#{enum StorageType, StorageType-  , undefinedPixel = UndefinedPixel-  , charPixel = CharPixel-  , doublePixel = DoublePixel-  , floatPixel = FloatPixel-  , integerPixel = IntegerPixel-  , longPixel = LongPixel-  , quantumPixel = QuantumPixel-  , shortPixel = ShortPixel-}
− Graphics/ImageMagick/MagickCore/Types/FFI/Distort.hsc 
@@ -1,46 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.Distort-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype DistortImageMethod = DistortImageMethod { unDistortImageMethod :: CInt }--#{enum DistortImageMethod, DistortImageMethod-  , undefinedDistortion = UndefinedDistortion-  , affineDistortion = AffineDistortion-  , affineProjectionDistortion = AffineProjectionDistortion-  , scaleRotateTranslateDistortion = ScaleRotateTranslateDistortion-  , perspectiveDistortion = PerspectiveDistortion-  , perspectiveProjectionDistortion = PerspectiveProjectionDistortion-  , bilinearForwardDistortion = BilinearForwardDistortion-  , bilinearReverseDistortion = BilinearReverseDistortion-  , polynomialDistortion = PolynomialDistortion-  , arcDistortion = ArcDistortion-  , polarDistortion = PolarDistortion-  , dePolarDistortion = DePolarDistortion-  , cylinder2PlaneDistortion = Cylinder2PlaneDistortion-  , plane2CylinderDistortion = Plane2CylinderDistortion-  , barrelDistortion = BarrelDistortion-  , barrelInverseDistortion = BarrelInverseDistortion-  , shepardsDistortion = ShepardsDistortion-  , resizeDistortion = ResizeDistortion-  , sentinelDistortion = SentinelDistortion-}--bilinearDistortion :: DistortImageMethod-bilinearDistortion = bilinearForwardDistortion--newtype SparseColorMethod = SparseColorMethod { unSparseColorMethod :: CInt }--#{enum SparseColorMethod, SparseColorMethod,-  undefinedColorInterpolate = UndefinedDistortion,-  barycentricColorInterpolate = AffineDistortion,-  bilinearColorInterpolate = BilinearReverseDistortion,-  polynomialColorInterpolate = PolynomialDistortion,-  shepardsColorInterpolate = ShepardsDistortion,-  voronoiColorInterpolate = SentinelDistortion,-  inverseColorInterpolate =InverseColorInterpolate-}
− Graphics/ImageMagick/MagickCore/Types/FFI/DitherMethod.hsc 
@@ -1,20 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.DitherMethod-    where--import           Foreign.C.Types-import           Foreign.Storable-#include <magick/MagickCore.h>--newtype DitherMethod = DitherMethod { unDitherMethod :: CInt }-    deriving (Eq,Show,Storable)--#{enum DitherMethod, DitherMethod-  , undefinedDitherFilter      = UndefinedDitherMethod-  , noDitherMethod             = NoDitherMethod-  , riemersmaDitherMethod      = RiemersmaDitherMethod-  , floydSteinbergDitherMethod = FloydSteinbergDitherMethod-}-
− Graphics/ImageMagick/MagickCore/Types/FFI/Exception.hsc 
@@ -1,97 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Exception-    where--import           Foreign.Storable-import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype ExceptionType = ExceptionType { unExceptionType :: CInt }-                      deriving (Eq,Show,Storable)--#{enum ExceptionType, ExceptionType-  ,  undefinedException =   UndefinedException-  ,  warningException  =   WarningException -  ,  resourceLimitWarning  =   ResourceLimitWarning -  ,  typeWarning  =   TypeWarning -  ,  optionWarning  =   OptionWarning -  ,  delegateWarning  =   DelegateWarning -  ,  missingDelegateWarning  =   MissingDelegateWarning -  ,  corruptImageWarning  =   CorruptImageWarning -  ,  fileOpenWarning  =   FileOpenWarning -  ,  blobWarning  =   BlobWarning -  ,  streamWarning  =   StreamWarning -  ,  cacheWarning  =   CacheWarning -  ,  coderWarning  =   CoderWarning -  ,  filterWarning  =   FilterWarning -  ,  moduleWarning  =   ModuleWarning -  ,  drawWarning  =   DrawWarning -  ,  imageWarning  =   ImageWarning -  ,  wandWarning  =   WandWarning -  ,  randomWarning  =   RandomWarning -  ,  xServerWarning  =   XServerWarning -  ,  monitorWarning  =   MonitorWarning -  ,  registryWarning  =   RegistryWarning -  ,  configureWarning  =   ConfigureWarning -  ,  policyWarning  =   PolicyWarning -  ,  errorException  =   ErrorException -  ,  resourceLimitError  =   ResourceLimitError -  ,  typeError  =   TypeError -  ,  optionError  =   OptionError -  ,  delegateError  =   DelegateError -  ,  missingDelegateError  =   MissingDelegateError -  ,  corruptImageError  =   CorruptImageError -  ,  fileOpenError  =   FileOpenError -  ,  blobError  =   BlobError -  ,  streamError  =   StreamError -  ,  cacheError  =   CacheError -  ,  coderError  =   CoderError -  ,  filterError  =   FilterError -  ,  moduleError  =   ModuleError -  ,  drawError  =   DrawError -  ,  imageError  =   ImageError -  ,  wandError  =   WandError -  ,  randomError  =   RandomError -  ,  xServerError  =   XServerError -  ,  monitorError  =   MonitorError -  ,  registryError  =   RegistryError -  ,  configureError  =   ConfigureError -  ,  policyError  =   PolicyError -  ,  fatalErrorException  =   FatalErrorException -  ,  resourceLimitFatalError  =   ResourceLimitFatalError -  ,  typeFatalError  =   TypeFatalError -  ,  optionFatalError  =   OptionFatalError -  ,  delegateFatalError  =   DelegateFatalError -  ,  missingDelegateFatalError  =   MissingDelegateFatalError -  ,  corruptImageFatalError  =   CorruptImageFatalError -  ,  fileOpenFatalError  =   FileOpenFatalError -  ,  blobFatalError  =   BlobFatalError -  ,  streamFatalError  =   StreamFatalError -  ,  cacheFatalError  =   CacheFatalError -  ,  coderFatalError  =   CoderFatalError -  ,  filterFatalError  =   FilterFatalError -  ,  moduleFatalError  =   ModuleFatalError -  ,  drawFatalError  =   DrawFatalError -  ,  imageFatalError  =   ImageFatalError -  ,  wandFatalError  =   WandFatalError -  ,  randomFatalError  =   RandomFatalError -  ,  xServerFatalError  =   XServerFatalError -  ,  monitorFatalError  =   MonitorFatalError -  ,  registryFatalError  =   RegistryFatalError -  ,  configureFatalError  =   ConfigureFatalError -  ,  policyFatalError  =   PolicyFatalError -}--data ExceptionSeverity  = Undefined | Warning | Error | FatalError-                        deriving (Eq, Show)--toSeverity :: ExceptionType -> ExceptionSeverity-toSeverity x = go ((unExceptionType x) `div` 100) -  where -    go 3 = Warning-    go 4 = Error-    go 7 = FatalError-    go _ = Undefined
− Graphics/ImageMagick/MagickCore/Types/FFI/FilterTypes.hsc 
@@ -1,42 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.FilterTypes-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype FilterTypes = FilterTypes { unPCREOption :: CInt }-    deriving (Eq,Show)--#{enum FilterTypes, FilterTypes-  , undefinedFilter = UndefinedFilter-  , pointFilter     = PointFilter-  , boxFilter       = BoxFilter-  , triangleFilter  = TriangleFilter-  , hermiteFilter   = HermiteFilter-  , hanningFilter   = HanningFilter-  , hammingFilter   = HammingFilter-  , blackmanFilter  = BlackmanFilter-  , gaussianFilter  = GaussianFilter-  , qaudraticFilter = QuadraticFilter-  , cubicFilter     = CubicFilter-  , catromFilter    = CatromFilter-  , mirchellFilter  = MitchellFilter-  , jincFilter      = JincFilter-  , sinkFilter      = SincFilter-  , sinkFastFilter  = SincFastFilter-  , kaiserFilter    = KaiserFilter-  , welshFilter     = WelshFilter-  , parzenFilter    = ParzenFilter-  , bohmanFilter    = BohmanFilter-  , bartlettFilter  = BartlettFilter-  , lagrangeFilter  = LagrangeFilter-  , lanczosFilter   = LanczosFilter-  , lanczosSharpFilter = LanczosSharpFilter-  , lanczos2Filter  = Lanczos2Filter-  , lanczos2SharpFilter = Lanczos2SharpFilter-  , robidouxFilter  = RobidouxFilter-}-
− Graphics/ImageMagick/MagickCore/Types/FFI/Fx.hsc 
@@ -1,23 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Fx-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype NoiseType = NoiseType { unNoiseType :: CInt }-          deriving (Eq, Show)--#{enum NoiseType, NoiseType,-  undefinedNoise = UndefinedNoise,-  uniformNoise = UniformNoise,-  gaussianNoise = GaussianNoise,-  multiplicativeGaussianNoise = MultiplicativeGaussianNoise,-  impulseNoise = ImpulseNoise,-  laplacianNoise = LaplacianNoise,-  poissonNoise = PoissonNoise,-  randomNoise = RandomNoise-}
− Graphics/ImageMagick/MagickCore/Types/FFI/Geometry.hsc 
@@ -1,30 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Geometry-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype GravityType = GravityType { unGravityType :: CInt }-          deriving (Eq, Show)--#{enum GravityType, GravityType-  , forgetGravity = ForgetGravity-  , northWestGravity = NorthWestGravity-  , northGravity = NorthGravity-  , northEastGravity = NorthEastGravity-  , westGravity = WestGravity -  , centerGravity = CenterGravity-  , eastGravity = EastGravity-  , southWestGravity = SouthWestGravity-  , southGravity = SouthGravity-  , southEastGravity = SouthEastGravity-  , staticGravity = StaticGravity-}--undefinedGravity :: GravityType-undefinedGravity = forgetGravity-
− Graphics/ImageMagick/MagickCore/Types/FFI/Image.hsc 
@@ -1,24 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.Image-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>-newtype ImageType = ImageType { unImageType :: CInt }-  deriving (Eq, Show)--#{enum ImageType, ImageType-  , undefinedType = UndefinedType-  , bilevelType = BilevelType-  , grayscaleType = GrayscaleType-  , grayscaleMatteType = GrayscaleMatteType-  , paletteType = PaletteType-  , paletteMatteType = PaletteMatteType-  , trueColorType = TrueColorType-  , trueColorMatteType = TrueColorMatteType-  , colorSeparationType = ColorSeparationType-  , colorSeparationMatteType = ColorSeparationMatteType-  , optimizeType = OptimizeType-  , paletteBilevelMatteType = PaletteBilevelMatteType-}
− Graphics/ImageMagick/MagickCore/Types/FFI/Layer.hsc 
@@ -1,32 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Layer-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype ImageLayerMethod = ImageLayerMethod { unImageLayerMethod :: CInt }-          deriving (Eq, Show)--#{enum ImageLayerMethod, ImageLayerMethod-  , undefinedLayer = UndefinedLayer-  , coalesceLayer = CoalesceLayer-  , compareAnyLayer = CompareAnyLayer-  , compareClearLayer = CompareClearLayer-  , compareOverlayLayer = CompareOverlayLayer-  , disposeLayer = DisposeLayer-  , optimizeLayer = OptimizeLayer-  , optimizeImageLayer = OptimizeImageLayer-  , optimizePlusLayer = OptimizePlusLayer-  , optimizeTransLayer = OptimizeTransLayer-  , removeDupsLayer = RemoveDupsLayer-  , removeZeroLayer = RemoveZeroLayer-  , compositeLayer = CompositeLayer-  , mergeLayer = MergeLayer-  , flattenLayer = FlattenLayer-  , mosaicLayer = MosaicLayer-  , trimBoundsLayer = TrimBoundsLayer-}
− Graphics/ImageMagick/MagickCore/Types/FFI/Log.hsc 
@@ -1,37 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Log-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>---newtype LogEventType = LogEventType { unLogEventType :: CInt }-          deriving (Eq, Show)--#{enum LogEventType, LogEventType-  , undefinedEvents = UndefinedEvents-  , noEvents = NoEvents-  , traceEvent = TraceEvent-  , annotateEvent = AnnotateEvent-  , blobEvent = BlobEvent-  , cacheEvent = CacheEvent-  , coderEvent = CoderEvent-  , configureEvent = ConfigureEvent-  , deprecateEvent = DeprecateEvent-  , drawEvent = DrawEvent-  , exceptionEvent = ExceptionEvent-  , imageEvent = ImageEvent-  , localeEvent = LocaleEvent-  , moduleEvent = ModuleEvent-  , policyEvent = PolicyEvent-  , resourceEvent = ResourceEvent-  , transformEvent = TransformEvent-  , userEvent = UserEvent-  , wandEvent = WandEvent-  , x11Event = X11Event-  , accelerateEvent = AccelerateEvent-  , allEvents = AllEvents-}
− Graphics/ImageMagick/MagickCore/Types/FFI/MagickFunction.hsc 
@@ -1,20 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.MagickFunction-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype MagickFunction = MagickFunction { unMagickFunction :: CInt }-          deriving (Eq, Show)--#{enum MagickFunction, MagickFunction,-  undefinedFunction =   UndefinedFunction,-  polynomialFunction =   PolynomialFunction,-  sinusoidFunction =   SinusoidFunction,-  arcsinFunction =   ArcsinFunction,-  arctanFunction = ArctanFunction-}-
− Graphics/ImageMagick/MagickCore/Types/FFI/PaintMethod.hsc 
@@ -1,20 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.PaintMethod-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype PaintMethod =  PaintMethod { unPaintMethod :: CInt }---#{enum PaintMethod, PaintMethod,-  undefinedMethod = UndefinedMethod,-  pointMethod = PointMethod,-  replaceMethod = ReplaceMethod,-  floodfillMethod = FloodfillMethod,-  fillToBorderMethod = FillToBorderMethod,-  resetMethod = ResetMethod-}-
− Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc 
@@ -1,34 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE NoMonomorphismRestriction #-} -module Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket-    where--import           Foreign-#include <magick/MagickCore.h>--data PixelPacket --instance Storable PixelPacket where-  sizeOf = const #size PixelPacket-  alignment _ = 1-  peek = error "not yet implemented"-  poke = error "not yet implemented"--pixelPacketGetRed, pixelPacketGetGreen, pixelPacketGetBlue-                 , pixelPacketGetOpacity -  :: Storable a => Ptr b -> IO a-pixelPacketGetRed     = #peek PixelPacket, red-pixelPacketGetGreen   = #peek PixelPacket, green-pixelPacketGetBlue    = #peek PixelPacket, blue-pixelPacketGetOpacity = #peek PixelPacket, opacity--pixelPacketSetRed, pixelPacketSetGreen, pixelPacketSetBlue-                 , pixelPacketSetOpacity-  :: Storable a => Ptr b -> a -> IO ()--pixelPacketSetRed     = #poke PixelPacket, red-pixelPacketSetGreen   = #poke PixelPacket, green-pixelPacketSetBlue    = #poke PixelPacket, blue-pixelPacketSetOpacity = #poke PixelPacket, opacity-
− Graphics/ImageMagick/MagickCore/Types/FFI/Quantize.hsc 
@@ -1,44 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Quantize where--import           Graphics.ImageMagick.MagickCore.Types (ColorspaceType, DitherMethod)-import           Graphics.ImageMagick.MagickWand.FFI.Types (MagickBooleanType)-import           Foreign.C.Types (CSize)-import           Foreign.Storable--#include <magick/MagickCore.h>--data QuantizeInfo = QuantizeInfo { numberOfColors :: CSize-                                 , treeDepth :: CSize-                                 , shouldDither :: MagickBooleanType-                                 , colorspace :: ColorspaceType-                                 , measureError :: MagickBooleanType-                                 , signature :: CSize-                                 , ditherMethod :: DitherMethod-                                 }-  deriving (Eq, Show)--instance Storable QuantizeInfo where-  sizeOf      _ = (#size QuantizeInfo)-  alignment   _ = alignment (undefined :: CSize)-  peek ptr      = do-    numberOfColors' <- (#peek QuantizeInfo, number_colors) ptr-    treeDepth'      <- (#peek QuantizeInfo, tree_depth) ptr-    shouldDither'   <- (#peek QuantizeInfo, dither) ptr-    colorspace'     <- (#peek QuantizeInfo, colorspace) ptr-    measureError'   <- (#peek QuantizeInfo, measure_error) ptr-    signature'      <- (#peek QuantizeInfo, signature) ptr-    ditherMethod'   <- (#peek QuantizeInfo, dither_method) ptr-    return QuantizeInfo { numberOfColors = numberOfColors'-                        , treeDepth      = treeDepth'-                        , shouldDither   = shouldDither'-                        , colorspace     = colorspace'-                        , measureError   = measureError'-                        , signature      = signature'-                        , ditherMethod   = ditherMethod'-                        }-  poke = error "not yet implemented"-
− Graphics/ImageMagick/MagickCore/Types/FFI/Statistic.hsc 
@@ -1,48 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}--module Graphics.ImageMagick.MagickCore.Types.FFI.Statistic-    where--import           Foreign.C.Types-#include <magick/MagickCore.h>--newtype MagickEvaluateOperator = MagickEvaluateOperator { unMagickEvaluateOperator :: CInt }-          deriving (Eq, Show)--#{enum MagickEvaluateOperator, MagickEvaluateOperator-  , undefinedEvaluateOperator = UndefinedEvaluateOperator-  , addEvaluateOperator = AddEvaluateOperator-  , andEvaluateOperator = AndEvaluateOperator-  , divideEvaluateOperator = DivideEvaluateOperator-  , leftShiftEvaluateOperator = LeftShiftEvaluateOperator-  , maxEvaluateOperator = MaxEvaluateOperator-  , minEvaluateOperator = MinEvaluateOperator-  , multiplyEvaluateOperator = MultiplyEvaluateOperator-  , orEvaluateOperator = OrEvaluateOperator-  , rightShiftEvaluateOperator = RightShiftEvaluateOperator-  , setEvaluateOperator = SetEvaluateOperator-  , subtractEvaluateOperator = SubtractEvaluateOperator-  , xorEvaluateOperator = XorEvaluateOperator-  , powEvaluateOperator = PowEvaluateOperator-  , logEvaluateOperator = LogEvaluateOperator-  , thresholdEvaluateOperator = ThresholdEvaluateOperator-  , thresholdBlackEvaluateOperator = ThresholdBlackEvaluateOperator-  , thresholdWhiteEvaluateOperator = ThresholdWhiteEvaluateOperator-  , gaussianNoiseEvaluateOperator = GaussianNoiseEvaluateOperator-  , impulseNoiseEvaluateOperator = ImpulseNoiseEvaluateOperator-  , laplacianNoiseEvaluateOperator = LaplacianNoiseEvaluateOperator-  , multiplicativeNoiseEvaluateOperator = MultiplicativeNoiseEvaluateOperator-  , poissonNoiseEvaluateOperator = PoissonNoiseEvaluateOperator-  , uniformNoiseEvaluateOperator = UniformNoiseEvaluateOperator-  , cosineEvaluateOperator = CosineEvaluateOperator-  , sineEvaluateOperator = SineEvaluateOperator-  , addModulusEvaluateOperator = AddModulusEvaluateOperator-  , meanEvaluateOperator = MeanEvaluateOperator-  , absEvaluateOperator = AbsEvaluateOperator-  , exponentialEvaluateOperator = ExponentialEvaluateOperator-  , medianEvaluateOperator = MedianEvaluateOperator-  , sumEvaluateOperator = SumEvaluateOperator-}-
− Graphics/ImageMagick/MagickCore/Types/FFI/Types.hsc 
@@ -1,29 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-{-# LANGUAGE RankNTypes #-}-module Graphics.ImageMagick.MagickCore.Types.FFI.Types-    where--import           Data.Int-import           Data.Word-#include <magick/MagickCore.h>--type MagickRealType   = #type MagickRealType-type MagickStatusType = #type MagickStatusType-type MagickOffsetType = #type MagickOffsetType-type MagickSizeType   = #type MagickSizeType-type SignedQuantum    = #type SignedQuantum-type QuantumAny       = #type QuantumAny-type Quantum          = #type Quantum-type IndexPacket      = #type IndexPacket--magickEpsilon :: forall a. Fractional a => a-magickEpsilon   = 1e-10 -- #const MagickEpsilon-maxColormapSize :: forall a. Num a => a-maxColormapSize = #const MaxColormapSize-maxMap :: forall a. Num a => a-maxMap          = #const MaxMap-quantumFormat :: forall a. Num a => a-quantumFormat   = #const QuantumFormat-quantumRange :: forall a. Num a => a-quantumRange    = #const QuantumRange
− Graphics/ImageMagick/MagickCore/Types/MBits.hs 
@@ -1,13 +0,0 @@-module Graphics.ImageMagick.MagickCore.Types.MBits-  where--import           Data.Bits-import           Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType--class MBits a where-  (^|^) :: a -> a -> a-  (^&^) :: a -> a -> a--instance MBits ChannelType where-  a ^|^ b = ChannelType (unChannelType a .|. unChannelType b)-  a ^&^ b = ChannelType (unChannelType a .&. unChannelType b)
− Graphics/ImageMagick/MagickWand.hs 
@@ -1,19 +0,0 @@-module Graphics.ImageMagick.MagickWand-  ( module Graphics.ImageMagick.MagickCore-  , module Graphics.ImageMagick.MagickWand.DrawingWand-  , module Graphics.ImageMagick.MagickWand.MagickWand-  , module Graphics.ImageMagick.MagickWand.PixelIterator-  , module Graphics.ImageMagick.MagickWand.PixelPacket-  , module Graphics.ImageMagick.MagickWand.PixelWand-  , module Graphics.ImageMagick.MagickWand.Types-  , module Graphics.ImageMagick.MagickWand.WandImage-  ) where--import           Graphics.ImageMagick.MagickCore-import           Graphics.ImageMagick.MagickWand.DrawingWand-import           Graphics.ImageMagick.MagickWand.MagickWand-import           Graphics.ImageMagick.MagickWand.PixelIterator-import           Graphics.ImageMagick.MagickWand.PixelPacket-import           Graphics.ImageMagick.MagickWand.PixelWand-import           Graphics.ImageMagick.MagickWand.Types-import           Graphics.ImageMagick.MagickWand.WandImage
− Graphics/ImageMagick/MagickWand/DrawingWand.hs 
@@ -1,407 +0,0 @@-module Graphics.ImageMagick.MagickWand.DrawingWand-  ( drawingWand-  , getFillColor-  , setFillColor-  , setFillPatternURL-  , setFillRule-  , setFont-  , setFontSize-  , setGravity-  , setStrokeAntialias-  , setStrokeColor-  , setStrokeDashArray-  , setStrokeLineCap-  , setStrokeLineJoin-  , setStrokeOpacity-  , setStrokeWidth-  , setTextAntialias-  , drawAnnotation-  , drawCircle-  , drawComposite-  , drawEllipse-  , drawLine-  , drawPoint-  , drawPolygon-  , drawRectangle-  , drawRoundRectangle-  , drawColor-  , pushDrawingWand-  , popDrawingWand-  , rotate-  , translate-  , pushPattern-  , popPattern--- , clearDrawingWand --- , cloneDrawingWand --- , destroyDrawingWand --- , drawAffine --- , drawAnnotation --- , drawArc --- , drawBezier --- , drawCircle --- , drawClearException --- , drawComposite --- , drawColor --- , drawComment --- , drawEllipse --- , drawGetBorderColor --- , drawGetClipPath --- , drawGetClipRule --- , drawGetClipUnits --- , drawGetException --- , drawGetExceptionType --- , drawGetFillOpacity --- , drawGetFillRule --- , drawGetFont --- , drawGetFontFamily --- , drawGetFontResolution --- , drawGetFontSize --- , drawGetFontStretch --- , drawGetFontStyle --- , drawGetFontWeight --- , drawGetGravity --- , drawGetOpacity --- , drawGetStrokeAntialias --- , drawGetStrokeColor --- , drawGetStrokeDashArray --- , drawGetStrokeDashOffset --- , drawGetStrokeLineJoin --- , drawGetStrokeMiterLimit --- , drawGetStrokeOpacity --- , drawGetStrokeWidth --- , drawGetTextAlignment --- , drawGetTextAntialias --- , drawGetTextDecoration --- , drawGetTextEncoding --- , drawGetTextKerning --- , drawGetTextInterlineSpacing --- , drawGetTextInterwordSpacing --- , drawGetVectorGraphics --- , drawGetTextUnderColor --- , drawLine --- , drawMatte --- , drawPathClose --- , drawPathCurveToAbsolute --- , drawPathCurveToRelative --- , drawPathCurveToQuadraticBezierAbsolute --- , drawPathCurveToQuadraticBezierRelative --- , drawPathCurveToQuadraticBezierSmoothAbsolute --- , drawPathCurveToQuadraticBezierSmoothRelative --- , drawPathCurveToSmoothAbsolute --- , drawPathCurveToSmoothRelative --- , drawPathEllipticArcAbsolute --- , drawPathEllipticArcRelative --- , drawPathFinish --- , drawPathLineToAbsolute --- , drawPathLineToRelative --- , drawPathLineToHorizontalAbsolute --- , drawPathLineToHorizontalRelative --- , drawPathLineToVerticalAbsolute --- , drawPathLineToVerticalRelative --- , drawPathMoveToAbsolute --- , drawPathMoveToRelative --- , drawPathStart --- , drawPoint --- , drawPolygon --- , drawPolyline --- , drawPopClipPath --- , drawPopDefs --- , drawPopPattern --- , drawPushClipPath --- , drawPushDefs --- , drawPushPattern --- , drawRectangle --- , drawResetVectorGraphics --- , drawRotate --- , drawRoundRectangle --- , drawScale --- , drawSetBorderColor --- , drawSetClipPath --- , drawSetClipRule --- , drawSetClipUnits --- , drawSetFillColor --- , drawSetFillOpacity --- , drawSetFontResolution --- , drawSetOpacity --- , drawSetFillPatternURL --- , drawSetFillRule --- , drawSetFontFamily --- , drawSetFontSize --- , drawSetFontStretch --- , drawSetFontStyle --- , drawSetFontWeight --- , drawSetGravity --- , drawSetStrokeColor --- , drawSetStrokePatternURL --- , drawSetStrokeAntialias --- , drawSetStrokeDashArray --- , drawSetStrokeDashOffset --- , drawSetStrokeLineCap --- , drawSetStrokeLineJoin --- , drawSetStrokeMiterLimit --- , drawSetStrokeOpacity --- , drawSetStrokeWidth --- , drawSetTextAlignment --- , drawSetTextAntialias --- , drawSetTextDecoration --- , drawSetTextEncoding --- , drawSetTextKerning --- , drawSetTextInterlineSpacing --- , drawSetTextInterwordSpacing --- , drawSetTextUnderColor --- , drawSetVectorGraphics --- , drawSkewX --- , drawSkewY --- , drawTranslate --- , drawSetViewbox --- , isDrawingWand --- , newDrawingWand --- , peekDrawingWand --- , popDrawingWand --- , pushDrawingWand]-  ) where--import           Control.Monad (void)-import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Data.ByteString                                 (ByteString, useAsCString)-import           Data.Text                                       (Text)-import           Data.Text.Encoding                              (encodeUtf8)-import           Foreign                                         hiding (rotate, void)-import           Foreign.C.Types                                 ()-import           Graphics.ImageMagick.MagickCore.Types-import qualified Graphics.ImageMagick.MagickWand.FFI.DrawingWand as F-import           Graphics.ImageMagick.MagickWand.FFI.Types-import           Graphics.ImageMagick.MagickWand.Types-import           Graphics.ImageMagick.MagickWand.Utils---drawingWand :: (MonadResource m) => m (ReleaseKey, PDrawingWand)-drawingWand = allocate (F.newDrawingWand) (void . F.destroyDrawingWand)---- | returns the fill color used for drawing filled objects.-getFillColor :: (MonadResource m) => PDrawingWand -> PPixelWand -> m ()-getFillColor = (liftIO .). F.drawGetFillColor----- | DrawSetFillColor() sets the fill color to be used for drawing filled objects.-setFillColor :: (MonadResource m) => PDrawingWand -> PPixelWand -> m ()-setFillColor = (liftIO .). F.drawSetFillColor---- | Sets the URL to use as a fill pattern--- for filling objects. Only local URLs ("#identifier") are supported--- at this time. These local URLs are normally created by defining a named--- fill pattern with `pushPattern`/`popPattern`.-setFillPatternURL :: (MonadResource m) => PDrawingWand -> Text -> m ()-setFillPatternURL dw url = withException_ dw $! useAsCString (encodeUtf8 url) (F.drawSetFillPatternURL dw)---- | Sets the fill rule to use while drawing polygons.-setFillRule :: (MonadResource m) => PDrawingWand -> FillRule -> m ()-setFillRule = (liftIO .). F.drawSetFillRule---- | Sets the fully-sepecified font to use when annotating with text.-setFont :: (MonadResource m) => PDrawingWand -> ByteString -> m ()-setFont dw s = liftIO $ useAsCString s (F.drawSetFont dw)---- | Sets the font pointsize to use when annotating with text.-setFontSize :: (MonadResource m) => PDrawingWand -> Double -> m ()-setFontSize dw size = liftIO $ F.drawSetFontSize dw (realToFrac size)---- | Sets the text placement gravity to use when annotating with text.-setGravity :: (MonadResource m) => PDrawingWand -> GravityType -> m ()-setGravity = (liftIO .). F.drawSetGravity--setStrokeAntialias :: (MonadResource m) => PDrawingWand -> Bool -> m ()-setStrokeAntialias dw antialias = liftIO $ F.drawSetStrokeAntialias dw (toMBool antialias)---- | sets the color used for stroking object outlines.-setStrokeColor :: (MonadResource m) => PDrawingWand -> PPixelWand -> m ()-setStrokeColor = (liftIO .). F.drawSetStrokeColor---- | Specifies the pattern of dashes and gaps used to--- stroke paths. The stroke dash array represents an array of numbers that--- specify the lengths of alternating dashes and gaps in pixels. If an odd--- number of values is provided, then the list of values is repeated to yield--- an even number of values. To remove an existing dash array, pass an emtpy list.--- A typical stroke dash array might contain the members 5 3 2.-setStrokeDashArray :: (MonadResource m) => PDrawingWand -> [Double] -> m ()-setStrokeDashArray dw [] = liftIO $ F.drawSetStrokeDashArray dw 0 nullPtr-setStrokeDashArray dw dashes = liftIO $ withArray (map realToFrac dashes) $ \arr ->-  F.drawSetStrokeDashArray dw (fromIntegral $ length dashes) arr---- | Specifies the shape to be used at the end of open subpaths--- when they are stroked. Values of `LineCap` are `undefinedCap`,--- `buttCap, `roundCap` and `squareCap`.-setStrokeLineCap :: (MonadResource m) => PDrawingWand -> LineCap -> m ()-setStrokeLineCap = (liftIO .). F.drawSetStrokeLineCap---- | Specifies the shape to be used at the corners of paths--- (or other vector shapes) when they are stroked.--- Values of `LineJoin` are `undefinedJoin`, `miterJoin`, `roundJoin` and `bevelJoin`.-setStrokeLineJoin :: (MonadResource m) => PDrawingWand -> LineJoin -> m ()-setStrokeLineJoin = (liftIO .). F.drawSetStrokeLineJoin---- | specifies the opacity of stroked object outlines.-setStrokeOpacity :: (MonadResource m) => PDrawingWand -> Double -> m ()-setStrokeOpacity dw op = liftIO $ F.drawSetStrokeOpacity dw (realToFrac op)---- | sets the width of the stroke used to draw object outlines.-setStrokeWidth :: (MonadResource m) => PDrawingWand -> Double -> m ()-setStrokeWidth dw width = liftIO $ F.drawSetStrokeWidth dw (realToFrac width)---- | Controls whether text is antialiased. Text is antialiased by default.-setTextAntialias :: (MonadResource m) => PDrawingWand -> Bool -> m ()-setTextAntialias dw antialias = liftIO $ F.drawSetTextAntialias dw (toMBool antialias)---- | Draws text on the image.-drawAnnotation :: (MonadResource m) => PDrawingWand-     -> Double           -- ^ x ordinate to left of text-     -> Double           -- ^ y ordinate to text baseline-     -> Text             -- ^ text to draw-     -> m ()-drawAnnotation dw x y txt = liftIO $ useAsCString (encodeUtf8 txt)-                            (\cstr -> F.drawAnnotation dw (realToFrac x) (realToFrac y) cstr)---- | Draws a circle on the image.-drawCircle :: (MonadResource m) => PDrawingWand-     -> Double           -- ^ origin x ordinate-     -> Double           -- ^ origin y ordinate-     -> Double           -- ^ perimeter x ordinate-     -> Double           -- ^ perimeter y ordinate-     -> m ()-drawCircle dw ox oy px py = liftIO $ F.drawCircle dw (realToFrac ox) (realToFrac oy)-                                                     (realToFrac px) (realToFrac py)---- | Composites an image onto the current image, using the specified--- composition operator, specified position, and at the specified size.-drawComposite :: (MonadResource m) => PDrawingWand-  -> CompositeOperator -- ^ composition operator-  -> Double            -- ^ x ordinate of top left corner-  -> Double            -- ^ y ordinate of top left corner-  -> Double            -- ^ width to resize image to prior to compositing, specify zero to use existing width-  -> Double            -- ^ height to resize image to prior to compositing, specify zero to use existing height-  -> PMagickWand       -- ^ image to composite is obtained from this wand-  -> m ()-drawComposite dw compose x y w h dw' = withException_ dw $! F.drawComposite dw compose-                                                                           (realToFrac x) (realToFrac y)-                                                                           (realToFrac w) (realToFrac h) dw'---- | Draws an ellipse on the image.-drawEllipse :: (MonadResource m) => PDrawingWand-     -> Double           -- ^ origin x ordinate-     -> Double           -- ^ origin y ordinate-     -> Double           -- ^ radius in x-     -> Double           -- ^ radius in y-     -> Double           -- ^ starting rotation in degrees-     -> Double           -- ^ ending rotation in degrees-     -> m ()-drawEllipse dw ox oy rx ry start end = liftIO $ F.drawEllipse dw (realToFrac ox) (realToFrac oy)-                                                                 (realToFrac rx) (realToFrac ry)-                                                                 (realToFrac start) (realToFrac end)---- | Draws a line on the image using the current stroke color,--- stroke opacity, and stroke width.-drawLine :: (MonadResource m) => PDrawingWand-  -> Double           -- ^ starting x ordinate-  -> Double           -- ^ starting y ordinate-  -> Double           -- ^ ending x ordinate-  -> Double           -- ^ ending y ordinate-  -> m ()-drawLine dw sx sy ex ey = liftIO $ F.drawLine dw (realToFrac sx) (realToFrac sy)-                                                 (realToFrac ex) (realToFrac ey)---- | Draws a polygon using the current stroke, stroke width,--- and fill color or texture, using the specified array of coordinates.-drawPolygon :: (MonadResource m) => PDrawingWand-     -> [PointInfo]      -- ^ coordinates-     -> m ()-drawPolygon dw points = liftIO $ withArrayLen points $ \len arr ->-  F.drawPolygon dw (fromIntegral len) arr---- | Draws a rectangle given two coordinates--- and using the current stroke, stroke width, and fill settings.-drawRectangle :: (MonadResource m) => PDrawingWand-     -> Double           -- ^ x ordinate of first coordinate-     -> Double           -- ^ y ordinate of first coordinate-     -> Double           -- ^ x ordinate of second coordinate-     -> Double           -- ^ y ordinate of second coordinate-     -> m ()-drawRectangle dw x1 y1 x2 y2 = liftIO $ F.drawRectangle dw (realToFrac x1) (realToFrac y1)-                                                           (realToFrac x2) (realToFrac y2)---- | DrawRoundRectangle() draws a rounted rectangle given two coordinates,---   x & y corner radiuses and using the current stroke, stroke width, and fill settings.-drawRoundRectangle :: (MonadResource m) => PDrawingWand-     -> Double           -- ^ x ordinate of first coordinate-     -> Double           -- ^ y ordinate of first coordinate-     -> Double           -- ^ x ordinate of second coordinate-     -> Double           -- ^ y ordinate of second coordinate-     -> Double           -- ^ radius of corner in horizontal direction-     -> Double           -- ^ radius of corner in vertical direction-     -> m ()-drawRoundRectangle p x1 y1 x2 y2 rx ry = liftIO $ F.drawRoundRectangle p (realToFrac x1)-                                                                         (realToFrac y1)-                                                                         (realToFrac x2)-                                                                         (realToFrac y2)-                                                                         (realToFrac rx)-                                                                         (realToFrac ry)--- | Clones the current drawing wand to create a new drawing wand.--- The original drawing wand(s) may be returned to by invoking `popDrawingWand`.--- The drawing wands are stored on a drawing wand stack. For every Pop there must--- have already been an equivalent Push.-pushDrawingWand ::  (MonadResource m) => PDrawingWand -> m ()-pushDrawingWand dw = withException_ dw $ F.pushDrawingWand dw---- | Destroys the current drawing wand and returns to the--- previously pushed drawing wand. Multiple drawing wands may exist.--- It is an error to attempt to pop more drawing wands than have been pushed,--- and it is proper form to pop all drawing wands which have been pushed.-popDrawingWand ::  (MonadResource m) => PDrawingWand -> m ()-popDrawingWand dw = withException_ dw $ F.popDrawingWand dw---- | Applies the specified rotation to the current coordinate space.-rotate ::  (MonadResource m) => PDrawingWand -> Double -> m ()-rotate dw degrees = liftIO $ F.drawRotate dw (realToFrac degrees)---- | Applies a translation to the current coordinate system--- which moves the coordinate system origin to the specified coordinate.-translate :: (MonadResource m) => PDrawingWand -> Double -> Double -> m ()-translate dw x y = liftIO $ F.drawTranslate dw (realToFrac x) (realToFrac y)----- | Indicates that subsequent commands up to a `popPattern` command comprise--- the definition of a named pattern. The pattern space is assigned top left--- corner coordinates, a width and height, and becomes its own drawing space.--- Anything which can be drawn may be used in a pattern definition.--- Named patterns may be used as stroke or brush definitions.-pushPattern :: (MonadResource m) => PDrawingWand-  -> Text             -- ^ pattern identification for later reference-  -> Double           -- x ordinate of top left corner-  -> Double           -- y ordinate of top left corner-  -> Double           -- width of pattern space-  -> Double           -- height of pattern space-  -> m ()-pushPattern dw name x y w h  = withException_ dw $!-                               useAsCString (encodeUtf8 name) (\cstr ->-                                                                F.drawPushPattern dw cstr-                                                                                  (realToFrac x) (realToFrac y)-                                                                                  (realToFrac w) (realToFrac h))---- | Terminates a pattern definition.-popPattern :: (MonadResource m) => PDrawingWand -> m ()-popPattern dw = withException_ dw $! F.drawPopPattern dw----- | DrawColor() draws color on image using the current fill color, starting at--- specified position, and using specified paint method. The available paint methods are:------    PointMethod: Recolors the target pixel---    ReplaceMethod: Recolor any pixel that matches the target pixel.---    FloodfillMethod: Recolors target pixels and matching neighbors.---    ResetMethod: Recolor all pixels.-drawColor :: (MonadResource m) => PDrawingWand -> Double -> Double -> PaintMethod -> m ()-drawColor p x t m = liftIO $ F.drawColor p (realToFrac x) (realToFrac t) m---- | Draws a point using the current fill color.-drawPoint :: (MonadResource m) => PDrawingWand -> Double -> Double -> m ()-drawPoint dw x y = liftIO $ F.drawPoint dw (realToFrac x) (realToFrac y)
− Graphics/ImageMagick/MagickWand/FFI/DrawingWand.hsc 
@@ -1,272 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickWand.FFI.DrawingWand-  where--import           Foreign-import           Foreign.C.String-import           Foreign.C.Types--import           Graphics.ImageMagick.MagickCore.Types-import           Graphics.ImageMagick.MagickWand.FFI.Types--#include <wand/MagickWand.h>---- | NewDrawingWand() returns a drawing wand required for all other methods in the API.-foreign import ccall "NewDrawingWand" newDrawingWand-  :: IO (Ptr DrawingWand)---- | DestroyDrawingWand() frees all resources associated with the drawing wand.--- Once the drawing wand has been freed, it should not be used and further unless it re-allocated.-foreign import ccall "DestroyDrawingWand" destroyDrawingWand-  :: Ptr DrawingWand -> IO (Ptr DrawingWand)---- | PixelGetException() returns the severity, reason, and description of any---   error that occurs when using other methods in this API.-foreign import ccall "DrawGetException" drawGetException-  :: Ptr DrawingWand -> Ptr ExceptionType -> IO CString---- | DrawGetFillColor() returns the fill color used for drawing filled objects.-foreign import ccall "DrawGetFillColor" drawGetFillColor-  :: Ptr DrawingWand -> Ptr PixelWand -> IO ()---- | DrawSetFillColor() sets the fill color to be used for drawing filled objects.-foreign import ccall "DrawSetFillColor" drawSetFillColor-  :: Ptr DrawingWand -> Ptr PixelWand -> IO ()---- | DrawSetFillPatternURL() sets the URL to use as a fill pattern--- for filling objects. Only local URLs ("#identifier") are supported--- at this time. These local URLs are normally created by defining a named--- fill pattern with DrawPushPattern/DrawPopPattern.-foreign import ccall "DrawSetFillPatternURL" drawSetFillPatternURL-  :: Ptr DrawingWand -> CString -> IO MagickBooleanType---- | DrawSetFillRule() sets the fill rule to use while drawing polygons.-foreign import ccall "DrawSetFillRule" drawSetFillRule-  :: Ptr DrawingWand -> FillRule -> IO ()---- | DrawSetFont() sets the fully-sepecified font to use when annotating with text.-foreign import ccall "DrawSetFont" drawSetFont-  :: Ptr DrawingWand -> CString -> IO ()---- | DrawSetFontSize() sets the font pointsize to use when annotating with text.-foreign import ccall "DrawSetFontSize" drawSetFontSize-  :: Ptr DrawingWand -> CDouble -> IO ()---- | DrawSetGravity() sets the text placement gravity to use when annotating with text.-foreign import ccall "DrawSetGravity" drawSetGravity-  :: Ptr DrawingWand -> GravityType -> IO ()---- | DrawSetStrokeAntialias() controls whether stroked outlines are antialiased.--- Stroked outlines are antialiased by default. When antialiasing is disabled--- stroked pixels are thresholded to determine if the stroke color or--- underlying canvas color should be used.-foreign import ccall "DrawSetStrokeAntialias" drawSetStrokeAntialias-  :: Ptr DrawingWand-  -> MagickBooleanType    -- ^ stroke_antialias-  -> IO ()---- | DrawSetStrokeColor() sets the color used for stroking object outlines.-foreign import ccall "DrawSetStrokeColor" drawSetStrokeColor-  :: Ptr DrawingWand-  -> Ptr PixelWand        -- ^ stroke_wand-  -> IO ()---- |  DrawSetStrokeDashArray() specifies the pattern of dashes and gaps used to--- stroke paths. The stroke dash array represents an array of numbers that--- specify the lengths of alternating dashes and gaps in pixels. If an odd--- number of values is provided, then the list of values is repeated to yield--- an even number of values. To remove an existing dash array, pass a zero--- number_elements argument and null dash_array.  A typical stroke dash array--- might contain the members 5 3 2.-foreign import ccall "DrawSetStrokeDashArray" drawSetStrokeDashArray-  :: Ptr DrawingWand-  -> CSize             -- ^ number of elements in dash array-  -> Ptr CDouble       -- ^ dash array values-  -> IO ()---- | DrawSetStrokeLineCap() specifies the shape to be used at the end--- of open subpaths when they are stroked. Values of LineCap are UndefinedCap,--- ButtCap, RoundCap, and SquareCap.-foreign import ccall "DrawSetStrokeLineCap" drawSetStrokeLineCap-  :: Ptr DrawingWand-  -> LineCap           -- ^ linecap-  -> IO ()---- | DrawSetStrokeLineJoin() specifies the shape to be used at the corners--- of paths (or other vector shapes) when they are stroked.--- Values of LineJoin are UndefinedJoin, MiterJoin, RoundJoin, and BevelJoin.-foreign import ccall "DrawSetStrokeLineJoin" drawSetStrokeLineJoin-  :: Ptr DrawingWand-  -> LineJoin          -- ^ linejoin-  -> IO ()---- | DrawSetStrokeOpacity() specifies the opacity of stroked object outlines.-foreign import ccall "DrawSetStrokeOpacity" drawSetStrokeOpacity-  :: Ptr DrawingWand-  -> CDouble           -- ^ stroke_opacity-  -> IO ()---- | DrawSetStrokeOpacity() specifies the opacity of stroked object outlines.-foreign import ccall "DrawSetTextAntialias" drawSetTextAntialias-  :: Ptr DrawingWand-  -> MagickBooleanType -- ^ antialias boolean. Set to false (0) to disable antialiasing.-  -> IO ()---- | DrawSetStrokeWidth() sets the width of the stroke used to draw object outlines.-foreign import ccall "DrawSetStrokeWidth" drawSetStrokeWidth-  :: Ptr DrawingWand-  -> CDouble           -- ^ stroke_width-  -> IO ()---- | DrawAnnotation() draws text on the image.-foreign import ccall "DrawAnnotation" drawAnnotation-  :: Ptr DrawingWand-  -> CDouble           -- ^ x ordinate to left of text-  -> CDouble           -- ^ y ordinate to text baseline-  -> CString           -- ^ text to draw-  -> IO ()---- | DrawCircle() draws a circle on the image.-foreign import ccall "DrawCircle" drawCircle-  :: Ptr DrawingWand-  -> CDouble           -- ^ origin x ordinate-  -> CDouble           -- ^ origin y ordinate-  -> CDouble           -- ^ perimeter x ordinate-  -> CDouble           -- ^ perimeter y ordinate-  -> IO ()---- | DrawComposite() composites an image onto the current image, using--- the specified composition operator, specified position, and at the specified size.-foreign import ccall "DrawComposite" drawComposite-  :: Ptr DrawingWand-  -> CompositeOperator -- ^ composition operator-  -> CDouble           -- ^ x ordinate of top left corner-  -> CDouble           -- ^ y ordinate of top left corner-  -> CDouble           -- ^ width to resize image to prior to compositing, specify zero to use existing width-  -> CDouble           -- ^ height to resize image to prior to compositing, specify zero to use existing height-  -> Ptr MagickWand    -- ^ image to composite is obtained from this wand-  -> IO MagickBooleanType----- | DrawEllipse() draws an ellipse  on the image.-foreign import ccall "DrawEllipse" drawEllipse-  :: Ptr DrawingWand-  -> CDouble           -- ^ origin x ordinate-  -> CDouble           -- ^ origin y ordinate-  -> CDouble           -- ^ radius in x-  -> CDouble           -- ^ radius in y-  -> CDouble           -- ^ starting rotation in degrees-  -> CDouble           -- ^ ending rotation in degrees-  -> IO ()---- | DrawLine() draws a line on the image using the current stroke color,--- stroke opacity, and stroke width.-foreign import ccall "DrawLine" drawLine-  :: Ptr DrawingWand-  -> CDouble           -- ^ starting x ordinate-  -> CDouble           -- ^ starting y ordinate-  -> CDouble           -- ^ ending x ordinate-  -> CDouble           -- ^ ending y ordinate-  -> IO ()---- | DrawPolygon() draws a polygon using the current stroke, stroke width,--- and fill color or texture, using the specified array of coordinates.-foreign import ccall "DrawPolygon" drawPolygon-  :: Ptr DrawingWand-  -> CSize           -- ^ number of coordinates-  -> Ptr PointInfo   -- ^ coordinate array-  -> IO ()---- | DrawRectangle() draws a rectangle given two coordinates--- and using the current stroke, stroke width, and fill settings.-foreign import ccall "DrawRectangle" drawRectangle-  :: Ptr DrawingWand-  -> CDouble           -- ^ x ordinate of first coordinate-  -> CDouble           -- ^ y ordinate of first coordinate-  -> CDouble           -- ^ x ordinate of second coordinate-  -> CDouble           -- ^ y ordinate of second coordinate-  -> IO ()---- | DrawRoundRectangle() draws a rounted rectangle given two coordinates,--- x & y corner radiuses and using the current stroke, stroke width, and fill settings.-foreign import ccall "DrawRoundRectangle" drawRoundRectangle-  :: Ptr DrawingWand-  -> CDouble           -- ^ x ordinate of first coordinate-  -> CDouble           -- ^ y ordinate of first coordinate-  -> CDouble           -- ^ x ordinate of second coordinate-  -> CDouble           -- ^ y ordinate of second coordinate-  -> CDouble           -- ^ radius of corner in horizontal direction-  -> CDouble           -- ^ radius of corner in vertical direction-  -> IO ()---- | PushDrawingWand() clones the current drawing wand to create a new drawing wand.--- The original drawing wand(s) may be returned to by invoking PopDrawingWand().--- The drawing wands are stored on a drawing wand stack. For every Pop there must--- have already been an equivalent Push.-foreign import ccall "PushDrawingWand" pushDrawingWand-  :: Ptr DrawingWand-  -> IO MagickBooleanType---- | PopDrawingWand() destroys the current drawing wand and returns to the--- previously pushed drawing wand. Multiple drawing wands may exist.--- It is an error to attempt to pop more drawing wands than have been pushed,--- and it is proper form to pop all drawing wands which have been pushed.-foreign import ccall "PopDrawingWand" popDrawingWand-  :: Ptr DrawingWand-  -> IO MagickBooleanType---- | DrawRotate() applies the specified rotation to the current coordinate space.-foreign import ccall "DrawRotate" drawRotate-  :: Ptr DrawingWand-  -> CDouble           -- ^ degrees of rotation-  -> IO ()---- | DrawTranslate() applies a translation to the current coordinate system--- which moves the coordinate system origin to the specified coordinate.-foreign import ccall "DrawTranslate" drawTranslate-  :: Ptr DrawingWand-  -> CDouble           -- ^ new x ordinate for coordinate system origin-  -> CDouble           -- ^ new y ordinate for coordinate system origin-  -> IO ()---- | DrawPushPattern() indicates that subsequent commands up to--- a DrawPopPattern() command comprise the definition of a named pattern.--- The pattern space is assigned top left corner coordinates, a width and height,--- and becomes its own drawing space. Anything which can be drawn may be used--- in a pattern definition. Named patterns may be used as stroke or brush definitions.-foreign import ccall "DrawPushPattern" drawPushPattern-  :: Ptr DrawingWand-  -> CString           -- ^ pattern identification for later reference-  -> CDouble           -- x ordinate of top left corner-  -> CDouble           -- y ordinate of top left corner-  -> CDouble           -- width of pattern space-  -> CDouble           -- height of pattern space-  -> IO MagickBooleanType---- | DrawPopPattern() terminates a pattern definition.-foreign import ccall "DrawPopPattern" drawPopPattern-  :: Ptr DrawingWand-  -> IO MagickBooleanType----- | DrawColor() draws color on image using the current fill color, starting at--- specified position, and using specified paint method. The available paint methods are:------    PointMethod: Recolors the target pixel---    ReplaceMethod: Recolor any pixel that matches the target pixel.---    FloodfillMethod: Recolors target pixels and matching neighbors.---    ResetMethod: Recolor all pixels.-foreign import ccall "DrawColor" drawColor-  :: Ptr DrawingWand-  -> CDouble-  -> CDouble-  -> PaintMethod-  -> IO ()---- | DrawPoint() draws a point using the current fill color.-foreign import ccall "DrawPoint" drawPoint-  :: Ptr DrawingWand-  -> CDouble         -- ^ target x coordinate-  -> CDouble         -- ^ target y coordinate-  -> IO ()
− Graphics/ImageMagick/MagickWand/FFI/ImageDrawing.hsc 
@@ -1,2 +0,0 @@-module Graphics.ImageMagick.MagickWand.FFI.ImageDrawing-  where
− Graphics/ImageMagick/MagickWand/FFI/MagickWand.hsc 
@@ -1,472 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickWand.FFI.MagickWand-  where--import           Foreign-import           Foreign.C.String-import           Foreign.C.Types--import           Graphics.ImageMagick.MagickCore.Types-import           Graphics.ImageMagick.MagickWand.FFI.Types--#include <wand/MagickWand.h>----- | MagickWandGenesis() initializes the MagickWand environment.-foreign import ccall "MagickWandGenesis" magickWandGenesis-  :: IO ()---- | MagickWandTerminus() terminates the MagickWand environment.-foreign import ccall "MagickWandTerminus" magickWandTerminus-  :: IO ()---- * Constructing magic wand---- | NewMagickWand() returns a wand required for all other methods in the API.--- A fatal exception is thrown if there is not enough memory to allocate the wand.--- Use DestroyMagickWand() to dispose of the wand when it is no longer needed.-foreign import ccall "NewMagickWand" newMagickWand-  :: IO (Ptr MagickWand)----- | NewMagickWandFromImage() returns a wand with an image.-foreign import ccall "NewMagickWandFromImage" newMagickWandFromImage-  :: Ptr Image                  -- ^ Image-  -> IO (Ptr MagickWand)---- | CloneMagickWand() makes an exact copy of the specified wand.-foreign import ccall "CloneMagickWand" cloneMagickWand-  :: Ptr MagickWand -> IO (Ptr MagickWand)---- * Clearing and destroying---- | ClearMagickWand() clears resources associated with the wand,--- leaving the wand blank, and ready to be used for a new set of images.-foreign import ccall "ClearMagickWand" clearMagickWand-  :: Ptr MagickWand -> IO ()---- | DestroyMagickWand() deallocates memory associated with an MagickWand.-foreign import ccall "DestroyMagickWand" destroyMagickWand-  :: Ptr MagickWand -> IO (Ptr MagickWand)--foreign import ccall "&DestroyMagickWand" pDestroyMagickWand-  :: FunPtr (Ptr MagickWand -> IO ())--- * Utilities---- | IsMagickWand() returns MagickTrue if the wand is verified as a magick wand.-foreign import ccall " IsMagickWand" isMagicWand-  :: Ptr MagickWand -> IO MagickBooleanType---- * Exceptions---- | MagickClearException() clears any exceptions associated with the wand.----foreign import ccall "MagickClearException" magickClearException-  :: Ptr MagickWand -> IO MagickBooleanType---- | MagickGetException() returns the severity, reason, and description of---   any error that occurs when using other methods in this API.-foreign import ccall "MagickGetException" magickGetException-  :: Ptr MagickWand -> Ptr ExceptionType -> IO CString---- | MagickGetExceptionType() returns the exception type associated with the wand.---   If no exception has occurred, UndefinedExceptionType is returned.-foreign import ccall "MagickGetExceptionType" magickGetExceptionType-  :: Ptr MagickWand -> IO ExceptionType----- | MagickGetIteratorIndex() returns the position of the iterator in the image list.-foreign import ccall "MagickGetIteratorIndex" magickGetIteratorIndex :: Ptr MagickWand -> IO CSize---{---MagickQueryConfigureOption() returns the value associated with the specified configure option.-  char *MagickQueryConfigureOption(const char *option)--MagickQueryConfigureOptions() returns any configure options that match the specified pattern (e.g. "*" for all). Options include NAME, VERSION, LIB_VERSION, etc.--The format of the MagickQueryConfigureOptions function is:--  char **MagickQueryConfigureOptions(const char *pattern,-    size_t *number_options)--A description of each parameter follows:-pattern--Specifies a pointer to a text string containing a pattern.-number_options--Returns the number of configure options in the list.----MagickQueryFontMetrics() returns a 13 element array representing the following font metrics:--      Element Description-      --------------------------------------------------      0 character width-      1 character height-      2 ascender-      3 descender-      4 text width-      5 text height-      6 maximum horizontal advance-      7 bounding box: x1-      8 bounding box: y1-      9 bounding box: x2-     10 bounding box: y2-     11 origin: x-     12 origin: y--The format of the MagickQueryFontMetrics method is:--  double *MagickQueryFontMetrics(MagickWand *wand,-    const DrawingWand *drawing_wand,const char *text)--A description of each parameter follows:-wand--the Magick wand.-drawing_wand--the drawing wand.-text--the text.---MagickQueryMultilineFontMetrics() returns a 13 element array representing the following font metrics:--      Element Description-      --------------------------------------------------      0 character width-      1 character height-      2 ascender-      3 descender-      4 text width-      5 text height-      6 maximum horizontal advance-      7 bounding box: x1-      8 bounding box: y1-      9 bounding box: x2-     10 bounding box: y2-     11 origin: x-     12 origin: y--This method is like MagickQueryFontMetrics() but it returns the maximum text width and height for multiple lines of text.--The format of the MagickQueryFontMetrics method is:--  double *MagickQueryMultilineFontMetrics(MagickWand *wand,-    const DrawingWand *drawing_wand,const char *text)--A description of each parameter follows:-wand--the Magick wand.-drawing_wand--the drawing wand.-text--the text.----MagickQueryFonts() returns any font that match the specified pattern (e.g. "*" for all).--The format of the MagickQueryFonts function is:--  char **MagickQueryFonts(const char *pattern,size_t *number_fonts)--A description of each parameter follows:-pattern--Specifies a pointer to a text string containing a pattern.-number_fonts--Returns the number of fonts in the list.----MagickQueryFonts() returns any image formats that match the specified pattern (e.g. "*" for all).--The format of the MagickQueryFonts function is:--  char **MagickQueryFonts(const char *pattern,-    size_t *number_formats)--A description of each parameter follows:-pattern--Specifies a pointer to a text string containing a pattern.-number_formats--This integer returns the number of image formats in the list.---------MagickSetFirstIterator() sets the wand iterator to the first image.--After using any images added to the wand using MagickAddImage() or MagickReadImage() will be prepended before any image in the wand.--Also the current image has been set to the first image (if any) in the Magick Wand. Using MagickNextImage() will then set teh current image to the second image in the list (if present).--This operation is similar to MagickResetIterator() but differs in how MagickAddImage(), MagickReadImage(), and MagickNextImage() behaves afterward.--The format of the MagickSetFirstIterator method is:--  void MagickSetFirstIterator(MagickWand *wand)--A description of each parameter follows:-wand--the magick wand.---MagickSetIteratorIndex() set the iterator to the given position in the image list specified with the index parameter. A zero index will set the first image as current, and so on. Negative indexes can be used to specify an image relative to the end of the images in the wand, with -1 being the last image in the wand.--If the index is invalid (range too large for number of images in wand) the function will return MagickFalse, but no 'exception' will be raised, as it is not actually an error. In that case the current image will not change.--After using any images added to the wand using MagickAddImage() or MagickReadImage() will be added after the image indexed, regardless of if a zero (first image in list) or negative index (from end) is used.--Jumping to index 0 is similar to MagickResetIterator() but differs in how MagickNextImage() behaves afterward.--The format of the MagickSetIteratorIndex method is:--  MagickBooleanType MagickSetIteratorIndex(MagickWand *wand,-    const ssize_t index)--A description of each parameter follows:-wand--the magick wand.-index--the scene number.----MagickSetLastIterator() sets the wand iterator to the last image.--The last image is actually the current image, and the next use of MagickPreviousImage() will not change this allowing this function to be used to iterate over the images in the reverse direction. In this sense it is more like MagickResetIterator() than MagickSetFirstIterator().--Typically this function is used before MagickAddImage(), MagickReadImage() functions to ensure new images are appended to the very end of wand's image list.--The format of the MagickSetLastIterator method is:--  void MagickSetLastIterator(MagickWand *wand)--A description of each parameter follows:-wand--the magick wand.---}---- * Image functions---- | MagickNextImage() sets the next image in the wand as the current image.--- It is typically used after MagickResetIterator(), after which its first use will--- set the first image as the current image (unless the wand is empty).------ It will return MagickFalse when no more images are left to be returned which--- happens when the wand is empty, or the current image is the last image.------ When the above condition (end of image list) is reached, the iterator is--- automatically set so that you can start using MagickPreviousImage() to again--- iterate over the images in the reverse direction, starting with the last image--- (again). You can jump to this condition immeditally using MagickSetLastIterator().-foreign import ccall "MagickNextImage" magickNextImage-  :: Ptr MagickWand -> IO MagickBooleanType----- | MagickPreviousImage() sets the previous image in the wand as the current image.------ It is typically used after MagickSetLastIterator(), after which its first use--- will set the last image as the current image (unless the wand is empty).------ It will return MagickFalse when no more images are left to be returned which--- happens when the wand is empty, or the current image is the first image.--- At that point the iterator is than reset to again process images in the forward--- direction, again starting with the first image in list. Images added at this--- point are prepended.------ Also at that point any images added to the wand using MagickAddImages() or--- MagickReadImages() will be prepended before the first image. In this sense the--- condition is not quite exactly the same as MagickResetIterator().-foreign import ccall "MagickPreviousImage" magickPreviousImage-  :: Ptr MagickWand -> IO MagickBooleanType--{--  ResizeFilter      Bessel   Blackman   Box-  Catrom   CubicGaussian-  Hanning  Hermite    Lanczos-  Mitchell PointQuandratic-  Sinc     Triangle--}---- | MagickResizeImage() scales an image to the desired dimensions with one of these filters:------ Most of the filters are FIR (finite impulse response), however, Bessel, Gaussian, and Sinc are--- IIR (infinite impulse response). Bessel and Sinc are windowed (brought down to zero) with the Blackman filter.--foreign import ccall "MagickResizeImage" magickResizeImage-  :: Ptr MagickWand-  -> CSize                        -- ^ the number of columns in the scaled image-  -> CSize                        -- ^ the number of rows in the scaled image-  -> FilterTypes                  -- ^ filter-  -> CDouble                      -- ^ blur factor where 1 > blurry, < 1 sharp-  -> IO MagickBooleanType----- | MagickWriteImages() writes an image or image sequence.-foreign import ccall "MagickWriteImages" magickWriteImages-  :: Ptr MagickWand-  -> CString                      -- ^ filename-  -> MagickBooleanType            -- ^ join images into a single multi-image file.-  -> IO MagickBooleanType----- |  MagickSetSize() sets the size of the magick wand. Set it before you read a raw image format such as RGB, GRAY, or CMYK.-foreign import ccall "MagickSetSize" magickSetSize-  :: Ptr MagickWand-  -> CSize                        -- ^ columns-  -> CSize                        -- ^ rows-  -> IO MagickBooleanType----- | MagickGetSize() returns the size associated with the magick wand.-foreign import ccall "MagickGetSize" magickGetSize-  :: Ptr MagickWand-  -> Ptr CSize                    -- ^ the width in pixels-  -> Ptr CSize                    -- ^ the height in pixels-  -> IO MagickBooleanType----- |  MagickGaussianBlurImage() blurs an image. We convolve the image with a Gaussian operator--- of the given radius and standard deviation (sigma). For reasonable results, the radius should--- be larger than sigma. Use a radius of 0 and MagickGaussianBlurImage() selects a suitable radius for you.-foreign import ccall "MagickGaussianBlurImage" magickGaussianBlurImage-  :: Ptr MagickWand-  -> CDouble    -- ^ radius-  -> CDouble    -- ^ sigma-  -> IO MagickBooleanType---foreign import ccall "MagickGaussianBlurImage" magickGaussianBlurImageChannel-  :: Ptr MagickWand-  -> ChannelType-  -> CDouble    -- ^ radius-  -> CDouble    -- ^ sigma-  -> IO MagickBooleanType----- | MagickSetImageArtifact() associates a artifact with an image.--- The format of the MagickSetImageArtifact method is:-foreign import ccall "MagickSetImageArtifact" magickSetImageArtifact-  :: Ptr MagickWand-  -> CString-  -> CString-  -> IO MagickBooleanType---- | MagickDeleteImageArtifact() deletes a wand artifact.-foreign import ccall "MagickDeleteImageArtifact" magickDeleteImageArtifact-  :: Ptr MagickWand-  -> CString-  -> IO MagickBooleanType---- | MagickSetIteratorIndex() set the iterator to the given position--- in the image list specified with the index parameter. A zero index--- will set the first image as current, and so on. Negative indexes--- can be used to specify an image relative to the end of the images--- in the wand, with -1 being the last image in the wand.------ If the index is invalid (range too large for number of images in--- wand) the function will return MagickFalse, but no 'exception' will--- be raised, as it is not actually an error. In that case the current--- image will not change.------ After using any images added to the wand using `magickAddImage` or--- `magickReadImage` will be added after the image indexed, regardless--- of if a zero (first image in list) or negative index (from end)--- is used.------ Jumping to index 0 is similar to `magickResetIterator` but differs--- in how `magickNextImage` behaves afterward.-foreign import ccall "MagickSetIteratorIndex" magickSetIteratorIndex-  :: Ptr MagickWand-  -> CSize          -- ^ the scene number-  -> IO MagickBooleanType---- | MagickResetIterator() resets the wand iterator.------ It is typically used either before iterating though images, or--- before calling specific functions such as `magickAppendImages`--- to append all images together.------ Afterward you can use `magickNextImage` to iterate over all the--- images in a wand container, starting with the first image.------ Using this before `magickAddImages` or `magickReadImages` will--- cause new images to be inserted between the first and second image.-foreign import ccall "MagickResetIterator" magickResetIterator-  :: Ptr MagickWand-  -> IO ()---- | MagickSetLastIterator() sets the wand iterator to the last image.--- The last image is actually the current image, and the next use of--- MagickPreviousImage() will not change this allowing this function--- to be used to iterate over the images in the reverse direction.--- In this sense it is more like MagickResetIterator() than--- MagickSetFirstIterator().--- Typically this function is used before MagickAddImage(),--- MagickReadImage() functions to ensure new images are appended to--- the very end of wand's image list.-foreign import ccall "MagickSetFirstIterator" magickSetFirstIterator-  :: Ptr MagickWand-  -> IO ()---- | MagickSetFirstIterator() sets the wand iterator to the first image.--- After using any images added to the wand using MagickAddImage() or--- MagickReadImage() will be prepended before any image in the wand.--- Also the current image has been set to the first image (if any) in--- the Magick Wand. Using MagickNextImage() will then set teh current--- image to the second image in the list (if present).--- This operation is similar to MagickResetIterator() but differs in--- how MagickAddImage(), MagickReadImage(), and MagickNextImage()--- behaves afterward.-foreign import ccall "MagickSetLastIterator" magickSetLastIterator-  :: Ptr MagickWand-  -> IO ()---- | MagickRelinquishMemory() relinquishes memory resources returned--- by such methods as MagickIdentifyImage(), MagickGetException(), etc.-foreign import ccall "MagickRelinquishMemory" magickRelinquishMemory-  :: Ptr () -> IO ()--foreign import ccall "MagickGetColorspace" magickGetColorspace-  :: Ptr MagickWand -> IO ColorspaceType--foreign import ccall "MagickGetColorspace" magickSetColorspace-  :: Ptr MagickWand -> ColorspaceType -> IO MagickBooleanType--foreign import ccall "MagickGetCompressionQuality" magickGetCompressionQuality-  :: Ptr MagickWand -> IO CSize--foreign import ccall "MagickSetCompressionQuality" magickSetCompressionQuality-  :: Ptr MagickWand -> CSize -> IO MagickBooleanType--foreign import ccall "MagickGetCompression" magickGetCompression-  :: Ptr MagickWand -> IO CompressionType--foreign import ccall "MagickSetCompression" magickSetCompression-  :: Ptr MagickWand -> CompressionType -> IO MagickBooleanType
− Graphics/ImageMagick/MagickWand/FFI/PixelIterator.hsc 
@@ -1,131 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickWand.FFI.PixelIterator-  where--import           Foreign-import           Foreign.C.String-import           Foreign.C.Types--import           Graphics.ImageMagick.MagickCore.Types-import           Graphics.ImageMagick.MagickWand.FFI.Types--#include <wand/MagickWand.h>---- | ClearPixelIterator() clear resources associated with a PixelIterator.-foreign import ccall "ClearPixelIterator" clearPixelIterator-  :: Ptr PixelIterator -> IO ()---- | ClonePixelIterator() makes an exact copy of the specified iterator.-foreign import ccall "ClonePixelIterator" clonePixelIterator-  :: Ptr PixelIterator -> IO (Ptr PixelIterator)---- | DestroyPixelIterator() deallocates resources associated with a PixelIterator.-foreign import ccall "DestroyPixelIterator" destroyPixelIterator-  :: Ptr PixelIterator -> IO (Ptr PixelIterator)---- | IsPixelIterator() returns MagickTrue if the iterator is verified as a pixel iterator.-foreign import ccall "IsPixelIterator" isPixelIterator-  :: Ptr PixelIterator -> IO MagickBooleanType--foreign import ccall "NewPixelIterator" newPixelIterator-  :: Ptr MagickWand -> IO (Ptr PixelIterator)---- | NewPixelRegionIterator() returns a new pixel iterator.-foreign import ccall "NewPixelRegionIterator" newPixelRegionIterator-  :: Ptr MagickWand -> CSize -> CSize -> CSize -> CSize -> IO (Ptr PixelIterator)----- | PixelClearIteratorException() clear any exceptions associated with the iterator.-foreign import ccall "PixelClearIteratorException" pixelClearIteratorException-  :: Ptr PixelIterator -> IO MagickBooleanType---- | PixelGetIteratorException() returns the severity, reason, and description of any--- error that occurs when using other methods in this API.-foreign import ccall "PixelGetIteratorException" pixelGetIteratorException-  :: Ptr PixelIterator -> Ptr ExceptionType -> IO CString---- | PixelGetIteratorExceptionType() the exception type associated with the iterator.---   If no exception has occurred, UndefinedExceptionType is returned.-foreign import ccall "PixelGetIteratorExceptionType" pixelGetIteratorExceptionType-  :: Ptr PixelIterator -> IO ExceptionType--{- | PixelGetCurrentIteratorRow() returns the current row as an array of pixel wands from the pixel iterator.--}-foreign import ccall "PixelGetCurrentIteratorRow" pixelGetCurrentIteratorRow-  :: Ptr PixelIterator -> CSize -> Ptr (Ptr PixelWand)---- | PixelGetIteratorRow() returns the current pixel iterator row.-foreign import ccall "PixelGetIteratorRow" pixelGetIteratorRow-  :: Ptr PixelIterator -> IO ()---- | PixelGetNextIteratorRow() returns the next row as an array of pixel wands from the pixel iterator.-foreign import ccall "PixelGetNextIteratorRow" pixelGetNextIteratorRow-  :: Ptr PixelIterator  -- ^ iterator-  -> Ptr CSize          -- ^ number of pixel wands-  -> IO (Ptr (Ptr PixelWand))--{--      PixelGetPreviousIteratorRow--      PixelGetPreviousIteratorRow() returns the previous row as an array of pixel wands from the pixel iterator.--      The format of the PixelGetPreviousIteratorRow method is:--        PixelWand **PixelGetPreviousIteratorRow(PixelIterator *iterator,-            size_t *number_wands)--            A description of each parameter follows:-            iterator--            the pixel iterator.-            number_wands--            the number of pixel wands.-              PixelSetFirstIteratorRow--              PixelSetFirstIteratorRow() sets the pixel iterator to the first pixel row.--              The format of the PixelSetFirstIteratorRow method is:--                void PixelSetFirstIteratorRow(PixelIterator *iterator)--                A description of each parameter follows:-                iterator--                the magick iterator.-                PixelSetIteratorRow--                PixelSetIteratorRow() set the pixel iterator row.--                The format of the PixelSetIteratorRow method is:--                  MagickBooleanType PixelSetIteratorRow(PixelIterator *iterator,-                      const ssize_t row)--                      A description of each parameter follows:-                      iterator--                      the pixel iterator.-                      PixelSetLastIteratorRow--                      PixelSetLastIteratorRow() sets the pixel iterator to the last pixel row.--                      The format of the PixelSetLastIteratorRow method is:--                        void PixelSetLastIteratorRow(PixelIterator *iterator)--                        A description of each parameter follows:-                        iterator--                        the magick iterator.--}--foreign import ccall "PixelSyncIterator" pixelSyncIterator-  :: Ptr PixelIterator -> IO MagickBooleanType---- | PixelResetIterator() resets the pixel iterator. Use it in conjunction--- with PixelGetNextIteratorRow() to iterate over all the pixels in a pixel container.-foreign import ccall "PixelResetIterator" pixelResetIterator-  :: Ptr PixelIterator -> IO ()
− Graphics/ImageMagick/MagickWand/FFI/PixelWand.hsc 
@@ -1,276 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}--module Graphics.ImageMagick.MagickWand.FFI.PixelWand-  where--import           Foreign-import           Foreign.C.String-import           Foreign.C.Types--import           Graphics.ImageMagick.MagickCore.Types-import           Graphics.ImageMagick.MagickWand.FFI.Types--#include <wand/MagickWand.h>---- | DestroyPixelWand() deallocates resources associated with a PixelWand.--foreign import ccall "DestroyPixelWand" destroyPixelWand-  :: Ptr PixelWand -> IO (Ptr PixelWand)--foreign import ccall "DestroyPixelWands" destroyPixelWands-  :: Ptr PixelWand -> CSize -> IO ()--foreign import ccall "IsPixelWand" isPixelWand-  :: Ptr PixelWand -> IO MagickBooleanType---- | PixelGetMagickColor() gets the magick color of the pixel wand.-foreign import ccall "PixelGetMagickColor" pixelGetMagickColor-  :: Ptr PixelWand -> Ptr MagickPixelPacket -> IO ()---- | PixelSetMagickColor() sets the color of the pixel wand.-foreign import ccall "PixelSetMagickColor" pixelSetMagickColor-  :: Ptr PixelWand -> Ptr MagickPixelPacket -> IO ()--foreign import ccall "ClearPixelWand" clearPixelWand-  :: Ptr PixelWand -> IO ()--foreign import ccall "ClonePixelWand" clonePixelWand-  :: Ptr PixelWand -> IO (Ptr PixelWand)---- | NewPixelWand() returns a new pixel wand.-foreign import ccall "NewPixelWand" newPixelWand-  :: IO (Ptr PixelWand)---- | NewPixelWands() returns an array of pixel wands.-foreign import ccall "NewPixelWands" newPixelWands-  :: CSize -> IO (Ptr (Ptr PixelWand))---- | PixelSetColor() sets the color of the pixel wand with a string (e.g. "blue", "#0000ff", "rgb(0,0,255)", "cmyk(100,100,100,10)", etc.).-foreign import ccall "PixelSetColor" pixelSetColor-  :: Ptr PixelWand -> CString -> IO MagickBooleanType---- | PixelClearException() clear any exceptions associated with the iterator.-foreign import ccall "PixelClearException" pixelClearException-  :: Ptr PixelWand -> IO MagickBooleanType---- | PixelGetException() returns the severity, reason, and description of any---   error that occurs when using other methods in this API.-foreign import ccall "PixelGetException" pixelGetException-  :: Ptr PixelWand -> Ptr ExceptionType -> IO CString---- | PixelGetExceptionType() the exception type associated with the wand.---   If no exception has occurred, UndefinedExceptionType is returned.-foreign import ccall "PixelGetExceptionType" pixelGetExceptionType-  :: Ptr PixelWand -> IO ExceptionType---- | PixelGetColorAsString() returnsd the color of the pixel wand as a string.-foreign import ccall "PixelGetColorAsString" pixelGetColorAsString-  :: Ptr PixelWand -> IO CString---- | PixelGetColorAsNormalizedString() returns the normalized color of the pixel wand as a string.-foreign import ccall "PixelGetColorAsNormalizedString" pixelGetColorAsNormalizedString-  :: Ptr PixelWand -> IO CString---- | PixelGetRed) returns the normalized red color of the pixel wand.-foreign import ccall "PixelSetRed" pixelSetRed-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelSetRedQuantum() sets the red color of the pixel wand.-foreign import ccall "PixelSetRedQuantum" pixelSetRedQuantum-  :: Ptr PixelWand -> Quantum -> IO ()---- | PixelGetRed) returns the normalized red color of the pixel wand.-foreign import ccall "PixelGetRed" pixelGetRed-  :: Ptr PixelWand -> IO CDouble---- | PixelGetRedQuantum() returns the red color of the pixel wand.-foreign import ccall "PixelGetRedQuantum" pixelGetRedQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelGetGreen) returns the normalized green color of the pixel wand.-foreign import ccall "PixelGetGreen" pixelGetGreen-  :: Ptr PixelWand -> IO CDouble---- | PixelGetGreenQuantum() returns the green color of the pixel wand.-foreign import ccall "PixelGetGreenQuantum" pixelGetGreenQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetGreen() sets the green color of the pixel wand.-foreign import ccall "PixelSetGreen" pixelSetGreen-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelSetGreenQuantum() sets the green color of the pixel wand.-foreign import ccall "PixelSetGreenQuantum" pixelSetGreenQuantum-  :: Ptr PixelWand -> Quantum -> IO ()---- | PixelGetBlue() returns the normalized blue color of the pixel wand.-foreign import ccall "PixelGetBlue" pixelGetBlue-  :: Ptr PixelWand -> IO CDouble--foreign import ccall "PixelSetBlue" pixelSetBlue-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelGetBlueQuantum() returns the blue color of the pixel wand.-foreign import ccall "PixelGetBlueQuantum" pixelGetBlueQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetBlueQuantum() sets the blue color of the pixel wand.-foreign import ccall "PixelSetBlueQuantum" pixelSetBlueQuantum-  :: Ptr PixelWand -> Quantum -> IO ()---- | IsPixelWandSimilar() returns MagickTrue if the distance between--- two colors is less than the specified distance.-foreign import ccall "IsPixelWandSimilar" isPixelWandSimilar-  :: Ptr PixelWand -> Ptr PixelWand-     -> CDouble -- ^ any two colors that are less than or equal to this distance squared are consider similar-     -> IO MagickBooleanType---- | PixelGetCyan) returns the normalized blue color of the pixel wand.-foreign import ccall "PixelGetCyan" pixelGetCyan-  :: Ptr PixelWand -> IO CDouble--foreign import ccall "PixelSetCyan" pixelSetCyan-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelGetCyanQuantum() returns the blue color of the pixel wand.-foreign import ccall "PixelGetCyanQuantum" pixelGetCyanQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetCyanQuantum() sets the blue color of the pixel wand.-foreign import ccall "PixelSetCyanQuantum" pixelSetCyanQuantum-  :: Ptr PixelWand -> Quantum -> IO ()---- | PixelGetMagenta) returns the normalized blue color of the pixel wand.-foreign import ccall "PixelGetMagenta" pixelGetMagenta-  :: Ptr PixelWand -> IO CDouble--foreign import ccall "PixelSetMagenta" pixelSetMagenta-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelGetMagentaQuantum() returns the blue color of the pixel wand.-foreign import ccall "PixelGetMagentaQuantum" pixelGetMagentaQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetMagentaQuantum() sets the blue color of the pixel wand.-foreign import ccall "PixelSetMagentaQuantum" pixelSetMagentaQuantum-  :: Ptr PixelWand -> Quantum -> IO ()---- | PixelGetYellow) returns the normalized blue color of the pixel wand.-foreign import ccall "PixelGetYellow" pixelGetYellow-  :: Ptr PixelWand -> IO CDouble--foreign import ccall "PixelSetYellow" pixelSetYellow-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelGetYellowQuantum() returns the blue color of the pixel wand.-foreign import ccall "PixelGetYellowQuantum" pixelGetYellowQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetYellowQuantum() sets the blue color of the pixel wand.-foreign import ccall "PixelSetYellowQuantum" pixelSetYellowQuantum-  :: Ptr PixelWand -> Quantum -> IO ()---- | PixelGetBlack) returns the normalized blue color of the pixel wand.-foreign import ccall "PixelGetBlack" pixelGetBlack-  :: Ptr PixelWand -> IO CDouble--foreign import ccall "PixelSetBlack" pixelSetBlack-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelGetBlackQuantum() returns the blue color of the pixel wand.-foreign import ccall "PixelGetBlackQuantum" pixelGetBlackQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetBlackQuantum() sets the blue color of the pixel wand.-foreign import ccall "PixelSetBlackQuantum" pixelSetBlackQuantum-  :: Ptr PixelWand -> Quantum -> IO ()---- | PixelGetAlpha) returns the normalized blue color of the pixel wand.-foreign import ccall "PixelGetAlpha" pixelGetAlpha-  :: Ptr PixelWand -> IO CDouble---- | PixelGetAlphaQuantum() returns the blue color of the pixel wand.-foreign import ccall "PixelGetAlphaQuantum" pixelGetAlphaQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetAlphaQuantum() sets the blue color of the pixel wand.-foreign import ccall "PixelSetAlphaQuantum" pixelSetAlphaQuantum-  :: Ptr PixelWand -> Quantum -> IO ()--foreign import ccall "PixelSetAlpha" pixelSetAlpha-  :: Ptr PixelWand -> CDouble -> IO ()---- | PixelGetOpacity) returns the normalized blue color of the pixel wand.-foreign import ccall "PixelGetOpacity" pixelGetOpacity-  :: Ptr PixelWand -> IO CDouble---- | PixelGetOpacityQuantum() returns the blue color of the pixel wand.-foreign import ccall "PixelGetOpacityQuantum" pixelGetOpacityQuantum-  :: Ptr PixelWand -> IO Quantum---- | PixelSetOpacityQuantum() sets the blue color of the pixel wand.-foreign import ccall "PixelSetOpacityQuantum" pixelSetOpacityQuantum-  :: Ptr PixelWand -> Quantum -> IO ()--foreign import ccall "PixelSetOpacity" pixelSetOpacity-  :: Ptr PixelWand -> CDouble -> IO ()------ | PixelGetColorCount() returns the color count associated with this color.-foreign import ccall "PixelGetColorCount" pixelGetColorCount-  :: Ptr PixelWand -> IO CSize---- | PixelSetColorCount() sets the color count of the pixel wand.-foreign import ccall "PixelSetColorCount" pixelSetColorCount-  :: Ptr PixelWand -> CSize -> IO ()---- PixelGetHSL() returns the normalized HSL color of the pixel wand.-foreign import ccall "PixelGetHSL" pixelGetHSL-  :: Ptr PixelWand -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()---- | PixelSetHSL() sets the normalized HSL color of the pixel wand.-foreign import ccall "PixelSetHSL" pixelSetHSL-  :: Ptr PixelWand -> CDouble -> CDouble -> CDouble -> IO ()----- | PixelSetColorFromWand() sets the color of the pixel wand.-foreign import ccall "PixelSetColorFromWand" pixelSetColorFromWand-  :: Ptr PixelWand -> Ptr PixelWand -> IO ()----- | PixelGetIndex() returns the colormap index from the pixel wand.-foreign import ccall "PixelGetIndex" pixelGetIndex-  :: Ptr PixelWand -> IO IndexPacket----- | PixelSetIndex() sets the colormap index of the pixel wand.-foreign import ccall "PixelSetColor" pixelSetIndex-  :: Ptr PixelWand -> IndexPacket -> IO ()---- | PixelGetQuantumColor() gets the color of the pixel wand as a PixelPacket.-foreign import ccall "PixelGetQuantumColor" pixelGetQuantumColor-  :: Ptr PixelWand -> Ptr PixelPacket -> IO ()---- | PixelGetQuantumColor() gets the color of the pixel wand as a PixelPacket.-foreign import ccall "PixelSetQuantumColor" pixelSetQuantumColor-  :: Ptr PixelWand -> Ptr PixelPacket -> IO ()---- | PixelGetFuzz() returns the normalized fuzz value of the pixel wand.-foreign import ccall "PixelGetFuzz" pixelGetFuzz-  :: Ptr PixelWand -> IO CDouble---- | PixelSetFuzz() sets the fuzz value of the pixel wand.-foreign import ccall "PixelSetFuzz" pixelSetFuzz-  :: Ptr PixelWand -> CDouble -> IO ()--{--ClonePixelWands() makes an exact copy of the specified wands.--The format of the ClonePixelWands method is:--  PixelWand **ClonePixelWands(const PixelWand **wands,-    const size_t number_wands)---}
− Graphics/ImageMagick/MagickWand/FFI/Types.hsc 
@@ -1,97 +0,0 @@-{-# LANGUAGE CPP, ForeignFunctionInterface, NoMonomorphismRestriction, RankNTypes #-}-{-# LANGUAGE GeneralizedNewtypeDeriving #-}--module Graphics.ImageMagick.MagickWand.FFI.Types-  where--#include <wand/MagickWand.h>--import Control.Monad--import Foreign-import Foreign.C.Types--data PixelIterator-data MagickWand-data PixelWand-data DrawingWand-data Image-data PointInfo = PointInfo {piX, piY :: CDouble}-               deriving (Eq, Show)--instance Storable PointInfo where-  sizeOf = const #size PointInfo-  alignment _ = 1-  poke p foo  = do-    #{poke PointInfo, x} p $ piX foo-    #{poke PointInfo, y} p $ piY foo--  peek p = return PointInfo-              `ap` (#{peek PointInfo, x} p)-              `ap` (#{peek PointInfo, y} p)---newtype MagickBooleanType = MagickBooleanType { unMagickBooleanType :: CInt}-  deriving (Eq, Show, Storable)--#{enum MagickBooleanType, MagickBooleanType -  , mFalse = MagickFalse-  , mTrue  = MagickTrue-}--newtype ClassType = ClassType { unClassType :: CInt}-  deriving (Eq, Show)--#{enum ClassType, ClassType-  , undefinedClass = UndefinedClass-  , directClass    = DirectClass-  , pseudoClass    = PseudoClass-}--newtype LineCap = LineCap { unLineCap :: CInt }-#{enum LineCap, LineCap-  , udefinedCap = UndefinedCap-  , buttCap = ButtCap-  , roundCap = RoundCap-  , squareCap = SquareCap-}--newtype LineJoin = LineJoin { unLineJoin :: CInt }-#{enum LineJoin, LineJoin-  , undefinedJoin = UndefinedJoin-  , mitterJoin = MiterJoin-  , roundJoin = RoundJoin-  , bevelJoin = BevelJoin-}--newtype FillRule = FillRule { unFillRule :: CInt }-#{enum FillRule, FillRule- , undefinedRule = UndefinedRule- , evenOddRule = EvenOddRule- , nonZeroRule = NonZeroRule-}--data MagickPixelPacket --instance Storable MagickPixelPacket where-  sizeOf = const #size MagickPixelPacket-  alignment _ = 1-  peek = error "not yet implemented"-  poke = error "not yet implemented"--getPixelRed, getPixelGreen, getPixelBlue, getPixelIndex-  :: Storable a => Ptr b -> IO a--getPixelRed   = #peek MagickPixelPacket, red-getPixelGreen = #peek MagickPixelPacket, green-getPixelBlue  = #peek MagickPixelPacket, blue-getPixelIndex = #peek MagickPixelPacket, index--setPixelRed, setPixelGreen, setPixelBlue, setPixelIndex-  :: Storable a => Ptr b -> a -> IO ()-  -setPixelRed   = #poke MagickPixelPacket, red-setPixelGreen = #poke MagickPixelPacket, green-setPixelBlue  = #poke MagickPixelPacket, blue-setPixelIndex = #poke MagickPixelPacket, index-
− Graphics/ImageMagick/MagickWand/FFI/WandImage.hsc 
@@ -1,651 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickWand.FFI.WandImage-  where--import           Foreign-import           Foreign.C.String-import           Foreign.C.Types--import           Graphics.ImageMagick.MagickCore.Types-import           Graphics.ImageMagick.MagickWand.FFI.Types--#include <wand/MagickWand.h>---- | MagickGetImageHeight() returns the image height.-foreign import ccall "MagickGetImageHeight" magickGetImageHeight-  :: Ptr MagickWand -> IO CSize---- | MagickGetImageWidth() returns the image width.-foreign import ccall "MagickGetImageWidth" magickGetImageWidth-  :: Ptr MagickWand -> IO CSize---- | MagickGetImagePixelColor() returns the color of the specified pixel.-foreign import ccall "MagickGetImagePixelColor" magickGetImagePixelColor-  :: Ptr MagickWand-  -> CSize          -- ^ pixel x coordinate-  -> CSize          -- ^ pixel y coordinate-  -> Ptr PixelWand  -- ^ return the colormap color in this wand-  -> IO MagickBooleanType---- |  MagickGetImageCompressionQuality() gets the image compression quality.-foreign import ccall "MagickGetImageCompressionQuality" magickGetImageCompressionQuality-  :: Ptr MagickWand -> IO CSize---- | MagickSetImageCompression() sets the image compression.-foreign import ccall "MagickSetImageCompression" magickSetImageCompression-  :: Ptr MagickWand -> CompressionType -> IO MagickBooleanType---- | MagickSetImageCompressionQuality() sets the image compression quality.-foreign import ccall "MagickSetImageCompressionQuality" magickSetImageCompressionQuality-  :: Ptr MagickWand -> CSize -> IO MagickBooleanType---- | MagickGetImageBackgroundColor() returns the image background color.-foreign import ccall "MagickGetImageBackgroundColor" magickGetImageBackgroundColor-  :: Ptr MagickWand -> Ptr PixelWand -> IO MagickBooleanType---- | MagickSetImageBackgroundColor() sets the image background color.-foreign import ccall "MagickSetImageBackgroundColor" magickSetImageBackgroundColor-  :: Ptr MagickWand -> Ptr PixelWand -> IO MagickBooleanType---- | MagickExtentImage() extends the image as defined by the geometry, gravity,--- and wand background color. Set the (x,y) offset of the geometry to move the--- original wand relative to the extended wand.-foreign import ccall "MagickExtentImage" magickExtentImage-  :: Ptr MagickWand  -- ^ wand-  -> CSize           -- ^ width-  -> CSize           -- ^ height-  -> CSize           -- ^ x offset-  -> CSize           -- ^ y offset-  -> IO MagickBooleanType---- | MagickFloodfillPaintImage() changes the color value of any pixel--- that matches target and is an immediate neighbor. If the method FillToBorderMethod--- is specified, the color value is changed for any neighbor pixel that does--- not match the bordercolor member of image.-foreign import ccall "MagickFloodfillPaintImage" magickFloodfillPaintImage-  :: Ptr MagickWand    -- ^ wand-  -> ChannelType       -- ^ channel-  -> Ptr PixelWand     -- ^ fill-  -> CDouble           -- ^ fuzz-  -> Ptr PixelWand     -- ^ bordercolor-  -> CSize             -- ^ x offset-  -> CSize             -- ^ y offset-  -> MagickBooleanType -- ^ invert-  -> IO MagickBooleanType---- | MagickNegateImage() negates the colors in the reference image.--- The Grayscale option means that only grayscale values within the image are negated.--- You can also reduce the influence of a particular channel with a gamma value of 0.-foreign import ccall "MagickNegateImage" magickNegateImage-  :: Ptr MagickWand-  -> MagickBooleanType      -- ^ negate gray-  -> IO MagickBooleanType--foreign import ccall "MagickNegateImageChannel" magickNegateImageChannel-  :: Ptr MagickWand-  -> ChannelType-  -> MagickBooleanType       -- ^ negate gray-  -> IO MagickBooleanType---- | MagickGetImageClipMask() gets the image clip mask at the current image index.-foreign import ccall "MagickGetImageClipMask" magickGetImageClipMask-  :: Ptr MagickWand-  -> IO (Ptr MagickWand)---- | MagickSetImageClipMask() sets image clip mask.-foreign import ccall "MagickSetImageClipMask" magickSetImageClipMask-  :: Ptr MagickWand-  -> Ptr MagickWand-  -> IO MagickBooleanType---- | MagickCompositeImage() composite one image onto another at the specified offset.-foreign import ccall "MagickCompositeImage" magickCompositeImage-  :: Ptr MagickWand-  -> Ptr MagickWand      -- ^ source-  -> CompositeOperator-  -> CSize               -- ^ column offset-  -> CSize               -- ^ row offset-  -> IO MagickBooleanType--foreign import ccall "MagickCompositeImage" magickCompositeImageChannel-  :: Ptr MagickWand-  -> Ptr MagickWand      -- ^ source-  -> ChannelType-  -> CompositeOperator-  -> CSize               -- ^ column offset-  -> CSize               -- ^ row offset-  -> IO MagickBooleanType---- | MagickTransparentPaintImage() changes any pixel that matches color with the color defined by fill.-foreign import ccall "MagickTransparentPaintImage" magickTransparentPaintImage-  :: Ptr MagickWand-  -> Ptr PixelWand        -- ^ change this color to specified opacity value withing the image-  -> Double               -- ^ the level of transarency: 1.0 fully opaque 0.0 fully transparent-  -> Double               -- ^ By default target must match a particular pixel color exactly.-                          -- However, in many cases two colors may differ by a small amount.-                          -- The fuzz member of image defines how much tolerance is acceptable-                          -- to consider two colors as the same. For example, set fuzz to 10 and-                          -- the color red at intensities of 100 and 102 respectively are now-                          -- interpreted as the same color for the purposes of the floodfill.-  -> MagickBooleanType    -- paint any pixel that does not match the target color.-  -> IO MagickBooleanType---- | MagickBorderImage() surrounds the image with a border of the color--- defined by the bordercolor pixel wand.-foreign import ccall "MagickBorderImage" magickBorderImage-  :: Ptr MagickWand    -- ^ wand-  -> Ptr PixelWand     -- ^ bordercolor-  -> CSize             -- ^ width-  -> CSize             -- ^ height-  -> IO MagickBooleanType---- | MagickShaveImage() shaves pixels from the image edges. It allocates--- the memory necessary for the new Image structure and returns a pointer--- to the new image.-foreign import ccall "MagickShaveImage" magickShaveImage-  :: Ptr MagickWand    -- ^ wand-  -> CSize             -- ^ columns-  -> CSize             -- ^ rows-  -> IO MagickBooleanType---- | MagickSetImageAlphaChannel() activates, deactivates, resets, or--- sets the alpha channel.-foreign import ccall "MagickSetImageAlphaChannel" magickSetImageAlphaChannel-  :: Ptr MagickWand    -- ^ wand-  -> AlphaChannelType  -- ^ alpha_type-  -> IO MagickBooleanType---- | MagickNewImage() adds a blank image canvas of the specified size and background color to the wand.-foreign import ccall "MagickNewImage" magickNewImage-  :: Ptr MagickWand-  -> CSize                -- ^ width-  -> CSize                -- ^ height-  -> Ptr PixelWand        -- ^ background color-  -> IO MagickBooleanType---- |  MagickDrawImage() renders the drawing wand on the current image.-foreign import ccall "MagickDrawImage" magickDrawImage-    :: Ptr MagickWand -> Ptr DrawingWand -> IO MagickBooleanType---- | MagickFlopImage() creates a horizontal mirror image by reflecting the pixels around the central y-axis.-foreign import ccall "MagickFlopImage" magickFlopImage-  :: Ptr MagickWand -> IO MagickBooleanType----- |  MagickAddNoiseImage() adds random noise to the image.---    The type of noise: Uniform, Gaussian, Multiplicative, Impulse, Laplacian, or Poisson.-foreign import ccall "MagickAddNoiseImage" magickAddNoiseImage-  :: Ptr MagickWand -> NoiseType -> IO MagickBooleanType---- | MagickAddImage() adds a clone of the images from the second wand and inserts them into the first wand.--- Use MagickSetLastIterator(), to append new images into an existing wand, current image will be set to--- last image so later adds with also be appened to end of wand.------ Use MagickSetFirstIterator() to prepend new images into wand, any more images added will also be prepended--- before other images in the wand. However the order of a list of new images will not change.------ Otherwise the new images will be inserted just after the current image, and any later image will also be--- added after this current image but before the previously added images. Caution is advised when multiple--- image adds are inserted into the middle of the wand image list.-foreign import ccall "MagickAddImage" magickAddImage-  :: Ptr MagickWand -> Ptr MagickWand -> IO MagickBooleanType---- | MagickFlipImage() creates a vertical mirror image by reflecting the pixels around the central x-axis.-foreign import ccall "MagickFlipImage" magickFlipImage-  :: Ptr MagickWand -> IO MagickBooleanType---- | MagickSetImageVirtualPixelMethod() sets the image virtual pixel method.---   the image virtual pixel method : UndefinedVirtualPixelMethod, ConstantVirtualPixelMethod,---   EdgeVirtualPixelMethod, MirrorVirtualPixelMethod, or TileVirtualPixelMethod.-foreign import ccall "MagickSetImageVirtualPixelMethod" magickSetVirtualPixelMethod-  :: Ptr MagickWand -> VirtualPixelMethod -> IO VirtualPixelMethod---- | MagickAppendImages() append the images in a wand from the current image onwards,--- creating a new wand with the single image result. This is affected by the gravity--- and background settings of the first image.--- Typically you would call either MagickResetIterator() or MagickSetFirstImage() before--- calling this function to ensure that all the images in the wand's image list will be appended together.-foreign import ccall "MagickAppendImages" magickAppendImages-  :: Ptr MagickWand -> MagickBooleanType -> IO (Ptr MagickWand)---- | MagickReadImage() reads an image or image sequence. The images are inserted at--- the current image pointer position. Use MagickSetFirstIterator(), MagickSetLastIterator,--- or MagickSetImageIndex() to specify the current image pointer position at the beginning--- of the image list, the end, or anywhere in-between respectively.-foreign import ccall "MagickReadImage" magickReadImage-  :: Ptr MagickWand -> CString -> IO MagickBooleanType---- | MagickReadImageBlob() reads an image or image sequence from a blob.-foreign import ccall "MagickReadImageBlob" magickReadImageBlob-  :: Ptr MagickWand -> Ptr () -> CSize -> IO MagickBooleanType---- | MagickWriteImage() writes an image to the specified filename. If the filename--- parameter is NULL, the image is written to the filename set by MagickReadImage()--- or MagickSetImageFilename().-foreign import ccall "MagickWriteImage" magickWriteImage-  :: Ptr MagickWand -> CString -> IO (MagickBooleanType)---- | MagickBlurImage() blurs an image. We convolve the image with a gaussian--- operator of the given radius and standard deviation (sigma). For reasonable--- results, the radius should be larger than sigma. Use a radius of 0 and--- BlurImage() selects a suitable radius for you.------ The format of the MagickBlurImage method is:-foreign import ccall "MagickBlurImage" magickBlurImage-  :: Ptr MagickWand -> CDouble -> CDouble -> IO MagickBooleanType--foreign import ccall "MagickBlurImageChannel" magickBlurImageChannel-  :: Ptr MagickWand -> ChannelType -> CDouble -> CDouble -> IO MagickBooleanType---- | MagickNormalizeImage() enhances the contrast of a color image by adjusting---   the pixels color to span the entire range of colors available------   You can also reduce the influence of a particular channel with a gamma---   value of 0.-foreign import ccall "MagickNormalizeImage" magickNormalizeImage-  :: Ptr MagickWand -> IO MagickBooleanType--foreign import ccall "MagickNormalizeImageChannel" magickNormalizeImageChannel-  :: Ptr MagickWand -> ChannelType -> IO MagickBooleanType---- | MagickShadowImage() simulates an image shadow.-foreign import ccall "MagickShadowImage" magickShadowImage-  :: Ptr MagickWand-  -> CDouble       -- ^ percentage transparency-  -> CDouble       -- ^ the standard deviation of the Gaussian, in pixels-  -> CSize         -- ^ the shadow x-offset-  -> CSize         -- ^ the shadow y-offset-  -> IO MagickBooleanType---- | MagickTrimImage() remove edges that are the background color from the image.-foreign import ccall "MagickTrimImage" magickTrimImage-  :: Ptr MagickWand -> CDouble -> IO MagickBooleanType---- | MagickResetImagePage() resets the Wand page canvas and position.-foreign import ccall "MagickResetImagePage" magickResetImagePage-  :: Ptr MagickWand -> CString -> IO MagickBooleanType---- | MagickDistortImage() distorts an image using various distortion methods,--- by mapping color lookups of the source image to a new destination image usally--- of the same size as the source image, unless 'bestfit' is set to true.--- If 'bestfit' is enabled, and distortion allows it, the destination image--- is adjusted to ensure the whole source 'image' will just fit within the final--- destination image, which will be sized and offset accordingly. Also in many cases--- the virtual offset of the source image will be taken into account in the mapping.-foreign import ccall "MagickDistortImage" magickDistortImage-  :: Ptr MagickWand-  -> DistortImageMethod -- ^ the method of image distortion-  -> CSize              -- ^ the number of arguments given for this distortion method-  -> Ptr CDouble        -- ^ the arguments for this distortion method-  -> MagickBooleanType  -- ^ attempt to resize destination to fit distorted source-  -> IO MagickBooleanType---- | MagickShadeImage() shines a distant light on an image to create--- a three-dimensional effect. You control the positioning of the light--- with azimuth and elevation; azimuth is measured in degrees off the x axis--- and elevation is measured in pixels above the Z axis.-foreign import ccall "MagickShadeImage" magickShadeImage-  :: Ptr MagickWand-  -> MagickBooleanType -- ^ a value other than zero shades the intensity of each pixel-  -> CDouble           -- ^ azimuth of the light source direction-  -> CDouble           -- ^ evelation of the light source direction-  -> IO MagickBooleanType---- | MagickColorizeImage() blends the fill color with each pixel in the image.-foreign import ccall "MagickColorizeImage" magickColorizeImage-  :: Ptr MagickWand-  -> Ptr PixelWand     -- ^ the colorize pixel wand-  -> Ptr PixelWand     -- ^ the opacity pixel wand-  -> IO MagickBooleanType---- | MagickFxImage() evaluate expression for each pixel in the image.-foreign import ccall "MagickFxImage" magickFxImage-  :: Ptr MagickWand-  -> CString     -- ^ the expression-  -> IO (Ptr MagickWand)---- | MagickFxImageChannel() evaluate expression for each pixel in the image.-foreign import ccall "MagickFxImageChannel" magickFxImageChannel-  :: Ptr MagickWand-  -> ChannelType -- ^ the image channel(s)-  -> CString     -- ^ the expression-  -> IO (Ptr MagickWand)---- | MagickSigmoidalContrastImage() adjusts the contrast of an image with a--- non-linear sigmoidal contrast algorithm. Increase the contrast of the image--- using a sigmoidal transfer function without saturating highlights or shadows.--- Contrast indicates how much to increase the contrast (0 is none; 3 is typical;--- 20 is pushing it); mid-point indicates where midtones fall in the resultant--- image (0 is white; 50 is middle-gray; 100 is black). Set sharpen to `True`--- to increase the image contrast otherwise the contrast is reduced.-foreign import ccall "MagickSigmoidalContrastImage" magickSigmoidalContrastImage-  :: Ptr MagickWand-  -> MagickBooleanType -- ^ increase or decrease image contrast-  -> CDouble           -- ^ strength of the contrast, the larger the number the more 'threshold-like' it becomes-  -> CDouble           -- ^ midpoint of the function as a color value 0 to `quantumRange`-  -> IO MagickBooleanType---- | see `magickSigmoidalContrastImage`-foreign import ccall "MagickSigmoidalContrastImageChannel" magickSigmoidalContrastImageChannel-  :: Ptr MagickWand-  -> ChannelType       -- ^ identify which channel to level: `redChannel`, `greenChannel`-  -> MagickBooleanType -- ^ increase or decrease image contrast-  -> CDouble           -- ^ strength of the contrast, the larger the number the more 'threshold-like' it becomes-  -> CDouble           -- ^ midpoint of the function as a color value 0 to `quantumRange`-  -> IO MagickBooleanType---- | MagickEvaluateImage() applies an arithmetic, relational, or logical--- expression to an image. Use these operators to lighten or darken an image,--- to increase or decrease contrast in an image, or to produce the "negative"--- of an image.-foreign import ccall "MagickEvaluateImage" magickEvaluateImage-  :: Ptr MagickWand-  -> MagickEvaluateOperator -- ^ a channel operator-  -> CDouble                -- ^ value-  -> IO MagickBooleanType---- | see `magickEvaluateImage`-foreign import ccall "MagickEvaluateImages" magickEvaluateImages-  :: Ptr MagickWand-  -> MagickEvaluateOperator -- ^ a channel operator-  -> IO MagickBooleanType---- | see `magickEvaluateImage`-foreign import ccall "MagickEvaluateImageChannel" magickEvaluateImageChannel-  :: Ptr MagickWand-  -> ChannelType            -- ^ the channel(s)-  -> MagickEvaluateOperator -- ^ a channel operator-  -> CDouble                -- ^ value-  -> IO MagickBooleanType---- | MagickRollImage() offsets an image as defined by x and y.-foreign import ccall "MagickRollImage" magickRollImage-  :: Ptr MagickWand-  -> CDouble                -- ^ the x offset-  -> CDouble                -- ^ the y offset-  -> IO MagickBooleanType---- | MagickAnnotateImage() annotates an image with text.-foreign import ccall "MagickAnnotateImage" magickAnnotateImage-  :: Ptr MagickWand-  -> Ptr DrawingWand -- ^ the draw wand-  -> CDouble         -- ^ x ordinate to left of text-  -> CDouble         -- ^ y ordinate to text baseline-  -> CDouble         -- ^ rotate text relative to this angle-  -> CString         -- ^ text to draw-  -> IO MagickBooleanType---- | MagickMergeImageLayers() composes all the image layers from the current--- given image onward to produce a single image of the merged layers.--- The inital canvas's size depends on the given ImageLayerMethod, and is--- initialized using the first images background color. The images are then--- compositied onto that image in sequence using the given composition that--- has been assigned to each individual image.-foreign import ccall "MagickMergeImageLayers" magickMergeImageLayers-  :: Ptr MagickWand-  -> ImageLayerMethod -- ^ the method of selecting the size of the initial canvas-  -> IO (Ptr MagickWand)---- | MagickOptimizeImageLayers() compares each image the GIF disposed--- forms of the previous image in the sequence. From this it attempts--- to select the smallest cropped image to replace each frame, while--- preserving the results of the animation.-foreign import ccall "MagickOptimizeImageLayers" magickOptimizeImageLayers-  :: Ptr MagickWand-  -> IO (Ptr MagickWand)---- | MagickOptimizeImageTransparency() takes a frame optimized GIF animation, and--- compares the overlayed pixels against the disposal image resulting from all--- the previous frames in the animation. Any pixel that does not change the--- disposal image (and thus does not effect the outcome of an overlay) is made--- transparent.------ WARNING: This modifies the current images directly, rather than generate--- a new image sequence.-foreign import ccall "MagickOptimizeImageTransparency" magickOptimizeImageTransparency-  :: Ptr MagickWand-  -> IO MagickBooleanType---- | MagickTintImage() applies a color vector to each pixel in the image. The--- length of the vector is 0 for black and white and at its maximum for the--- midtones. The vector weighting function is f(x)=(1-(4.0*((x-0.5)*(x-0.5)))).-foreign import ccall "MagickTintImage" magickTintImage-  :: Ptr MagickWand-  -> Ptr PixelWand    -- ^ the tint pixel wand.-  -> Ptr PixelWand    -- ^ opacity pixel wand-  -> IO MagickBooleanType----- | MagickSetImageMatte() sets the image matte channel.-foreign import ccall "MagickSetImageMatte" magickSetImageMatte-  :: Ptr MagickWand-  -> MagickBooleanType-  -> IO MagickBooleanType---- | MagickCropImage() extracts a region of the image.-foreign import ccall "MagickCropImage" magickCropImage-  :: Ptr MagickWand-  -> CSize         -- ^ the region width-  -> CSize         -- ^ the region height-  -> CSize         -- ^ the region x-offset-  -> CSize         -- ^ the region y-offset-  -> IO MagickBooleanType---- | MagickShearImage() slides one edge of an image along the X or Y axis,--- creating a parallelogram. An X direction shear slides an edge along the X axis,--- while a Y direction shear slides an edge along the Y axis. The amount of--- the shear is controlled by a shear angle. For X direction shears, x_shear is--- measured relative to the Y axis, and similarly, for Y direction shears y_shear--- is measured relative to the X axis. Empty triangles left over from shearing--- the image are filled with the background color.-foreign import ccall "MagickShearImage" magickShearImage-  :: Ptr MagickWand-  -> Ptr PixelWand -- ^ the background pixel wand-  -> CDouble       -- ^ the number of degrees to shear the image-  -> CDouble       -- ^ the number of degrees to shear the image-  -> IO MagickBooleanType---- | MagickScaleImage() scales the size of an image to the given dimensions.-foreign import ccall "MagickScaleImage" magickScaleImage-  :: Ptr MagickWand-  -> CSize       -- ^ the number of columns in the scaled image-  -> CSize       -- ^ the number of rows in the scaled image-  -> IO MagickBooleanType---- | MagickSparseColorImage(), given a set of coordinates, interpolates the--- colors found at those coordinates, across the whole image, using various methods.------ The format of the MagickSparseColorImage method is:---   ArcSparseColorion will always ignore source image offset, and always 'bestfit'--- the destination image with the top left corner offset relative to the polar mapping center.------ Bilinear has no simple inverse mapping so will not allow 'bestfit' style of image sparseion.------ Affine, Perspective, and Bilinear, will do least squares fitting of the distrotion when more--- than the minimum number of control point pairs are provided.------ Perspective, and Bilinear, will fall back to a Affine sparseion when less than 4 control--- point pairs are provided. While Affine sparseions will let you use any number of control--- point pairs, that is Zero pairs is a No-Op (viewport only) distrotion, one pair is a--- translation and two pairs of control points will do a scale-rotate-translate, without any--- shearing.-foreign import ccall "MagickSparseColorImage" magickSparseColorImage-  :: Ptr MagickWand-  -> ChannelType-  -> SparseColorMethod-  -> CSize-  -> Ptr Double-  -> IO MagickBooleanType---- | MagickFunctionImage() applys an arithmetic, relational, or logical expression to an image.--- Use these operators to lighten or darken an image, to increase or decrease contrast in an--- image, or to produce the "negative" of an image.-foreign import ccall "MagickFunctionImage" magickFunctionImage-  :: Ptr MagickWand-  -> MagickFunction-  -> CSize-  -> Ptr Double-  -> IO MagickBooleanType--foreign import ccall "MagickFunctionImageChannel" magickFunctionImageChannel-  :: Ptr MagickWand-  -> ChannelType-  -> MagickFunction-  -> CSize-  -> Ptr Double-  -> IO MagickBooleanType---- | MagickCoalesceImages() composites a set of images while respecting--- any page offsets and disposal methods. GIF, MIFF, and MNG animation--- sequences typically start with an image background and each subsequent--- image varies in size and offset. MagickCoalesceImages() returns a new--- sequence where each image in the sequence is the same size as the--- first and composited with the next image in the sequence.-foreign import ccall "MagickCoalesceImages" magickCoalesceImages-  :: Ptr MagickWand-  -> IO (Ptr MagickWand)---- | MagickGetNumberImages() returns the number of images associated--- with a magick wand.-foreign import ccall "MagickGetNumberImages" magickGetNumberImages-  :: Ptr MagickWand-  -> IO CSize---- | MagickGetImage() gets the image at the current image index.-foreign import ccall "MagickGetImage" magickGetImage-  :: Ptr MagickWand-  -> IO (Ptr MagickWand)---- | MagickCompareImageLayers() compares each image with the next in--- a sequence and returns the maximum bounding region of any pixel--- differences it discovers.-foreign import ccall "MagickCompareImageLayers" magickCompareImageLayers-  :: Ptr MagickWand-  -> ImageLayerMethod-  -> IO (Ptr MagickWand)---- | MagickGetImageScene() gets the image scene-foreign import ccall "MagickGetImageScene" magickGetImageScene-  :: Ptr MagickWand -> IO CSize---- | MagickRemoveImage() removes an image from the image list.-foreign import ccall "MagickRemoveImage" magickRemoveImage-  :: Ptr MagickWand -> IO MagickBooleanType---- | MagickSetImage() replaces the last image returned by MagickSetImageIndex(),--- MagickNextImage(), MagickPreviousImage() with the images from the specified--- wand.-foreign import ccall "MagickSetImage" magickSetImage-  :: Ptr MagickWand -> Ptr MagickWand -> IO MagickBooleanType---- | MagickImportImagePixels() accepts pixel data and stores it in the image at--- the location you specify. The method returns MagickFalse on success otherwise--- MagickTrue if an error is encountered. The pixel data can be either char,--- short int, int, ssize_t, float, or double in the order specified by map.------ Suppose your want to upload the first scanline of a 640x480 image from--- character data in red-green-blue order:---   magickImportImagePixels wand 0 0 640 1 "RGB" charPixel pixels-foreign import ccall "MagickImportImagePixels" magickImportImagePixels-  :: Ptr MagickWand-  -> CSize          -- ^ x-  -> CSize          -- ^ y-  -> CSize          -- ^ width-  -> CSize          -- ^ height-  -> CString        -- ^ this string reflects the expected ordering of the pixel array.-                    -- It can be any combination or order of R = red, G = green, B = blue, A = alpha-                    -- (0 is transparent), O = opacity (0 is opaque), C = cyan, Y = yellow, M = magenta,-                    -- K = black, I = intensity (for grayscale), P = pad.-  -> StorageType    -- define the data type of the pixels. Float and double types are expected-                    -- to be normalized [0..1] otherwise [0..QuantumRange]. Choose from these-                    -- types: CharPixel, ShortPixel, IntegerPixel, LongPixel, FloatPixel, or DoublePixel.-  -> Ptr ()         -- ^ This array of values contain the pixel components as defined by map and type.-                    -- You must preallocate this array where the expected length varies depending on-                    -- the values of width, height, map, and type-  -> IO MagickBooleanType---- | MagickExportImagePixels() extracts pixel data from an image and returns it--- to you. The method returns MagickTrue on success otherwise MagickFalse if an--- error is encountered. The data is returned as char, short int, int, ssize_t,--- float, or double in the order specified by map.-foreign import ccall "MagickExportImagePixels" magickExportImagePixels-  :: Ptr MagickWand-  -> CSize          -- ^ x-  -> CSize          -- ^ y-  -> CSize          -- ^ width-  -> CSize          -- ^ height-  -> CString        -- ^ this string reflects the expected ordering of the pixel array.-                    -- It can be any combination or order of R = red, G = green, B = blue, A = alpha-                    -- (0 is transparent), O = opacity (0 is opaque), C = cyan, Y = yellow, M = magenta,-                    -- K = black, I = intensity (for grayscale), P = pad.-  -> StorageType    -- define the data type of the pixels. Float and double types are expected-                    -- to be normalized [0..1] otherwise [0..QuantumRange]. Choose from these-                    -- types: CharPixel, ShortPixel, IntegerPixel, LongPixel, FloatPixel, or DoublePixel.-  -> Ptr ()         -- ^ This array of values contain the pixel components as defined by map and type.-                    -- You must preallocate this array where the expected length varies depending on-                    -- the values of width, height, map, and type-  -> IO MagickBooleanType---- | MagickRotateImage() rotates an image the specified number of degrees.--- Empty triangles left over from rotating the image are filled with the--- background color.-foreign import ccall "MagickRotateImage" magickRotateImage-  :: Ptr MagickWand -> Ptr PixelWand -> CDouble -> IO MagickBooleanType---- | MagickSetImageDepth() sets the image depth.-foreign import ccall "MagickSetImageDepth" magickSetImageDepth-  :: Ptr MagickWand -> CSize -> IO MagickBooleanType---- | MagickSetImageDelay() sets the image delay.-foreign import ccall "MagickSetImageDelay" magickSetImageDelay-  :: Ptr MagickWand -> CSize -> IO MagickBooleanType---- | MagickGetImageDelay() gets the image delay.-foreign import ccall "MagickGetImageDelay" magickGetImageDelay-  :: Ptr MagickWand -> IO CSize---- | MagickGetImageBlob() implements direct to memory image formats.--- It returns the image as a blob (a formatted "file" in memory) and--- its length, starting from the current position in the image sequence.--- Use MagickSetImageFormat() to set the format to write to the blob (GIF, JPEG, PNG, etc.).--- Utilize MagickResetIterator() to ensure the write is from the beginning of the image sequence.--- Use MagickRelinquishMemory() to free the blob when you are done with it.--- The format of the MagickGetImageBlob method is:-foreign import ccall "MagickGetImageBlob" magickGetImageBlob-  :: Ptr MagickWand -> Ptr CSize -> IO (Ptr CChar)---- | MagickGetImagesBlob() implements direct to memory image formats ideal--- for use with sequenced images to get a dump of the whole sequence-foreign import ccall "MagickGetImagesBlob" magickGetImagesBlob-  :: Ptr MagickWand -> Ptr CSize -> IO (Ptr CChar)---- | MagickGetImageDepth() gets the image depth.-foreign import ccall "MagickGetImageDepth" magickGetImageDepth-  :: Ptr MagickWand -> IO CSize---- | MagickGetImageFormat() returns the format of a particular image in a sequence.-foreign import ccall "MagickGetImageFormat" magickGetImageFormat-  :: Ptr MagickWand -> IO CString---- | MagickSetImageFormat() sets the format of a particular image in a sequence.-foreign import ccall "MagickSetImageFormat" magickSetImageFormat-  :: Ptr MagickWand -> CString -> IO MagickBooleanType---- | MagickStripImage() strips an image of all profiles and comments.-foreign import ccall "MagickStripImage" magickStripImage-  :: Ptr MagickWand -> IO MagickBooleanType---- | MagickGetImageSignature() generates an SHA-256 message digest for the image pixel stream.-foreign import ccall "MagickGetImageSignature" magickGetImageSignature-  :: Ptr MagickWand -> IO CString---- | MagickGetImageAlphaChannel() returns MagickFalse if the image alpha--- channel is not activated. That is, the image is RGB rather than RGBA--- or CMYK rather than CMYKA.-foreign import ccall "MagickGetImageAlphaChannel" magickGetImageAlphaChannel-  :: Ptr MagickWand -> IO MagickBooleanType---- | MagickSetImageType() sets the image type.-foreign import ccall "MagickSetImageType" magickSetImageType-  :: Ptr MagickWand -> ImageType -> IO MagickBooleanType
− Graphics/ImageMagick/MagickWand/FFI/WandProperties.hsc 
@@ -1,136 +0,0 @@-{-# LANGUAGE CPP                      #-}-{-# LANGUAGE ForeignFunctionInterface #-}-module Graphics.ImageMagick.MagickWand.FFI.WandProperties-  where--import           Foreign-import           Foreign.C.String-import           Foreign.C.Types--import           Graphics.ImageMagick.MagickWand.FFI.Types---foreign import ccall "MagickDeleteOption" magickDeleteOption-  :: Ptr MagickWand-  -> CString        -- ^ the key-  -> IO MagickBooleanType---- | MagickGetOption() returns a value associated with a wand--- and the specified key. Use MagickRelinquishMemory() to free--- the value when you are finished with it.-foreign import ccall "MagickGetOption" magickGetOption-  :: Ptr MagickWand-  -> CString        -- ^ the key-  -> IO CString---- | MagickSetOption() associates one or options with the wand--- (e.g. MagickSetOption(wand,"jpeg:perserve","yes")).-foreign import ccall "MagickSetOption" magickSetOption-  :: Ptr MagickWand-  -> CString        -- ^ the key-  -> CString        -- ^ the value-  -> IO MagickBooleanType---- | MagickGetOptions() returns all the option names that match the--- specified pattern associated with a wand. Use MagickGetOption()--- to return the value of a particular option. Use MagickRelinquishMemory()--- to free the value when you are finished with it.-foreign import ccall "MagickGetOptions" magickGetOptions-  :: Ptr MagickWand-  -> CString        -- ^ the pattern-  -> Ptr CSize-  -> IO (Ptr CString)---- | MagickDeleteImageProperty() deletes a wand property.-foreign import ccall "MagickDeleteImageProperty" magickDeleteImageProperty-  :: Ptr MagickWand-  -> CString        -- ^ the property-  -> IO MagickBooleanType---- | MagickGetImageProperty() returns a value associated with the--- specified property. Use MagickRelinquishMemory() to free the value--- when you are finished with it.-foreign import ccall "MagickGetImageProperty" magickGetImageProperty-  :: Ptr MagickWand-  -> CString        -- ^ the property-  -> IO CString---- | MagickGetImageProperties() returns all the property names that--- match the specified pattern associated with a wand. Use--- MagickGetImageProperty() to return the value of a particular property.--- Use MagickRelinquishMemory() to free the value when you are finished--- with it.-foreign import ccall "MagickGetImageProperties" magickGetImageProperties-  :: Ptr MagickWand-  -> CString        -- ^ the pattern-  -> Ptr CSize-  -> IO (Ptr CString)---- | MagickSetImageProperty() associates a property with an image.-foreign import ccall "MagickSetImageProperty" magickSetImageProperty-  :: Ptr MagickWand-  -> CString        -- ^ the property-  -> CString        -- ^ the value-  -> IO MagickBooleanType---- | MagickGetImageProfile() returns the named image profile.-foreign import ccall "MagickGetImageProfile" magickGetImageProfile-  :: Ptr MagickWand-  -> CString        -- ^ the profile name-  -> Ptr CSize      -- ^ the profile length-  -> IO (Ptr Word8)---- | MagickRemoveImageProfile() removes the named image profile and--- returns it.-foreign import ccall "MagickRemoveImageProfile" magickRemoveImageProfile-  :: Ptr MagickWand-  -> CString        -- ^ the profile name-  -> Ptr CSize      -- ^ the profile length-  -> IO (Ptr Word8)---- | MagickSetImageProfile() adds a named profile to the magick wand.--- If a profile with the same name already exists, it is replaced.--- This method differs from the MagickProfileImage() method in that--- it does not apply any CMS color profiles.-foreign import ccall "MagickSetImageProfile" magickSetImageProfile-  :: Ptr MagickWand-  -> CString        -- ^ the profile name-  -> Ptr Word8      -- ^ the profile-  -> CSize          -- ^ the profile length-  -> IO MagickBooleanType---- | MagickGetImageProfiles() returns all the profile names that match--- the specified pattern associated with a wand. Use--- MagickGetImageProfile() to return the value of a particular property.--- Use MagickRelinquishMemory() to free the value when you are finished--- with it.-foreign import ccall "MagickGetImageProfiles" magickGetImageProfiles-  :: Ptr MagickWand-  -> CString        -- ^ the pattern-  -> Ptr CSize-  -> IO (Ptr CString)---- | MagickSetResolution() sets the image resolution.-foreign import ccall "MagickSetImageResolution" magickSetImageResolution-  :: Ptr MagickWand-  -> CDouble        -- ^ x resolution-  -> CDouble        -- ^ y resolution-  -> IO MagickBooleanType---- | MagickGetResolution() gets the image resolution.-foreign import ccall "MagickGetImageResolution" magickGetImageResolution-  :: Ptr MagickWand-  -> Ptr CDouble        -- ^ x resolution-  -> Ptr CDouble        -- ^ y resolution-  -> IO MagickBooleanType---- | MagickGetImageArtifacts() returns all the artifact names--- that match the specified pattern associated with a wand.--- Use MagickGetImageProperty() to return the value of a--- particular artifact. Use MagickRelinquishMemory() to free--- the value when you are finished with it.-foreign import ccall "MagickGetImageArtifacts" magickGetImageArtifacts-  :: Ptr MagickWand-  -> CString        -- ^ the pattern-  -> Ptr CSize-  -> IO (Ptr CString)
− Graphics/ImageMagick/MagickWand/MagickWand.hs 
@@ -1,350 +0,0 @@-{-# LANGUAGE FlexibleContexts #-}-module Graphics.ImageMagick.MagickWand.MagickWand-  ( withMagickWandGenesis-  , localGenesis-  -- * Creation-  , magickWand-  , wandResource---  , magickWandFromImage---  , isMagickWand-  , cloneMagickWand---  , clearMagickWand-  , getSize-  , setSize-  , setImageArtifact-  , deleteImageArtifact-  , getIteratorIndex-  , setIteratorIndex---  , setFirstIterator---  , setLastIterator-  , resetIterator-  , magickIterate-  , magickIterateReverse-  , deleteOption-  , getOption-  , setOption-  , getOptions-  , deleteImageProperty-  , getImageProperty-  , setImageProperty-  , getImageProperties-  , getImageProfile-  , removeImageProfile-  , setImageProfile-  , getImageProfiles---  , queryConfigureOption---  , queryConfigureOptions---  , queryFontMetrics---  , queryMultilineFontMetrics---  , queryFonts---  , relinquishMemory---  , deleteImageArtifact---    , deleteImageProperty---    , getAntialias---    , getBackgroundColor-   , getColorspace-   , getCompression-   , getCompressionQuality---    , getCopyright---    , getFilename---    , getFont---    , getFormat---    , getGravity---    , getHomeURL---    , getImageArtifact-  , getImageArtifacts---    , getInterlaceScheme---    , getInterpolateMethod---    , getOrientation---    , getPackageName---    , getPage---    , getPointsize---    , getQuantumDepth---    , getQuantumRange---    , getReleaseDate-    , getImageResolution---    , getResource---    , getResourceLimit---    , getSamplingFactors---    , getSize---    , getSizeOffset---    , getType---    , getVersion---    , profileImage---    , removeImageProfile---    , setAntialias---    , setBackgroundColor-  , setColorspace-  , setCompression-  , setCompressionQuality---    , setDepth---    , setExtract---    , setFilename---    , setFont---    , setFormat---    , setGravity---    , setImageArtifact---    , setImageProfile---    , setInterlaceScheme---    , setInterpolateMethod---    , setOrientation---    , setPage---    , setPassphrase---    , setPointsize---    , setProgressMonitor---    , setResourceLimit-    , setImageResolution---    , setSamplingFactors---    , setSizeOffset---    , setType-  ) where--import           Control.Applicative                                ((<$>))-import           Control.Exception-import           Control.Monad-import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Data.ByteString-import           Data.Text                                          (Text)-import           Data.Text.Encoding                                 (decodeUtf8,-                                                                     encodeUtf8)-import           Data.Vector.Storable                               (Vector)-import qualified Data.Vector.Storable                               as V-import           Foreign                                            hiding-                                                                     (void)-import           Foreign.C.String-import           Foreign.C.Types-import qualified Graphics.ImageMagick.MagickWand.FFI.MagickWand     as F-import           Graphics.ImageMagick.MagickWand.FFI.Types-import qualified Graphics.ImageMagick.MagickWand.FFI.WandProperties as F-import           Graphics.ImageMagick.MagickWand.Types-import           Graphics.ImageMagick.MagickWand.Utils---- | Create magic wand environment and closes it at the--- end of the work, should wrap all MagickWand functions--- withMagickWandGenesis :: IO a -> IO a--- withMagickWandGenesis :: (MonadCatchIO m, MonadBaseControl IO m, MonadCatchIO (ResourceT IO)) => (ResourceT m c) -> m c-withMagickWandGenesis :: ResourceT IO c -> IO c-withMagickWandGenesis f = bracket start finish (\_ -> runResourceT f)-  where-    start = liftIO F.magickWandGenesis-    finish = liftIO . const F.magickWandTerminus---- | Open a nested block inside genesis (for tracking nested resources)-localGenesis :: MonadBaseControl IO m => ResourceT m a -> m a-localGenesis f = runResourceT f--magickWand :: (MonadResource m) => m (ReleaseKey, Ptr MagickWand)-magickWand = wandResource F.newMagickWand--magickIterateF :: (MonadResource m) =>-                 (PMagickWand -> IO ())-                 -> (PMagickWand -> IO MagickBooleanType)-                 -> PMagickWand -> (PMagickWand -> m ()) -> m ()-magickIterateF initF next w f = liftIO (initF w) >> go -- TODO: use fix-  where-    go = do-      i <- liftIO $ next w-      when (i==mTrue) $ f w >> go--magickIterate :: (MonadResource m) => Ptr MagickWand -> (Ptr MagickWand -> m ()) -> m ()-magickIterate = magickIterateF F.magickResetIterator F.magickNextImage--magickIterateReverse :: (MonadResource m) => Ptr MagickWand -> (Ptr MagickWand -> m ()) -> m ()-magickIterateReverse = magickIterateF F.magickSetLastIterator F.magickPreviousImage--wandResource :: (MonadResource m) => (IO (Ptr MagickWand)) -> m (ReleaseKey, Ptr MagickWand)-wandResource f = allocate f destroy-  where destroy = void . F.destroyMagickWand--cloneMagickWand :: (MonadResource m) => Ptr MagickWand -> m (ReleaseKey, Ptr MagickWand)-cloneMagickWand = wandResource . F.cloneMagickWand--setSize :: (MonadResource m) => Ptr MagickWand -> Int -> Int -> m ()-setSize w cols rows = withException_ w $ F.magickSetSize w (fromIntegral cols) (fromIntegral rows)---- | Returns the size associated with the magick wand.-getSize :: (MonadResource m) => Ptr MagickWand -> m (Int, Int)-getSize w = liftIO $ alloca $ \pw -> do-  height <- alloca $ \ph -> F.magickGetSize w pw ph >> peek ph >>= return-  width <- peek pw-  return (fromIntegral width, fromIntegral height)----- | MagickSetImageArtifact() associates a artifact with an image.--- The format of the MagickSetImageArtifact method is:-setImageArtifact :: (MonadResource m) => PMagickWand -> ByteString -> ByteString -> m () -- TODO use normal types-setImageArtifact w a v = withException_ w $ useAsCString a-                                          $ \a' -> useAsCString v-                                          $ F.magickSetImageArtifact w a'---- | MagickDeleteImageArtifact() deletes a wand artifact.-deleteImageArtifact :: (MonadResource m) => PMagickWand -> ByteString -> m ()-deleteImageArtifact w a = withException_ w $ useAsCString a-                                           $ F.magickDeleteImageArtifact w---- | Sets the iterator to the given position in the image list specified--- with the index parameter. A zero index will set the first image as--- current, and so on. Negative indexes can be used to specify an image--- relative to the end of the images in the wand, with -1 being the last--- image in the wand.-setIteratorIndex :: (MonadResource m) => Ptr MagickWand -> Int -> m ()-setIteratorIndex w i = withException_ w $ F.magickSetIteratorIndex w (fromIntegral i)---- | Returns the position of the iterator in the image list.-getIteratorIndex :: (MonadResource m) => Ptr MagickWand -> m Int-getIteratorIndex w = liftIO $ fromIntegral <$> F.magickGetIteratorIndex w--resetIterator :: (MonadResource m) => Ptr MagickWand -> m ()-resetIterator = liftIO . F.magickResetIterator--getOption :: (MonadResource m) => Ptr MagickWand -> Text -> m Text-getOption w key = liftIO $ do-  cstr <- useAsCString (encodeUtf8 key) (F.magickGetOption w)-  value <- decodeUtf8 <$> packCString cstr-  F.magickRelinquishMemory (castPtr cstr)-  return value---- | Associates one or options with the wand (e.g. setOption wand "jpeg:perserve" "yes").-deleteOption :: (MonadResource m) => Ptr MagickWand -> Text -> m ()-deleteOption w key =-  withException_ w $ useAsCString (encodeUtf8 key) (F.magickDeleteOption w)---- | Associates one or options with the wand (e.g. setOption wand "jpeg:perserve" "yes").-setOption :: (MonadResource m) => Ptr MagickWand -> Text -> Text -> m ()-setOption w key value =-  withException_ w $ useAsCString (encodeUtf8 key) $-  \cstr -> useAsCString (encodeUtf8 value) (F.magickSetOption w cstr)--getOptions :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]-getOptions w pattern = liftIO $ alloca $ \pn -> do-  poptionps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetOptions w cstr pn)-  n <- fromIntegral <$> peek pn-  optionps <- peekArray n poptionps-  options <- forM optionps $ \optionp -> do-    option <- decodeUtf8 <$> packCString optionp-    F.magickRelinquishMemory (castPtr optionp)-    return option-  F.magickRelinquishMemory (castPtr poptionps)-  return options---- | Deletes a wand property-deleteImageProperty :: (MonadResource m) => Ptr MagickWand -> Text -> m ()-deleteImageProperty w prop =-  withException_ w $ useAsCString (encodeUtf8 prop) (F.magickDeleteImageProperty w)---- | Returns a value associated with the specified property-getImageProperty :: (MonadResource m) => Ptr MagickWand -> Text -> m Text-getImageProperty w prop = liftIO $ do-  cstr <- useAsCString (encodeUtf8 prop) (F.magickGetImageProperty w)-  value <- decodeUtf8 <$> packCString cstr-  F.magickRelinquishMemory (castPtr cstr)-  return value---- | Associates a property with an image.-setImageProperty :: (MonadResource m) => Ptr MagickWand -> Text -> Text -> m ()-setImageProperty w prop value =-  withException_ w $ useAsCString (encodeUtf8 prop) $-  \cstr -> useAsCString (encodeUtf8 value) (F.magickSetImageProperty w cstr)---- | Returns all the property names that match the specified pattern associated--- with a wand-getImageProperties :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]-getImageProperties w pattern = liftIO $ alloca $ \pn -> do-  ppropps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetImageProperties w cstr pn)-  n <- fromIntegral <$> peek pn-  propps <- peekArray n ppropps-  props <- forM propps $ \propp -> do-    prop <- decodeUtf8 <$> packCString propp-    F.magickRelinquishMemory (castPtr propp)-    return prop-  F.magickRelinquishMemory (castPtr ppropps)-  return props--getProfile :: (MonadResource m) =>-              (PMagickWand -> CString ->  Ptr CSize -> IO (Ptr Word8)) ->-              PMagickWand -> Text -> m (Vector Word8)-getProfile f w name = liftIO $ do-  (pprofile, len) <- alloca $ \pn -> useAsCString (encodeUtf8 name) $ \cstr -> do-    p <- f w cstr pn-    n <- fromIntegral <$> peek pn-    return (p,n)-  -- TODO: maybe we should use copyBytes instead?-  profile <- V.generateM len (peekElemOff pprofile)-  F.magickRelinquishMemory (castPtr pprofile)-  return profile---- | Returns the named image profile.-getImageProfile :: (MonadResource m) => Ptr MagickWand -> Text -> m (Vector Word8)-getImageProfile = getProfile F.magickGetImageProfile---- | Removes the named image profile and returns it-removeImageProfile :: (MonadResource m) => Ptr MagickWand -> Text -> m (Vector Word8)-removeImageProfile = getProfile F.magickRemoveImageProfile---- | Adds a named profile to the magick wand. If a profile with the same--- name already exists, it is replaced. This method differs from the--- `profileImage` method in that it does not apply any CMS color profiles.-setImageProfile :: (MonadResource m) => Ptr MagickWand -> Text -> Vector Word8 -> m ()-setImageProfile w name profile =-  withException_ w $ useAsCString (encodeUtf8 name) $-  \cstr -> V.unsafeWith profile $-           \p -> (F.magickSetImageProfile w cstr) p (fromIntegral $ V.length profile)---- | Returns all the profile names that match the specified pattern--- associated with a wand.-getImageProfiles :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]-getImageProfiles w pattern = liftIO $ alloca $ \pn -> do-  pprofileps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetImageProfiles w cstr pn)-  n <- fromIntegral <$> peek pn-  profileps <- peekArray n pprofileps-  profiles <- forM profileps $ \profilep -> do-    profile <- decodeUtf8 <$> packCString profilep-    F.magickRelinquishMemory (castPtr profilep)-    return profile-  F.magickRelinquishMemory (castPtr pprofileps)-  return profiles---- | MagickGetColorspace() gets the wand colorspace type.-getColorspace :: (MonadResource m) => PMagickWand -> m ColorspaceType-getColorspace = liftIO . F.magickGetColorspace---- | MagickSetColorspace() sets the wand colorspace type.-setColorspace :: (MonadResource m) => PMagickWand -> ColorspaceType -> m ()-setColorspace w c = withException_ w $ F.magickSetColorspace w c--getCompression :: (MonadResource m) => PMagickWand -> m CompressionType-getCompression = liftIO . F.magickGetCompression--setCompression :: (MonadResource m) => PMagickWand -> CompressionType -> m ()-setCompression w c = withException_ w $ F.magickSetCompression w c--getCompressionQuality :: (MonadResource m) => PMagickWand -> m Int-getCompressionQuality w = liftIO $ F.magickGetCompressionQuality w >>= return . fromIntegral--setCompressionQuality :: (MonadResource m) => PMagickWand -> Int -> m ()-setCompressionQuality w c  = withException_ w $ F.magickSetCompressionQuality w (fromIntegral c)--getImageResolution :: (MonadResource m) => PMagickWand -> m (Double,Double)-getImageResolution w = liftIO $ alloca $ \py -> do-  x <- alloca $ \px -> withExceptionIO w $ do-    result <- F.magickGetImageResolution w px py-    value <- peek px-    return (result, value)-  y <- peek py-  return (realToFrac x, realToFrac y)--setImageResolution :: (MonadResource m) => PMagickWand -> Double -> Double -> m ()-setImageResolution w x y  = withException_ w $ F.magickSetImageResolution w (realToFrac x) (realToFrac y)--getImageArtifacts :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]-getImageArtifacts w pattern = liftIO $ alloca $ \pn -> do-  partifactps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetImageArtifacts w cstr pn)-  n <- fromIntegral <$> peek pn-  artifactps <- peekArray n partifactps-  artifacts <- forM artifactps $ \artifactp -> do-    artifact <- decodeUtf8 <$> packCString artifactp-    F.magickRelinquishMemory (castPtr artifactp)-    return artifact-  F.magickRelinquishMemory (castPtr partifactps)-  return artifacts
− Graphics/ImageMagick/MagickWand/PixelIterator.hs 
@@ -1,92 +0,0 @@-module Graphics.ImageMagick.MagickWand.PixelIterator-  ( pixelIterator-  , pixelRegionIterator-  , pixelGetNextIteratorRow-  , pixelSyncIterator-  , pixelResetIterator-  , pixelIterateList-  , pixelGetMagickColor     -- TODO move to another file-  , pixelSetMagickColor     -- TODO move to another file---  , clonePixelIterator ---  , isPixelIterator ---  , pixelGetCurrentIteratorRow ---  , pixelGetIteratorRow ---  , pixelGetNextIteratorRow ---  , pixelGetPreviousIteratorRow ---  , pixelSetFirstIteratorRow ---  , pixelSetIteratorRow ---  , pixelSetLastIteratorRow -  ) where--import           Control.Monad-import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Data.Vector.Storable                              (Vector)-import qualified Data.Vector.Storable                              as V-import           Foreign                                           hiding (void)-import           Foreign.C.Types                                   (CSize)-import           System.IO.Unsafe                                  (unsafeInterleaveIO)--import qualified Graphics.ImageMagick.MagickWand.FFI.PixelIterator as F-import qualified Graphics.ImageMagick.MagickWand.FFI.PixelWand     as F-import           Graphics.ImageMagick.MagickWand.FFI.Types-import           Graphics.ImageMagick.MagickWand.Types-import           Graphics.ImageMagick.MagickWand.Utils---pixelIterator :: (MonadResource m) => Ptr MagickWand -> m (ReleaseKey, PPixelIterator)-pixelIterator w = allocate (F.newPixelIterator w) destroy-  where destroy = void . F.destroyPixelIterator--pixelRegionIterator :: (MonadResource m)-  => Ptr MagickWand -> Int -> Int -> Int -> Int -> m (ReleaseKey, PPixelIterator)-pixelRegionIterator w x y width height =  allocate (F.newPixelRegionIterator w x' y' width' height') destroy-  where destroy = void . F.destroyPixelIterator-        x' = fromIntegral x-        y' = fromIntegral y-        width' = fromIntegral width-        height' = fromIntegral height--pixelGetNextIteratorRow :: (MonadResource m) => PPixelIterator  -> m (Maybe (Vector PPixelWand))-pixelGetNextIteratorRow p = do-    x <- allocate (createPixelWandVector (F.pixelGetNextIteratorRow p)) (const $ return ())-    case x of-      (_, Just v) -> return (Just v)-      (_, Nothing) -> return Nothing--pixelGetMagickColor :: (MonadIO m) => PPixelWand -> m PMagickPixelPacket-pixelGetMagickColor w = liftIO $ do-          c <- mallocForeignPtr-          withForeignPtr c (F.pixelGetMagickColor w)-          return c--pixelSetMagickColor :: (MonadResource m) => PPixelWand -> PMagickPixelPacket -> m ()-pixelSetMagickColor w c = liftIO $ withForeignPtr c (F.pixelSetMagickColor w)--pixelSyncIterator :: (MonadResource m) => PPixelIterator -> m ()-pixelSyncIterator p =  withException_ p $ F.pixelSyncIterator p--pixelResetIterator :: (MonadResource m) => PPixelIterator -> m ()-pixelResetIterator = liftIO . F.pixelResetIterator---- | creates lazy list of pixel vectors-pixelIterateList :: (MonadResource m) => PPixelIterator -> m [Vector PPixelWand]-pixelIterateList it = pixelResetIterator it >> liftIO go-  where-    go :: IO [Vector PPixelWand]-    go = unsafeInterleaveIO $ do-          mv <- createPixelWandVector (F.pixelGetNextIteratorRow it)-          case mv of-            Just v -> go >>= return . (:) v-            Nothing -> return []---createPixelWandVector :: (Ptr CSize -> IO (Ptr PPixelWand)) -> IO (Maybe (Vector (PPixelWand)))-createPixelWandVector f = alloca $ \x -> do-          ptr <- f x-          if ptr == nullPtr-              then return Nothing-              else do-                  n   <- fmap fromIntegral (peek x)-                  fmap (Just . (\p -> V.unsafeFromForeignPtr0 p n)) (newForeignPtr_ ptr)-
− Graphics/ImageMagick/MagickWand/PixelPacket.hs 
@@ -1,48 +0,0 @@-module Graphics.ImageMagick.MagickWand.PixelPacket-  ( getPixelRed-  , setPixelRed-  , getPixelBlue-  , setPixelBlue-  , getPixelGreen-  , setPixelGreen-  , getPixelIndex-  , setPixelIndex-  ) where--import           Control.Monad.IO.Class-import           Foreign-import qualified Graphics.ImageMagick.MagickWand.FFI.Types         as F-import           Graphics.ImageMagick.MagickWand.Types---getPixel' :: (MonadIO m) => (Ptr F.MagickPixelPacket -> IO MagickRealType) -> PMagickPixelPacket ->  m MagickRealType-getPixel' f wp = liftIO $ withForeignPtr wp f-{-# INLINE getPixel' #-}--getPixelRed :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType-getPixelRed  = getPixel' F.getPixelRed--getPixelBlue :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType-getPixelBlue  = getPixel' F.getPixelBlue--getPixelGreen :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType-getPixelGreen  = getPixel' F.getPixelGreen--getPixelIndex :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType-getPixelIndex  = getPixel' F.getPixelIndex--setPixel' :: (MonadIO m) => (Ptr F.MagickPixelPacket -> MagickRealType -> IO ()) -> PMagickPixelPacket -> MagickRealType -> m ()-setPixel' f wp c = liftIO $ withForeignPtr wp (`f` c)-{-# INLINE setPixel' #-}--setPixelRed :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()-setPixelRed = setPixel' F.setPixelRed--setPixelIndex :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()-setPixelIndex = setPixel' F.setPixelIndex--setPixelGreen :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()-setPixelGreen = setPixel' F.setPixelGreen--setPixelBlue :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()-setPixelBlue = setPixel' F.setPixelBlue
− Graphics/ImageMagick/MagickWand/PixelWand.hs 
@@ -1,233 +0,0 @@-{-# LANGUAGE CPP #-}-module Graphics.ImageMagick.MagickWand.PixelWand-  ( pixelWand--- , clearPixelWand---   , cloneWand---   , cloneWands-   , isPixelWandSimilar---   , isPixelWand-   , setColorCount, getColorCount-  -- ** Literal names-   , setColor-   , getColorAsString, getColorAsNormalizedString-   -- HSL-   , getHSL, setHSL-   , getMagickColor, setMagickColor-   , setColorFromWand-   , getQuantumColor, setQuantumColor-   -- ** Color parts-   -- Index-   , getIndex, setIndex-   -- Fuzz-   , getFuzz, setFuzz-   -- Alpha-   , getOpacity, getOpacityQuantum, setOpacity, setOpacityQuantum-   , getAlpha, getAlphaQuantum, setAlpha, setAlphaQuantum-   -- RGB-   , getRed, getRedQuantum, setRed, setRedQuantum-   , getBlue, getBlueQuantum, setBlue, setBlueQuantum-   , getGreen, getGreenQuantum, setGreen, setGreenQuantum-   -- CMYK-   , getCyan, getCyanQuantum, setCyan, setCyanQuantum-   , getMagenta, getMagentaQuantum, setMagenta, setMagentaQuantum-   , getYellow, getYellowQuantum, setYellow, setYellowQuantum-   , getBlack, getBlackQuantum, setBlack, setBlackQuantum-  ) where--import           Control.Monad                                 (void)-import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Data.ByteString                               (ByteString,-                                                                packCString,-                                                                useAsCString)-import           Foreign                                       hiding (void)-import           Foreign.C.Types (CDouble)--import qualified Graphics.ImageMagick.MagickWand.FFI.PixelWand as F-import           Graphics.ImageMagick.MagickWand.Types-import           Graphics.ImageMagick.MagickWand.Utils--pixelWand :: (MonadResource m) => m PPixelWand-pixelWand = fmap snd (allocate F.newPixelWand destroy)-  where destroy = void . F.destroyPixelWand--setColor :: (MonadResource m) => PPixelWand -> ByteString -> m ()-setColor p s = withException_ p $ useAsCString s (F.pixelSetColor p)---getMagickColor :: (MonadResource m) => PPixelWand -> m PMagickPixelPacket-getMagickColor w = liftIO $ do-  p <- mallocForeignPtr-  withForeignPtr p (F.pixelGetMagickColor w)-  return p--setMagickColor :: (MonadResource m) => PPixelWand -> PMagickPixelPacket -> m ()-setMagickColor w p = liftIO $ withForeignPtr p (F.pixelSetMagickColor w)--setColorCount :: (MonadResource m) => PPixelWand -> Int -> m ()-setColorCount w i = liftIO $ F.pixelSetColorCount w (fromIntegral i)--getColorCount :: (MonadResource m) => PPixelWand -> m Int-getColorCount w = liftIO (F.pixelGetColorCount w) >>= return . fromIntegral--getColorAsString :: (MonadResource m) => PPixelWand -> m ByteString-getColorAsString w = liftIO $ F.pixelGetColorAsString w >>= packCString--getColorAsNormalizedString :: (MonadResource m) => PPixelWand -> m ByteString-getColorAsNormalizedString w = liftIO $ F.pixelGetColorAsNormalizedString w >>= packCString--getHSL :: (MonadResource m) => PPixelWand -> m (Double, Double, Double)-getHSL w = liftIO $ fmap (map3 realToFrac) (with3 (F.pixelGetHSL w))--setHSL :: (MonadResource m) => PPixelWand -> Double -> Double -> Double -> m ()-setHSL w h s l = liftIO $ F.pixelSetHSL w (realToFrac h) (realToFrac s) (realToFrac l)--setColorFromWand :: (MonadResource m) => PPixelWand -> PPixelWand -> m ()-setColorFromWand = (liftIO .). F.pixelSetColorFromWand--getIndex :: (MonadResource m) => PPixelWand -> m IndexPacket-getIndex = liftIO . F.pixelGetIndex--setIndex :: (MonadResource m) => PPixelWand -> IndexPacket -> m ()-setIndex w i = liftIO $ F.pixelSetIndex w i--getQuantumColor :: (MonadResource m) => PPixelWand -> m PPixelPacket-getQuantumColor w = liftIO $ do-  p <- mallocForeignPtr-  withForeignPtr p (F.pixelGetQuantumColor w)-  return p--setQuantumColor :: (MonadResource m) => PPixelWand -> PPixelPacket -> m ()-setQuantumColor w p = liftIO $ withForeignPtr p (F.pixelSetQuantumColor w)--getFuzz :: (MonadResource m) => PPixelWand -> m Double-getFuzz = liftIO . ((fmap realToFrac) . F.pixelGetFuzz)--setFuzz :: (MonadResource m) => PPixelWand -> Double -> m ()-setFuzz w i = liftIO $ F.pixelSetFuzz w (realToFrac i)--isPixelWandSimilar :: (MonadResource m) => PPixelWand -> PPixelWand -> Double -> m Bool-isPixelWandSimilar pw1 pw2 fuzz =  fromMBool $ F.isPixelWandSimilar pw1 pw2 (realToFrac fuzz)--setRedQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setRedQuantum = (liftIO .) . F.pixelSetRedQuantum--getRed :: (MonadResource m) => PPixelWand -> m Double-getRed = (fmap realToFrac) . liftIO . F.pixelGetRed--setRed :: (MonadResource m) => PPixelWand -> Double -> m ()-setRed = (liftIO .) . (. realToFrac) . F.pixelSetRed--getRedQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getRedQuantum =  liftIO . F.pixelGetRedQuantum--setGreenQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setGreenQuantum = (liftIO .) . F.pixelSetGreenQuantum--getGreen :: (MonadResource m) => PPixelWand -> m Double-getGreen = (fmap realToFrac) . liftIO . F.pixelGetGreen--setGreen :: (MonadResource m) => PPixelWand -> Double -> m ()-setGreen = (liftIO .) . (. realToFrac) . F.pixelSetGreen--getGreenQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getGreenQuantum =  liftIO . F.pixelGetGreenQuantum--setBlueQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setBlueQuantum = (liftIO .) . F.pixelSetBlueQuantum--getBlue :: (MonadResource m) => PPixelWand -> m Double-getBlue = (fmap realToFrac) . liftIO . F.pixelGetBlue--setBlue :: (MonadResource m) => PPixelWand -> Double -> m ()-setBlue = (liftIO .) . (. realToFrac) . F.pixelSetBlue--getBlueQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getBlueQuantum =  liftIO . F.pixelGetBlueQuantum--setAlphaQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setAlphaQuantum = (liftIO .) . F.pixelSetAlphaQuantum--getAlphaQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getAlphaQuantum =  liftIO . F.pixelGetAlphaQuantum--setAlpha :: (MonadResource m) => PPixelWand -> Double -> m ()-setAlpha = (liftIO .) . (. realToFrac) . F.pixelSetAlpha--getAlpha :: (MonadResource m) => PPixelWand -> m Double-getAlpha = (fmap realToFrac) . liftIO . F.pixelGetAlpha--setOpacityQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setOpacityQuantum = (liftIO .) . F.pixelSetOpacityQuantum--getOpacityQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getOpacityQuantum =  liftIO . F.pixelGetOpacityQuantum--setOpacity :: (MonadResource m) => PPixelWand -> Double -> m ()-setOpacity = (liftIO .) . (. realToFrac) . F.pixelSetOpacity--getOpacity :: (MonadResource m) => PPixelWand -> m Double-getOpacity = (fmap realToFrac) . liftIO . F.pixelGetOpacity--setBlackQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setBlackQuantum = (liftIO .) . F.pixelSetBlackQuantum--getBlackQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getBlackQuantum =  liftIO . F.pixelGetBlackQuantum--setBlack :: (MonadResource m) => PPixelWand -> Double -> m ()-setBlack = (liftIO .) . (. realToFrac) . F.pixelSetBlack--getBlack :: (MonadResource m) => PPixelWand -> m Double-getBlack = (fmap realToFrac) . liftIO . F.pixelGetBlack--setCyanQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setCyanQuantum = (liftIO .) . F.pixelSetCyanQuantum--getCyanQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getCyanQuantum =  liftIO . F.pixelGetCyanQuantum--setCyan :: (MonadResource m) => PPixelWand -> Double -> m ()-setCyan = (liftIO .) . (. realToFrac) . F.pixelSetCyan--getCyan :: (MonadResource m) => PPixelWand -> m Double-getCyan = (fmap realToFrac) . liftIO . F.pixelGetCyan--setMagentaQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setMagentaQuantum = (liftIO .) . F.pixelSetMagentaQuantum--getMagentaQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getMagentaQuantum =  liftIO . F.pixelGetMagentaQuantum--setMagenta :: (MonadResource m) => PPixelWand -> Double -> m ()-setMagenta = (liftIO .) . (. realToFrac) . F.pixelSetMagenta--getMagenta :: (MonadResource m) => PPixelWand -> m Double-getMagenta = (fmap realToFrac) . liftIO . F.pixelGetMagenta--setYellowQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()-setYellowQuantum = (liftIO .) . F.pixelSetYellowQuantum--getYellowQuantum :: (MonadResource m) => PPixelWand -> m Quantum-getYellowQuantum =  liftIO . F.pixelGetYellowQuantum--setYellow :: (MonadResource m) => PPixelWand -> Double -> m ()-setYellow = (liftIO .) . (. realToFrac) . F.pixelSetYellow--getYellow :: (MonadResource m) => PPixelWand -> m Double-getYellow = (fmap realToFrac) . liftIO . F.pixelGetYellow------with3 ::-  (Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ())-  -> IO (CDouble, CDouble, CDouble)-with3 f = alloca (\x -> alloca (\y -> alloca (\z -> do-              _ <- f x y z-              x' <- peek x-              y' <- peek y-              z' <- peek z-              return (x',y',z')-              )))--map3 :: (a -> b) -> (a, a, a) -> (b, b, b)-map3 f (a,b,c) = (f a, f b, f c)
− Graphics/ImageMagick/MagickWand/Types.hs 
@@ -1,81 +0,0 @@-{-# OPTIONS -fno-warn-orphans #-}-{-# LANGUAGE DeriveDataTypeable  #-}-{-# LANGUAGE FlexibleInstances   #-}-{-# LANGUAGE RankNTypes          #-}-{-# LANGUAGE ScopedTypeVariables #-}-{-# LANGUAGE TypeFamilies        #-}-module Graphics.ImageMagick.MagickWand.Types-  ( PPixelIterator-  , PPixelWand-  , PPixelPacket-  , PMagickPixelPacket-  , PDrawingWand-  , PMagickWand-  , MagickWandException(..)-  -- * support for ImageMagick Exceptions-  , ExceptionCarrier(..)-  , module Graphics.ImageMagick.MagickCore.Types-  , Pixel(..)-  ) where--import qualified Data.Vector.Storable                              as V-import           Foreign-import           Foreign.C.String-import           Graphics.ImageMagick.MagickCore.Exception-import           Graphics.ImageMagick.MagickCore.Types-import           Graphics.ImageMagick.MagickWand.FFI.DrawingWand   as F-import           Graphics.ImageMagick.MagickWand.FFI.MagickWand    as F-import           Graphics.ImageMagick.MagickWand.FFI.PixelIterator as F-import           Graphics.ImageMagick.MagickWand.FFI.PixelWand     as F-import           Graphics.ImageMagick.MagickWand.FFI.Types--type PPixelIterator     = Ptr PixelIterator-type PPixelWand         = Ptr PixelWand-type PMagickWand        = Ptr MagickWand-type PDrawingWand       = Ptr DrawingWand-type PMagickPixelPacket = ForeignPtr MagickPixelPacket-type PPixelPacket       = ForeignPtr PixelPacket--constructException :: forall t.-  (t -> Ptr ExceptionType -> IO CString)-  -> t -> IO MagickWandException-constructException f w = alloca $ \x -> do-    s  <- peekCString =<< f w x-    x' <- peek x-    return $ MagickWandException (toSeverity x') x' s-{-# INLINE constructException #-}--instance ExceptionCarrier (Ptr MagickWand) where-  getException = constructException F.magickGetException--instance ExceptionCarrier (Ptr PixelIterator) where-  getException = constructException F.pixelGetIteratorException--instance ExceptionCarrier (Ptr PixelWand) where-  getException = constructException F.pixelGetException--instance ExceptionCarrier (Ptr DrawingWand) where-  getException = constructException F.drawGetException--class (Storable a) => Pixel a where-  pixelStorageType :: [a] -> StorageType-  withPixels :: [a] -> (Ptr a -> IO b) -> IO b-  withPixels xs f = V.unsafeWith (V.fromList xs) f--instance Pixel Word8 where-  pixelStorageType = const charPixel--instance Pixel Word16 where-  pixelStorageType = const shortPixel--instance Pixel Word32 where-  pixelStorageType = const longPixel--instance Pixel Word64 where-  pixelStorageType = const longPixel--instance Pixel Float where-  pixelStorageType = const floatPixel--instance Pixel Double where-  pixelStorageType = const doublePixel
− Graphics/ImageMagick/MagickWand/Utils.hs 
@@ -1,41 +0,0 @@-module Graphics.ImageMagick.MagickWand.Utils-  ( fromMBool-  , toMBool-  , withException-  , withException_-  , withExceptionIO-  )-  where--import           Control.Exception.Base-import           Control.Monad-import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Graphics.ImageMagick.MagickWand.FFI.Types-import           Graphics.ImageMagick.MagickWand.Types--fromMBool :: (MonadResource m) => IO MagickBooleanType -> m Bool-fromMBool = liftM (==mTrue) . liftIO-{-# INLINE fromMBool #-}--withException :: (MonadResource m, ExceptionCarrier a) => a -> IO (MagickBooleanType, b) -> m b-withException a f = liftIO $ do-  (r,b) <- f-  unless (r==mTrue) $ getException a >>= throw-  return b-{-# INLINE withException #-}--withException_ :: (MonadResource m, ExceptionCarrier a) => a -> IO MagickBooleanType -> m ()-withException_ a f = liftIO $ f >>= \x -> void $ unless (x==mTrue) (getException a >>= throw)---- TODO find some better way around IO + MonadResource-withExceptionIO :: (ExceptionCarrier a) => a -> IO (MagickBooleanType, b) -> IO b-withExceptionIO a f = liftIO $ do-  (r,b) <- f-  unless (r==mTrue) $ getException a >>= throw-  return b--toMBool :: Bool -> MagickBooleanType-toMBool True  = mTrue-toMBool False = mFalse-{-# INLINE toMBool #-}
− Graphics/ImageMagick/MagickWand/WandImage.hs 
@@ -1,956 +0,0 @@-{-# LANGUAGE ScopedTypeVariables, CPP #-}-module Graphics.ImageMagick.MagickWand.WandImage-  ( getImageHeight-  , getImageWidth-  , getImagePixelColor-  , resizeImage-  , getImageCompressionQuality-  , setImageCompression-  , setImageCompressionQuality-  , getImageBackgroundColor-  , setImageBackgroundColor-  , extentImage-  , floodfillPaintImage-  , negateImage-  , negateImageChannel-  , getImageClipMask-  , setImageClipMask-  , compositeImage-  , compositeImageChannel-  , transparentPaintImage-  , newImage-  , drawImage-  , borderImage-  , shaveImage-  , setImageAlphaChannel-  , flipImage-  , flopImage-  , blurImage-  , blurImageChannel-  , normalizeImage-  , normalizeImageChannel-  , shadowImage-  , addImage-  , appendImages-  , addNoiseImage-  , writeImage-  , writeImages-  , setVirtualPixelMethod-  , trimImage-  , resetImagePage-  , distortImage-  , shadeImage-  , colorizeImage-  , fxImage-  , fxImageChannel-  , sigmoidalContrastImage-  , sigmoidalContrastImageChannel-  , evaluateImage-  , evaluateImageChannel-  , evaluateImages-  , rollImage-  , annotateImage-  , mergeImageLayers-  , tintImage-  , gaussianBlurImageChannel-  , gaussianBlurImage-  , setImageMatte-  , cropImage-  , shearImage-  , scaleImage-  , sparseColorImage-  , functionImage-  , functionImageChannel-  , coalesceImages-  , getNumberImages-  , getImage-  , compareImageLayers--- , getImageFromMagickWand--- , adaptiveBlurImage--- , adaptiveResizeImage--- , adaptiveSharpenImage--- , adaptiveThresholdImage--- , addImage--- , addNoiseImage--- , affineTransformImage--- , annotateImage--- , animateImages--- , appendImages--- , autoGammaImage--- , autoLevelImage--- , blackThresholdImage--- , blueShiftImage--- , blurImage--- , borderImage--- , brightnessContrastImage--- , charcoalImage--- , chopImage--- , clampImage--- , clipImage--- , clipImagePath--- , clutImage--- , coalesceImages--- , colorDecisionListImage--- , colorizeImage--- , colorMatrixImage--- , combineImages--- , commentImage--- , compareImageChannels--- , compareImageLayers--- , compareImages--- , compositeImage--- , compositeLayers--- , contrastImage--- , contrastStretchImage--- , convolveImage--- , cropImage--- , cycleColormapImage--- , constituteImage--- , decipherImage--- , deconstructImages--- , deskewImage--- , despeckleImage--- , destroyImage--- , displayImage--- , displayImages--- , distortImage--- , drawImage--- , edgeImage--- , embossImage--- , encipherImage--- , enhanceImage--- , equalizeImage--- , evaluateImage--- , exportImagePixels--- , extentImage--- , filterImage--- , flipImage--- , floodfillPaintImage--- , flopImage--- , forwardFourierTransformImage--- , frameImage--- , functionImage--- , fxImage--- , gammaImage--- , gaussianBlurImage--- , getImage-  , getImageAlphaChannel--- , getImageClipMask--- , getImageBackgroundColor-  , getImageBlob-  , getImagesBlob--- , getImageBluePrimary--- , getImageBorderColor--- , getImageChannelDepth--- , getImageChannelDistortion--- , getImageChannelDistortions--- , getImageChannelFeatures--- , getImageChannelKurtosis--- , getImageChannelMean--- , getImageChannelRange--- , getImageChannelStatistics--- , getImageColormapColor--- , getImageColors--- , getImageColorspace--- , getImageCompose--- , getImageCompression--- , getImageCompressionQuality-  , getImageDelay-  , getImageDepth--- , getImageDistortion--- , getImageDispose--- , getImageEndian--- , getImageFilename-  , getImageFormat--- , getImageFuzz--- , getImageGamma--- , getImageGravity--- , getImageGreenPrimary--- , getImageHeight--- , getImageHistogram--- , getImageInterlaceScheme--- , getImageInterpolateMethod--- , getImageIterations--- , getImageLength--- , getImageMatteColor--- , getImageOrientation--- , getImagePage--- , getImagePixelColor--- , getImageRedPrimary--- , getImageRegion--- , getImageRenderingIntent-  , getImageSignature--- , getImageTicksPerSecond--- , getImageType--- , getImageUnits--- , getImageVirtualPixelMethod--- , getImageWhitePoint--- , getImageWidth--- , getNumberImages--- , getImageTotalInkDensity--- , haldClutImage--- , hasNextImage--- , hasPreviousImage--- , identifyImage--- , implodeImage--- , importImagePixels--- , inverseFourierTransformImage--- , labelImage--- , levelImage--- , linearStretchImage--- , liquidRescaleImage--- , magnifyImage--- , mergeImageLayers--- , minifyImage--- , modulateImage--- , montageImage--- , morphImages--- , morphologyImage--- , motionBlurImage--- , negateImage--- , newImage--- , nextImage--- , normalizeImage--- , oilPaintImage--- , opaquePaintImage-, optimizeImageLayers-, optimizeImageTransparency--- , orderedPosterizeImage--- , pingImage--- , pingImageBlob--- , pingImageFile--- , polaroidImage--- , posterizeImage--- , previewImages--- , previousImage--- , quantizeImage--- , quantizeImages--- , radialBlurImage--- , raiseImage--- , randomThresholdImage-  , readImage-  , readImageBlob--- , readImageFile--- , remapImage--- , resampleImage--- , resetImagePage--- , resizeImage--- , rollImage--- , rotateImage--- , sampleImage--- , scaleImage--- , segmentImage--- , selectiveBlurImage--- , separateImageChannel--- , sepiaToneImage--- , setImage--- , setImageAlphaChannel--- , setImageBackgroundColor--- , setImageBias--- , setImageBluePrimary--- , setImageBorderColor--- , setImageChannelDepth--- , setImageClipMask--- , setImageColor--- , setImageColormapColor--- , setImageColorspace--- , setImageCompose--- , setImageCompression--- , setImageCompressionQuality-  , setImageDelay-  , setImageDepth--- , setImageDispose--- , setImageEndian--- , setImageExtent--- , setImageFilename-  , setImageFormat--- , setImageFuzz--- , setImageGamma--- , setImageGravity--- , setImageGreenPrimary--- , setImageInterlaceScheme--- , setImageInterpolateMethod--- , setImageIterations--- , setImageMatte--- , setImageMatteColor--- , setImageOpacity--- , setImageOrientation--- , setImagePage--- , setImageProgressMonitor--- , setImageRedPrimary--- , setImageRenderingIntent--- , setImageScene--- , setImageTicksPerSecond-  , setImageType--- , setImageUnits--- , setImageVirtualPixelMethod--- , setImageWhitePoint--- , shadeImage--- , shadowImage--- , sharpenImage--- , shaveImage--- , shearImage--- , sigmoidalContrastImage--- , similarityImage--- , sketchImage--- , smushImages--- , solarizeImage--- , sparseColorImage--- , spliceImage--- , spreadImage--- , statisticImage--- , steganoImage--- , stereoImage-  , stripImage--- , swirlImage--- , textureImage--- , thresholdImage--- , thumbnailImage--- , tintImage--- , transformImage--- , transformImageColorspace--- , transparentPaintImage--- , transposeImage--- , transverseImage--- , trimImage--- , uniqueImageColors--- , unsharpMaskImage--- , vignetteImage--- , waveImage--- , whiteThresholdImage--- , writeImage--- , writeImageFile--- , writeImages--- , writeImagesFile-  , getImageScene-  , setImage-  , removeImage-  , importImagePixels-  , exportImagePixels-  , rotateImage-  ) where--import           Control.Applicative                            ((<$>))-import           Control.Monad (void)-import           Control.Monad.IO.Class-import           Control.Monad.Trans.Resource-import           Data.ByteString                                (ByteString,-                                                                 packCString,-                                                                 packCStringLen,-                                                                 useAsCString,-                                                                 useAsCStringLen)-import           Data.Text                                      (Text)-import qualified Data.Text                                      as T-import           Data.Text.Encoding                             (decodeUtf8,-                                                                 encodeUtf8)-import           Data.Vector.Storable                           (Vector)-import qualified Data.Vector.Storable                           as V-import           Filesystem.Path.CurrentOS-import           Foreign hiding (void)-import           Foreign.C.Types-import           Graphics.ImageMagick.MagickCore.Types-import qualified Graphics.ImageMagick.MagickWand.FFI.MagickWand as F-import           Graphics.ImageMagick.MagickWand.FFI.Types-import qualified Graphics.ImageMagick.MagickWand.FFI.WandImage  as F-import           Graphics.ImageMagick.MagickWand.MagickWand-import           Graphics.ImageMagick.MagickWand.PixelWand-import           Graphics.ImageMagick.MagickWand.Types-import           Graphics.ImageMagick.MagickWand.Utils-import           Prelude                                        hiding-                                                                 (FilePath)--getImageHeight :: (MonadResource m) => Ptr MagickWand -> m Int-getImageHeight w = liftIO $ fmap fromIntegral (F.magickGetImageHeight w)--getImageWidth :: (MonadResource m) => Ptr MagickWand -> m Int-getImageWidth w = liftIO $ fmap fromIntegral (F.magickGetImageWidth w)---- | returns the color of the specified pixel into the pixelwand.-getImagePixelColor :: (MonadResource m)-  => PMagickWand-  -> Int          -- ^ pixel x coordinate-  -> Int          -- ^ pixel y coordinate-  -> PPixelWand   -- ^ return the colormap color in this wand-  -> m ()-getImagePixelColor w x y pw = withException_ w $! F.magickGetImagePixelColor w (fromIntegral x) (fromIntegral y) pw--resizeImage :: (MonadResource m) => Ptr MagickWand -> Int -> Int -> FilterTypes -> Double -> m ()-resizeImage pw w h f s = withException_ pw $! F.magickResizeImage pw (fromIntegral w) (fromIntegral h) f (realToFrac s)--getImageCompressionQuality :: (MonadResource m) => Ptr MagickWand -> m Int-getImageCompressionQuality = liftIO . fmap fromIntegral . F.magickGetImageCompressionQuality--setImageCompressionQuality :: (MonadResource m) => Ptr MagickWand -> Int -> m ()-setImageCompressionQuality w s = withException_ w $! F.magickSetImageCompressionQuality w (fromIntegral s)--getImageBackgroundColor :: (MonadResource m) => PMagickWand -> m PPixelWand-getImageBackgroundColor w = pixelWand >>= \p -> getImageBackgroundColor1 w p >> return p--getImageBackgroundColor1 :: (MonadResource m) => PMagickWand -> PPixelWand -> m ()-getImageBackgroundColor1 w p = withException_ w $! F.magickGetImageBackgroundColor w p--setImageBackgroundColor :: (MonadResource m) => PMagickWand -> PPixelWand -> m ()-setImageBackgroundColor w p = withException_ w $! F.magickSetImageBackgroundColor w p--extentImage :: (MonadResource m) => PMagickWand -> Int -> Int -> Int -> Int -> m ()-extentImage w width height offsetX offsetY = withException_ w $!-  F.magickExtentImage w (fromIntegral width) (fromIntegral height) (fromIntegral offsetX) (fromIntegral offsetY)--floodfillPaintImage :: (MonadResource m) => PMagickWand -> ChannelType -> PPixelWand -> Double -> PPixelWand -> Int -> Int -> Bool -> m ()-floodfillPaintImage w channel fill fuzz border x y invert = withException_ w $!-  F.magickFloodfillPaintImage w channel fill (realToFrac fuzz) border (fromIntegral x) (fromIntegral y) (toMBool invert)--negateImage :: (MonadResource m) => PMagickWand -> Bool -> m ()-negateImage p b = withException_ p $! F.magickNegateImage p (toMBool b)--negateImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Bool -> m ()-negateImageChannel p c b = withException_ p $! F.magickNegateImageChannel p c (toMBool b)--getImageClipMask :: (MonadResource m) => PMagickWand -> m PMagickWand-getImageClipMask = liftIO . F.magickGetImageClipMask--setImageClipMask :: (MonadResource m) => PMagickWand -> PMagickWand -> m ()-setImageClipMask w s = withException_ w $ F.magickSetImageClipMask w s--compositeImage :: (MonadResource m) => PMagickWand -> PMagickWand -> CompositeOperator -> Int -> Int -> m ()-compositeImage p s c w h = withException_ p $ F.magickCompositeImage p s c (fromIntegral w) (fromIntegral h)--compositeImageChannel :: (MonadResource m) => PMagickWand -> PMagickWand -> ChannelType -> CompositeOperator -> Int -> Int -> m ()-compositeImageChannel p s ch c w h = withException_ p $-  F.magickCompositeImageChannel p s ch c (fromIntegral w) (fromIntegral h)---- | transparentPaintImage changes any pixel that matches color with the color defined by fill.-transparentPaintImage :: (MonadResource m)-  => PMagickWand-  -> PPixelWand           -- ^ change this color to specified opacity value withing the image-  -> Double               -- ^ the level of transarency: 1.0 fully opaque 0.0 fully transparent-  -> Double               -- ^ By default target must match a particular pixel color exactly.-                          -- However, in many cases two colors may differ by a small amount.-                          -- The fuzz member of image defines how much tolerance is acceptable-                          -- to consider two colors as the same. For example, set fuzz to 10 and-                          -- the color red at intensities of 100 and 102 respectively are now-                          -- interpreted as the same color for the purposes of the floodfill.-  -> Bool                 -- paint any pixel that does not match the target color.-  -> m ()-transparentPaintImage w p alfa fuzz invert = withException_ w $ F.magickTransparentPaintImage w p alfa fuzz (toMBool invert)---- | newImage adds a blank image canvas of the specified size and background color to the wand.-newImage :: (MonadResource m)-  => PMagickWand-  -> Int               -- ^ width-  -> Int               -- ^ height-  -> PPixelWand        -- ^ background color-  -> m ()-newImage p width height b = withException_ p $! F.magickNewImage p (fromIntegral width) (fromIntegral height) b---- |  drawImage renders the drawing wand on the current image.-drawImage :: (MonadResource m) => PMagickWand -> PDrawingWand -> m ()-drawImage p d = withException_ p $ F.magickDrawImage p d--borderImage :: (MonadResource m) => PMagickWand -> PPixelWand -> Int -> Int -> m ()-borderImage w bordercolor height width = withException_ w $ F.magickBorderImage w bordercolor (fromIntegral width) (fromIntegral height)--shaveImage :: (MonadResource m) => PMagickWand -> Int -> Int -> m ()-shaveImage w columns rows = withException_ w $ F.magickShaveImage w (fromIntegral columns) (fromIntegral rows)--setImageAlphaChannel :: (MonadResource m) => PMagickWand -> AlphaChannelType -> m ()-setImageAlphaChannel w alpha_type = withException_ w $ F.magickSetImageAlphaChannel w alpha_type--flipImage :: (MonadResource m) => Ptr MagickWand -> m ()-flipImage w = withException_ w $ F.magickFlipImage w--flopImage :: (MonadResource m) => Ptr MagickWand -> m ()-flopImage w = withException_ w $ F.magickFlopImage w--addImage :: (MonadResource m) => PMagickWand -> PMagickWand -> m ()-addImage w w' = withException_ w $ F.magickAddImage w w'---- | MagickAppendImages() append the images in a wand from the current image onwards,--- creating a new wand with the single image result. This is affected by the gravity--- and background settings of the first image.--- Typically you would call either MagickResetIterator() or MagickSetFirstImage() before--- calling this function to ensure that all the images in the wand's image list will be appended together.-appendImages :: (MonadResource m)-             => PMagickWand-             -> Bool            -- ^ By default, images are stacked left-to-right. Set stack to MagickTrue to stack them top-to-bottom.-             -> m (ReleaseKey, PMagickWand)-appendImages w b = allocate (F.magickAppendImages w (toMBool b)) (void . F.destroyMagickWand)---- |  MagickAddNoiseImage() adds random noise to the image.----addNoiseImage :: (MonadResource m)-              => PMagickWand-              -> NoiseType -- ^ The type of noise: Uniform, Gaussian, Multiplicative, Impulse, Laplacian, or Poisson.-              -> m ()-addNoiseImage w n = withException_ w $ F.magickAddNoiseImage w n---- | writeImage() writes an image to the specified filename. If the filename--- parameter is Nothing, the image is written to the filename set by MagickReadImage--- or MagickSetImageFilename().-writeImage :: (MonadResource m)-           => PMagickWand-           -> Maybe (FilePath)-           -> m ()-writeImage w Nothing   = withException_ w $ F.magickWriteImage w nullPtr-writeImage w (Just fn) = withException_ w $ useAsCString (_toBS $ encode fn) (\f -> F.magickWriteImage w f)--writeImages :: (MonadResource m) => Ptr MagickWand -> FilePath -> Bool -> m ()-writeImages w fn b = withException_ w $ useAsCString (_toBS $ encode fn) (\f -> F.magickWriteImages w f (toMBool b))---- | MagickBlurImage() blurs an image. We convolve the image with a gaussian--- operator of the given radius and standard deviation (sigma). For reasonable--- results, the radius should be larger than sigma. Use a radius of 0 and--- BlurImage() selects a suitable radius for you.------ The format of the MagickBlurImage method is:-blurImage :: (MonadResource m) => PMagickWand -> Double -> Double -> m ()-blurImage w r s = withException_ w $ F.magickBlurImage w (realToFrac r) (realToFrac s)--blurImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Double -> Double -> m ()-blurImageChannel w c r s = withException_ w $ F.magickBlurImageChannel w c (realToFrac r) (realToFrac s)---- | MagickNormalizeImage() enhances the contrast of a color image by adjusting---   the pixels color to span the entire range of colors available------   You can also reduce the influence of a particular channel with a gamma---   value of 0.-normalizeImage :: (MonadResource m) => PMagickWand -> m ()-normalizeImage w = withException_ w $ F.magickNormalizeImage w--normalizeImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> m ()-normalizeImageChannel w c = withException_ w $ F.magickNormalizeImageChannel w c---- | Simulates an image shadow.-shadowImage :: (MonadResource m)-  => PMagickWand  -- ^ the magick wand-  -> Double       -- ^ percentage transparency-  -> Double       -- ^ the standard deviation of the Gaussian, in pixels-  -> Int          -- ^ the shadow x-offset-  -> Int          -- ^ the shadow y-offset-  -> m ()-shadowImage w opacity sigma x y = withException_ w $ F.magickShadowImage w (realToFrac opacity) (realToFrac sigma)-                                                                         (fromIntegral x) (fromIntegral y)---- | sets the image virtual pixel method.---   the image virtual pixel method : UndefinedVirtualPixelMethod, ConstantVirtualPixelMethod,---   EdgeVirtualPixelMethod, MirrorVirtualPixelMethod, or TileVirtualPixelMethod.-setVirtualPixelMethod :: (MonadResource m) => PMagickWand -> VirtualPixelMethod -> m VirtualPixelMethod-setVirtualPixelMethod = (liftIO .). F.magickSetVirtualPixelMethod---- | Remove edges that are the background color from the image.-trimImage :: (MonadResource m) => PMagickWand -> Double -> m ()-trimImage w fuzz = withException_ w $ F.magickTrimImage w (realToFrac fuzz)---- | Resets the Wand page canvas and position.-resetImagePage :: (MonadResource m) => PMagickWand -> Maybe Text -> m ()-resetImagePage w Nothing = withException_ w $ F.magickResetImagePage w nullPtr-resetImagePage w (Just page) = withException_ w $ useAsCString (encodeUtf8 page) (F.magickResetImagePage w)---- | Resets the Wand page canvas and position.-distortImage :: (MonadResource m)-  => PMagickWand-  -> DistortImageMethod -- ^ the method of image distortion-  -> [Double]           -- ^ the arguments for this distortion method-  -> Bool               -- ^ attempt to resize destination to fit distorted source-  -> m ()-distortImage w method args bestfit = withException_ w $! withArrayLen (map realToFrac args) distort-  where-    distort len arr = F.magickDistortImage w method (fromIntegral len) arr (toMBool bestfit)---- | Sshines a distant light on an image to create--- a three-dimensional effect. You control the positioning of the light--- with azimuth and elevation; azimuth is measured in degrees off the x axis--- and elevation is measured in pixels above the Z axis.-shadeImage :: (MonadResource m)-  => PMagickWand-  -> Bool   -- ^ a value other than zero shades the intensity of each pixel-  -> Double -- ^ azimuth of the light source direction-  -> Double -- ^ evelation of the light source direction-  -> m ()-shadeImage w gray azimuth elevation = withException_ w $ F.magickShadeImage w (toMBool gray)-                                                                            (realToFrac azimuth) (realToFrac elevation)---- | Resets the Wand page canvas and position.-colorizeImage :: (MonadResource m) => PMagickWand -> PPixelWand -> PPixelWand -> m ()-colorizeImage w colorize opacity = withException_ w $! F.magickColorizeImage w colorize opacity---- | Evaluate expression for each pixel in the image.-fxImage :: (MonadResource m) => PMagickWand -> Text -> m (ReleaseKey, Ptr MagickWand)-fxImage w expr = wandResource (useAsCString (encodeUtf8 expr) (F.magickFxImage w))---- | Evaluate expression for each pixel in the image.-fxImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Text -> m (ReleaseKey, Ptr MagickWand)-fxImageChannel w channel expr = wandResource (useAsCString (encodeUtf8 expr) (F.magickFxImageChannel w channel))---- | Adjusts the contrast of an image with a  non-linear sigmoidal contrast algorithm.--- Increase the contrast of the image using a sigmoidal transfer function without--- saturating highlights or shadows. Contrast indicates how much to increase the contrast--- (0 is none; 3 is typical; 20 is pushing it); mid-point indicates where midtones fall--- in the resultant image (0 is white; 50 is middle-gray; 100 is black). Set sharpen to `True`--- to increase the image contrast otherwise the contrast is reduced.-sigmoidalContrastImage :: (MonadResource m) => PMagickWand -> Bool -> Double -> Double -> m ()-sigmoidalContrastImage w sharpen alpha beta =-  withException_ w $! F.magickSigmoidalContrastImage w (toMBool sharpen) (realToFrac alpha) (realToFrac beta)---- see `sigmoidalContrastImage`-sigmoidalContrastImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Bool -> Double -> Double -> m ()-sigmoidalContrastImageChannel w channel sharpen alpha beta =-  withException_ w $! F.magickSigmoidalContrastImageChannel w channel (toMBool sharpen) (realToFrac alpha) (realToFrac beta)---- | Applies an arithmetic, relational, or logical expression to an image.--- Use these operators to lighten or darken an image, to increase or decrease--- contrast in an image, or to produce the "negative" of an image.-evaluateImage :: (MonadResource m)-  => PMagickWand-  -> MagickEvaluateOperator -- ^ a channel operator-  -> CDouble                -- ^ value-  -> m ()-evaluateImage w op value = withException_ w $! F.magickEvaluateImage w op value---- | see `evaluateImage`-evaluateImages :: (MonadResource m)-  => PMagickWand-  -> MagickEvaluateOperator -- ^ a channel operator-  -> m ()-evaluateImages w op = withException_ w $! F.magickEvaluateImages w op---- | see `evaluateImage`-evaluateImageChannel :: (MonadResource m)-  => PMagickWand-  -> ChannelType            -- ^ the channel(s)-  -> MagickEvaluateOperator -- ^ a channel operator-  -> CDouble                -- ^ value-  -> m ()-evaluateImageChannel w channel op value = withException_ w $! F.magickEvaluateImageChannel w channel op value---- | Offsets an image as defined by x and y.-rollImage :: (MonadResource m) => PMagickWand -> Double -> Double -> m ()-rollImage w x y = withException_ w $! F.magickRollImage w (realToFrac x) (realToFrac y)---- | Annotates an image with text.-annotateImage :: (MonadResource m)-  => PMagickWand-  -> PDrawingWand -- ^ the draw wand-  -> Double       -- ^ x ordinate to left of text-  -> Double       -- ^ y ordinate to text baseline-  -> Double       -- ^ rotate text relative to this angle-  -> Text         -- ^ text to draw-  -> m ()-annotateImage w dw x y angle text =-  withException_ w $! useAsCString (encodeUtf8 text)-                                   (F.magickAnnotateImage w dw (realToFrac x) (realToFrac y) (realToFrac angle))---- | Composes all the image layers from the current given image onward to--- produce a single image of the merged layers. The inital canvas's size--- depends on the given ImageLayerMethod, and is initialized using the first--- images background color. The images are then compositied onto that image--- in sequence using the given composition that has been assigned to each--- individual image.-mergeImageLayers :: (MonadResource m) => PMagickWand -> ImageLayerMethod -> m (ReleaseKey, PMagickWand)-mergeImageLayers w method = wandResource (F.magickMergeImageLayers w method)---- | MagickOptimizeImageLayers() compares each image the GIF disposed--- forms of the previous image in the sequence. From this it attempts--- to select the smallest cropped image to replace each frame, while--- preserving the results of the animation.-optimizeImageLayers :: (MonadResource m) => PMagickWand-  -> m (ReleaseKey, PMagickWand)-optimizeImageLayers = wandResource . F.magickOptimizeImageLayers---- | OptimizeImageTransparency() takes a frame optimized GIF animation, and--- | compares the overlayed pixels against the disposal image resulting from all--- | the previous frames in the animation. Any pixel that does not change the--- | disposal image (and thus does not effect the outcome of an overlay) is made--- | transparent.--- |--- | WARNING: This modifies the current images directly, rather than generate--- | a new image sequence.-optimizeImageTransparency :: (MonadResource m) => PMagickWand-  -> m ()-optimizeImageTransparency w = withException_ w $! F.magickOptimizeImageTransparency w---- | Applies a color vector to each pixel in the image. The length of the--- vector is 0 for black and white and at its maximum for the midtones.--- The vector weighting function is f(x)=(1-(4.0*((x-0.5)*(x-0.5)))).------ The format of the MagickTintImage method is:-tintImage :: (MonadResource m) => PMagickWand-          -> PPixelWand    -- ^ tint pixel-          -> PPixelWand    -- ^ opacity pixel-          -> m ()-tintImage w t o = withException_ w $ F.magickTintImage w t o----- |  MagickGaussianBlurImage() blurs an image. We convolve the image with a Gaussian operator--- of the given radius and standard deviation (sigma). For reasonable results, the radius should--- be larger than sigma. Use a radius of 0 and MagickGaussianBlurImage() selects a suitable radius for you.-gaussianBlurImage :: (MonadResource m) => PMagickWand-                  -> Double-                  -> Double-                  -> m ()-gaussianBlurImage w r s = withException_ w $ F.magickGaussianBlurImage w (realToFrac r) (realToFrac s)--gaussianBlurImageChannel :: (MonadResource m) => PMagickWand-                  -> ChannelType-                  -> Double-                  -> Double-                  -> m ()-gaussianBlurImageChannel w c r s = withException_ w $ F.magickGaussianBlurImageChannel w c (realToFrac r) (realToFrac s)--setImageMatte :: (MonadResource m) => PMagickWand-              -> Bool-              -> m ()-setImageMatte w b = withException_ w $ F.magickSetImageMatte w (toMBool b)---- | Extracts a region of the image.-cropImage :: (MonadResource m) => PMagickWand-  -> Int         -- ^ the region width-  -> Int         -- ^ the region height-  -> Int         -- ^ the region x-offset-  -> Int         -- ^ the region y-offset-  -> m ()-cropImage w width height x y = withException_ w $ F.magickCropImage w (fromIntegral width) (fromIntegral height)-                                                                      (fromIntegral x) (fromIntegral y)---- | Slides one edge of an image along the X or Y axis, creating--- a parallelogram. An X direction shear slides an edge along--- the X axis, while a Y direction shear slides an edge along--- the Y axis. The amount of the shear is controlled by a shear--- angle. For X direction shears, x_shear is measured relative--- to the Y axis, and similarly, for Y direction shears y_shear is--- measured relative to the X axis. Empty triangles left over from--- shearing the image are filled with the background color.-shearImage :: (MonadResource m) => PMagickWand-  -> PPixelWand -- ^ the background pixel wand-  -> Double     -- ^ the number of degrees to shear the image-  -> Double     -- ^ the number of degrees to shear the image-  -> m ()-shearImage w pw x_shear y_shear =-  withException_ w $ F.magickShearImage w pw (realToFrac x_shear) (realToFrac y_shear)---- | Scales the size of an image to the given dimensions.-scaleImage :: (MonadResource m) => PMagickWand-  -> Int        -- ^ the number of degrees to shear the image-  -> Int        -- ^ the number of degrees to shear the image-  -> m ()-scaleImage w columns rows =-  withException_ w $ F.magickScaleImage w (fromIntegral columns) (fromIntegral rows)----- | MagickSparseColorImage(), given a set of coordinates, interpolates the--- colors found at those coordinates, across the whole image, using various methods.------ The format of the MagickSparseColorImage method is:---   ArcSparseColorion will always ignore source image offset, and always 'bestfit'--- the destination image with the top left corner offset relative to the polar mapping center.------ Bilinear has no simple inverse mapping so will not allow 'bestfit' style of image sparseion.------ Affine, Perspective, and Bilinear, will do least squares fitting of the distrotion when more--- than the minimum number of control point pairs are provided.------ Perspective, and Bilinear, will fall back to a Affine sparseion when less than 4 control--- point pairs are provided. While Affine sparseions will let you use any number of control--- point pairs, that is Zero pairs is a No-Op (viewport only) distrotion, one pair is a--- translation and two pairs of control points will do a scale-rotate-translate, without any--- shearing.-sparseColorImage :: (MonadResource m) => PMagickWand-                 -> ChannelType-                 -> SparseColorMethod-                 -> Vector Double-                 -> m()-sparseColorImage w c m v =-  withException_ w $ V.unsafeWith v $ \v' -> F.magickSparseColorImage w c m (fromIntegral $ V.length v) v'---- | MagickFunctionImage() applys an arithmetic, relational, or logical expression to an image.--- Use these operators to lighten or darken an image, to increase or decrease contrast in an--- image, or to produce the "negative" of an image.-functionImage :: (MonadResource m) => PMagickWand -> MagickFunction -> Vector Double -> m ()-functionImage w f v =-  withException_ w $ V.unsafeWith v $ \v' -> F.magickFunctionImage w f (fromIntegral $ V.length v) v'--functionImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> MagickFunction -> Vector Double -> m ()-functionImageChannel w c f v =-  withException_ w $ V.unsafeWith v $ \v' -> F.magickFunctionImageChannel w c f (fromIntegral $ V.length v) v'----- | MagickCoalesceImages() composites a set of images while respecting any page offsets and disposal methods. GIF, MIFF, and MNG animation sequences typically start with an image background and each subsequent image varies in size and offset. MagickCoalesceImages() returns a new sequence where each image in the sequence is the same size as the first and composited with the next image in the sequence.-coalesceImages :: (MonadResource m) => PMagickWand-  -> m (ReleaseKey, PMagickWand)-coalesceImages = wandResource . F.magickCoalesceImages---- | returns the number of images associated with a magick wand.-getNumberImages :: (MonadResource m) => PMagickWand -> m Int-getNumberImages w = liftIO $ fromIntegral <$> F.magickGetNumberImages w---- | Gets the image at the current image index.-getImage :: (MonadResource m) => PMagickWand -> m (ReleaseKey, PMagickWand)-getImage = wandResource . F.magickGetImage---- | Compares each image with the next in a sequence and returns--- the maximum bounding region of any pixel differences it discovers.-compareImageLayers :: (MonadResource m) => PMagickWand -> ImageLayerMethod -> m (ReleaseKey, PMagickWand)-compareImageLayers = (wandResource .). F.magickCompareImageLayers---- | Gets the image scene-getImageScene :: (MonadResource m) => PMagickWand -> m Int-getImageScene w = liftIO $ fromIntegral <$> F.magickGetImageScene w---- | MagickRemoveImage() removes an image from the image list.-removeImage :: (MonadResource m) => PMagickWand -> m ()-removeImage w = withException_ w $ F.magickRemoveImage w---- | Replaces the last image returned by `setImageIndex` and--- iteration methods with the images from the specified wand.-setImage :: (MonadResource m) => PMagickWand -> PMagickWand -> m ()-setImage w sw = withException_ w $ F.magickSetImage w sw---- | Accepts pixel data. The pixel data can be in any `Pixels` format--- in the order specified by map.-importImagePixels :: (MonadResource m, Pixel a) => PMagickWand-                     -> Int      -- ^ x-                     -> Int      -- ^ y-                     -> Int      -- ^ columns-                     -> Int      -- ^ rows-                     -- TODO migrate to typesafe parameter-                     -> Text     -- ^ map-                     -> [a]      -- ^ imported pixels-                     -> m ()-importImagePixels w x y width height cmap pixels =-  withException_ w $ useAsCString (encodeUtf8 cmap) $ \cstr ->-    withPixels pixels $ (F.magickImportImagePixels w x' y' width' height' cstr stype) . castPtr-    where-      x' = fromIntegral x-      y' = fromIntegral y-      width' = fromIntegral width-      height' = fromIntegral height-      stype   = pixelStorageType pixels---- | Extracts pixel data from an image and returns it to you. The data is--- returned as `Pixels` in the order specified by cmap.-exportImagePixels :: (MonadResource m, Pixel a) => PMagickWand-                     -> Int     -- ^ x-                     -> Int     -- ^ y-                     -> Int     -- ^ columns-                     -> Int     -- ^ rows-                     -- TODO migrate to typesafe parameter-                     -> Text    -- ^ map-                     -> m [a]-exportImagePixels w x y width height cmap = liftIO $ useAsCString (encodeUtf8 cmap) $  \cstr ->-  exportArray arrLength (F.magickExportImagePixels w x' y' width' height' cstr) (undefined)-  where-    exportArray :: (Pixel a) => Int -> (StorageType -> Ptr () -> IO b) -> [a] -> IO [a]-    exportArray s f hack = allocaArray s (\q -> f storage (castPtr q) >> peekArray s q)-      where storage = pixelStorageType hack-    x' = fromIntegral x-    y' = fromIntegral y-    width' = fromIntegral width-    height' = fromIntegral height-    arrLength = width * height * (T.length cmap)---- | Rotates an image the specified number of degrees. Empty triangles left over--- from rotating the image are filled with the background color.-rotateImage :: (MonadResource m) => PMagickWand -> PPixelWand -> Double -> m ()-rotateImage w background degrees = withException_ w $ F.magickRotateImage w background (realToFrac degrees)---- | Gets the image depth.-getImageDepth :: (MonadResource m) => PMagickWand -> m Int-getImageDepth w = liftIO $ fromIntegral <$> F.magickGetImageDepth w---- | Sets the image depth.-setImageDepth :: (MonadResource m) => PMagickWand -> Int -> m ()-setImageDepth w depth = withException_ w $ F.magickSetImageDepth w (fromIntegral depth)---- | Sets the image compression.-setImageCompression:: (MonadResource m) => PMagickWand -> CompressionType -> m ()-setImageCompression w compressionType = withException_ w $ F.magickSetImageCompression w compressionType---- | Gets the image delay.-getImageDelay :: (MonadResource m) => PMagickWand -> m Int-getImageDelay w = liftIO $ fromIntegral <$> F.magickGetImageDelay w---- | Sets the image delay.-setImageDelay :: (MonadResource m) => PMagickWand -> Int -> m ()-setImageDelay w delay = withException_ w $ F.magickSetImageDelay w (fromIntegral delay)---- | MagickGetImageBlob() implements direct to memory image formats.--- It returns the image as a blob (a formatted "file" in memory) and--- its length, starting from the current position in the image sequence.--- Use 'setImageFormat' to set the format to write to the blob (GIF, JPEG, PNG, etc.).--- ImageMagick blob is automatically freed in this function, returned bytestring--- is on haskell heap.-getImageBlob :: (MonadResource m) => PMagickWand -> m ByteString-getImageBlob w = liftIO $ do-  F.magickResetIterator w-  cl <- alloca $ \x -> do-          c <- F.magickGetImageBlob w x-          x' <- fmap fromIntegral (peek x)-          return (c,x')-  out <- packCStringLen cl-  F.magickRelinquishMemory $ castPtr $ fst cl-  return out---- | MagickGetImageBlob() implements direct to memory image formats. It--- returns the image sequence as a blob and its length. The format of the image--- determines the format of the returned blob (GIF, JPEG, PNG, etc.). To--- return a different image format, use MagickSetImageFormat().------ Note, some image formats do not permit multiple images to the same image--- stream (e.g. JPEG). in this instance, just the first image of the--- sequence is returned as a blob.- Returns the image [sequence] as a blob and the total length-getImagesBlob :: (MonadResource m) => PMagickWand -> m ByteString-getImagesBlob w = liftIO $ do-  F.magickResetIterator w-  cl <- alloca $ \x -> do-          c <- F.magickGetImagesBlob w x-          x' <- fmap fromIntegral (peek x)-          return (c,x')-  out <- packCStringLen cl-  F.magickRelinquishMemory $ castPtr $ fst cl-  return out---- | Reads an image or image sequence. The images are inserted at--- the current image pointer position-readImage :: (MonadResource m) => Ptr MagickWand -> FilePath -> m ()-readImage w fn = withException_ w $ useAsCString (_toBS $ encode fn) (F.magickReadImage w)---- | Reads an image or image sequence from a blob-readImageBlob :: (MonadResource m) => PMagickWand -> ByteString -> m ()-readImageBlob w bs = withException_ w $ useAsCStringLen bs $-                     \(cstr, len) -> F.magickReadImageBlob w (castPtr cstr) (fromIntegral len)---- | Returns the format of a particular image in a sequence.-getImageFormat :: (MonadResource m) => PMagickWand -> m Text-getImageFormat w = liftIO $ do-                   cstr <- F.magickGetImageFormat w-                   -- TODO: check if we need to release string memory-                   decodeUtf8 <$> packCString cstr--setImageFormat :: (MonadResource m) => PMagickWand -> Text -> m ()-setImageFormat w format = withException_ w $ useAsCString (encodeUtf8 format) (F.magickSetImageFormat w)---- | Strips an image of all profiles and comments.-stripImage :: (MonadResource m) => PMagickWand -> m ()-stripImage w = withException_ w $ (F.magickStripImage w)---- | Generates an SHA-256 message digest for the image pixel stream-getImageSignature :: (MonadResource m) => PMagickWand -> m ByteString-getImageSignature w = liftIO $ F.magickGetImageSignature w >>= packCString---- | Returns `False` if the image alpha channel is not activated.--- That is, the image is RGB rather than RGBA or CMYK rather than CMYKA.-getImageAlphaChannel :: (MonadResource m) => PMagickWand -> m Bool-getImageAlphaChannel = fromMBool . F.magickGetImageAlphaChannel---- | Sets image Type-setImageType :: (MonadResource m) => PMagickWand -> ImageType -> m ()-setImageType w imageType = withException_ w $ F.magickSetImageType w imageType----- | Convert system specific filepath to bytestring-_toBS = -#if defined(CABAL_OS_WINDOWS) || defined(CABAL_OS_DARWIN)-    encodeUtf8-#else-    id-#endif
+ data/beach.jpg view

binary file changed (absent → 336995 bytes)

+ data/croptest.png view

binary file changed (absent → 2623 bytes)

+ data/google.ico view

binary file changed (absent → 1150 bytes)

+ data/marked.png view

binary file changed (absent → 807662 bytes)

+ data/mona-lisa.jpg view

binary file changed (absent → 63049 bytes)

+ data/newtons-cradle.gif view

binary file changed (absent → 309325 bytes)

+ data/resettest.png view

binary file changed (absent → 34386 bytes)

+ data/rotatetest.gif view

binary file changed (absent → 294 bytes)

+ data/sasha.jpg view

binary file changed (absent → 12665 bytes)

+ data/trimtest.png view

binary file changed (absent → 358657 bytes)

+ data/watermark.png view

binary file changed (absent → 8987 bytes)

examples/cyclops.hs view
@@ -7,15 +7,13 @@ 		-shave 1x1 cyclops_flood_3.png -} -import           Filesystem.Path.CurrentOS                 (decodeString) import           Graphics.ImageMagick.MagickWand-import           Graphics.ImageMagick.MagickWand.FFI.Types  main :: IO () main =   withMagickWandGenesis $ do     (_,w) <- magickWand-    readImage w (decodeString src)+    readImage w src      fc <- pixelWand     bc <- pixelWand@@ -28,7 +26,7 @@     channel <- parseChannelOption "rgba"     floodfillPaintImage w channel fc 20 bc 0 0 False     shaveImage w 1 1-    writeImages w (decodeString out) True+    writeImages w out True    where     src = "cyclops_sm.gif"
examples/gel.hs view
@@ -1,5 +1,7 @@+{-# LANGUAGE FlexibleContexts    #-} {-# LANGUAGE OverloadedStrings   #-} {-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE FlexibleContexts    #-} -- | Example taken from: http://members.shaw.ca/el.supremo/MagickWand/gel.htm -- "Gel" Effects example -- http://www.imagemagick.org/Usage/advanced/#gel_effects
examples/make_tile.hs view
@@ -1,4 +1,6 @@+{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE FlexibleContexts  #-} -- http://members.shaw.ca/el.supremo/MagickWand/make_tile.htm -- The program makes two tiles, one using the plasma: pseudo file and one using noise -- See: http://www.imagemagick.org/Usage/canvas/#plasma_seeded@@ -17,7 +19,7 @@  E.g. if the original image is "/", it creates the flop image "\" and then appends  them side by side to give "/\". Then it takes this image and flips it which produces  "\/" and then appends these one on top of the other to produce- +   /\   \/
examples/text_effects.hs view
@@ -14,10 +14,8 @@ import           Data.ByteString                       (ByteString) import           Data.Text                             (Text) import qualified Data.Text                             as T-import           Filesystem.Path.CurrentOS import           Graphics.ImageMagick.MagickCore.Types import           Graphics.ImageMagick.MagickWand-import           Prelude                               hiding (FilePath)  -- see http://www.imagemagick.org/Usage/#font about using fonts with IM font :: ByteString@@ -88,7 +86,7 @@ setTilePattern :: (MonadResource m) => PDrawingWand -> Text -> FilePath -> m () setTilePattern dw patternName patternFile = do   (_,w) <- magickWand-  readImage w patternFile+  readImage w (T.pack patternFile)   -- Read the tile's width and height   width <- getImageWidth w   height <- getImageHeight w@@ -296,7 +294,7 @@   -- and write it   writeImage w (Just "text_shepards.png") -runEffect :: (MonadIO m, MonadUnsafeIO m, MonadThrow m, MonadBaseControl IO m) =>+runEffect :: (MonadIO m, MonadThrow m, MonadBaseControl IO m) =>              (PMagickWand -> PDrawingWand -> PPixelWand -> ResourceT m ()) -> m () runEffect e = localGenesis $ do   (_,w) <- magickWand
examples/wandtest.hs view
@@ -2,17 +2,13 @@ import           Control.Monad                             (forM_, when) import           Control.Monad.IO.Class                    (liftIO) import           Control.Monad.Trans.Resource              (release)-import           Data.Int import qualified Data.Text                                 as T import           Data.Vector.Storable                      (Vector, (!)) import qualified Data.Vector.Storable                      as V import           Data.Word import           Graphics.ImageMagick.MagickWand-import           Graphics.ImageMagick.MagickWand.FFI.Types import           System.Exit import           Text.Printf                               (printf)--throwAPIException w = undefined  exitWithMessage msg = liftIO $ do   putStrLn msg
imagemagick.cabal view
@@ -1,5 +1,5 @@ Name:                imagemagick-Version:             0.0.3.7+Version:             0.0.4 Synopsis:            bindings to imagemagick library License:             OtherLicense License-file:        LICENSE@@ -11,12 +11,17 @@ Cabal-version:       >=1.8 Description:         Basic image magick bindings. +extra-source-files:  data/*.jpg+                     data/*.png+                     data/*.gif+                     data/*.ico+ Flag buildExamples   description:       Build examples   default:           False - Library+  hs-source-dirs:    src   Exposed-modules:      Graphics.ImageMagick.MagickCore                       , Graphics.ImageMagick.MagickCore.FFI.Gem                       , Graphics.ImageMagick.MagickCore.FFI.Log@@ -72,10 +77,10 @@   build-depends:       base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && < 0.5-                      , vector >= 0.9 && < 0.11.1+                      , vector >= 0.9 && < 0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , MonadCatchIO-transformers == 0.3.*   extensions:         EmptyDataDecls   Ghc-options:        -Wall@@ -92,10 +97,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && < 0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -111,10 +116,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && < 0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && < 1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -130,10 +135,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && < 0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -150,10 +155,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -169,10 +174,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -187,10 +192,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && < 0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && < 1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -207,10 +212,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && < 0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -226,10 +231,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && < 1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -244,10 +249,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -263,10 +268,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -282,10 +287,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , lifted-base >= 0.1 && <0.3                       , imagemagick   Else@@ -301,10 +306,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -320,10 +325,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -339,10 +344,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -358,10 +363,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -377,10 +382,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -397,10 +402,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -416,10 +421,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -435,10 +440,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -454,10 +459,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -473,10 +478,10 @@     build-depends:      base >= 4.0 && <5.0                       , resourcet >= 0.3 && <1.2                       , transformers >= 0.3 && <0.5-                      , vector >= 0.9 && <0.11+                      , vector >= 0.9 && <0.12                       , bytestring >= 0.9 && <0.11                       , text >= 0.11 && <1.3-                      , system-filepath == 0.4.*+                      , filepath >= 1.0                       , imagemagick   Else     Buildable:        False@@ -493,16 +498,14 @@                      , directory                      , resourcet >= 0.3 && <1.2                      , transformers >= 0.3 && <0.5-                     , vector >= 0.9 && <0.11+                     , vector >= 0.9 && <0.12                      , bytestring >= 0.9 && <0.11                      , text >= 0.11 && <1.3-                     , system-filepath == 0.4.*+                     , filepath >= 1.0                      , imagemagick                      , QuickCheck >= 2-                     , HUnit-                     , test-framework-                     , test-framework-hunit-                     , test-framework-quickcheck2+                     , tasty+                     , tasty-hunit   Ghc-options:       -Wall   extensions:        EmptyDataDecls   pkgconfig-depends: ImageMagick, MagickWand
+ src/Graphics/ImageMagick/MagickCore.hs view
@@ -0,0 +1,13 @@+module Graphics.ImageMagick.MagickCore+       ( module Graphics.ImageMagick.MagickCore.Exception+       , module Graphics.ImageMagick.MagickCore.Gem+       , module Graphics.ImageMagick.MagickCore.Mime+       , module Graphics.ImageMagick.MagickCore.Option+       , module Graphics.ImageMagick.MagickCore.Types+       ) where++import           Graphics.ImageMagick.MagickCore.Exception+import           Graphics.ImageMagick.MagickCore.Gem+import           Graphics.ImageMagick.MagickCore.Mime+import           Graphics.ImageMagick.MagickCore.Option+import           Graphics.ImageMagick.MagickCore.Types
+ src/Graphics/ImageMagick/MagickCore/Exception.hs view
@@ -0,0 +1,28 @@+{-# LANGUAGE DeriveDataTypeable #-}+module Graphics.ImageMagick.MagickCore.Exception+  ( MagickWandException(..)+  -- * support for ImageMagick Exceptions+  , ExceptionCarrier(..)+  , ExceptionSeverity+  , ExceptionType+  ) where++import           Control.Exception.Base+import           Data.Typeable+import           Graphics.ImageMagick.MagickCore.Types++data MagickWandException = MagickWandException ExceptionSeverity ExceptionType String+  deriving (Typeable)+++instance Show (MagickWandException) where+  show (MagickWandException _ x s) = concat [show x, ": ", s]++instance Exception MagickWandException++-- * Exception Carrier can be different objects+-- that are used in functions++class ExceptionCarrier a where+  getException :: a -> IO MagickWandException+
+ src/Graphics/ImageMagick/MagickCore/FFI/Gem.hsc view
@@ -0,0 +1,24 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.FFI.Gem+    where++import           Foreign+import           Foreign.C.Types+import           Graphics.ImageMagick.MagickCore.Types.FFI.Types+#include <magick/MagickCore.h>++foreign import ccall "ConvertHSBToRGB" convertHSBToRGB+  :: CDouble -> CDouble -> CDouble -> Ptr Quantum -> Ptr Quantum -> Ptr Quantum -> IO ()+foreign import ccall "ConvertHSLToRGB" convertHSLToRGB+  :: CDouble -> CDouble -> CDouble -> Ptr Quantum -> Ptr Quantum -> Ptr Quantum -> IO ()+foreign import ccall "ConvertHWBToRGB" convertHWBToRGB+  :: CDouble -> CDouble -> CDouble -> Ptr Quantum -> Ptr Quantum -> Ptr Quantum -> IO ()+foreign import ccall "ConvertRGBToHSB" convertRGBToHSB+  :: Quantum -> Quantum -> Quantum -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()+foreign import ccall "ConvertRGBToHSL" convertRGBToHSL+  :: Quantum -> Quantum -> Quantum -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()+foreign import ccall "ConvertRGBToHWB" convertRGBToHWB+  :: Quantum -> Quantum -> Quantum -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()+
+ src/Graphics/ImageMagick/MagickCore/FFI/Log.hsc view
@@ -0,0 +1,17 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.FFI.Log+    where++import           Foreign.C.String+import           Foreign.C.Types+import           Graphics.ImageMagick.MagickCore.Types.FFI.Log+#include <magick/MagickCore.h>+++-- | SetLogEventMask() accepts a list that determines which events to log.  All+-- other events are ignored.  By default, no debug is enabled.  This method+-- returns the previous log event mask.+foreign import ccall "SetLogEventMask" setLogEventMask+  :: CString -> IO LogEventType
+ src/Graphics/ImageMagick/MagickCore/FFI/Mime.hsc view
@@ -0,0 +1,16 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.FFI.Mime+    where++import           Foreign.C.String+#include <magick/MagickCore.h>+++-- | MagickToMime() returns the officially registered (or de facto) MIME+-- media-type corresponding to a magick string.  If there is no registered+-- media-type, then the string "image/x-magick" (all lower case) is returned.+-- The returned string must be deallocated by the user.+foreign import ccall "MagickToMime" magickToMime+  :: CString -> IO CString
+ src/Graphics/ImageMagick/MagickCore/FFI/Option.hsc view
@@ -0,0 +1,18 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.FFI.Option+  where++import           Foreign.C.String+import           Foreign.C.Types++import           Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType++#include <magick/MagickCore.h>++-- | ParseChannelOption() parses channel type string representation++foreign import ccall "ParseChannelOption" parseChannelOption+  :: CString -> IO ChannelType+
+ src/Graphics/ImageMagick/MagickCore/FFI/Quantize.hsc view
@@ -0,0 +1,14 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.FFI.Quantize+    where++#include <magick/MagickCore.h>++import Foreign+import Graphics.ImageMagick.MagickCore.Types.FFI.Quantize++foreign import ccall unsafe "GetQuantizeInfo"+  c_getQuantizeInfo :: Ptr QuantizeInfo -> IO ()+
+ src/Graphics/ImageMagick/MagickCore/Gem.hs view
@@ -0,0 +1,51 @@+module Graphics.ImageMagick.MagickCore.Gem+  ( convertHSBToRGB+  , convertHSLToRGB+  , convertHWBToRGB+  , convertRGBToHSB+  , convertRGBToHSL+  , convertRGBToHWB+  ) where++import Foreign.Ptr              (Ptr)+import Foreign.Storable         (Storable, peek)+import Foreign.Marshal.Alloc    (alloca)+import Control.Monad.IO.Class+import Control.Monad.Trans.Resource+import Graphics.ImageMagick.MagickCore.Types+import qualified Graphics.ImageMagick.MagickCore.FFI.Gem as F+++with3 :: (Storable a, Storable b, Storable c) =>+         (Ptr a -> Ptr b -> Ptr c -> IO ())+       -> IO (a, b, c)+with3 f = alloca (\x -> alloca (\y -> alloca (\z -> do +              f x y z +              x' <- peek x+              y' <- peek y+              z' <- peek z+              return (x',y',z')+              )))++map3 :: (a -> b) -> (a, a, a) -> (b, b, b)+map3 f (a,b,c) = (f a, f b, f c)+++convertHSBToRGB :: MonadResource m => Double -> Double -> Double -> m (Quantum, Quantum, Quantum)+convertHSBToRGB d1 d2 d3 = liftIO $ with3 (F.convertHSBToRGB (realToFrac d1) (realToFrac d2) (realToFrac d3))++convertHSLToRGB :: MonadResource m => Double -> Double -> Double -> m (Quantum, Quantum, Quantum)+convertHSLToRGB d1 d2 d3 = liftIO $ with3 (F.convertHSLToRGB (realToFrac d1) (realToFrac d2) (realToFrac d3))++convertHWBToRGB :: MonadResource m => Double -> Double -> Double -> m (Quantum, Quantum, Quantum)+convertHWBToRGB d1 d2 d3 = liftIO $ with3 (F.convertHWBToRGB (realToFrac d1) (realToFrac d2) (realToFrac d3))++convertRGBToHSB :: MonadResource m => Quantum -> Quantum -> Quantum -> m (Double, Double, Double)+convertRGBToHSB q1 q2 q3 = (liftIO $ with3 (F.convertRGBToHSB q1 q2 q3)) >>= return . (map3 realToFrac)++convertRGBToHSL :: MonadResource m => Quantum -> Quantum -> Quantum -> m (Double, Double, Double)+convertRGBToHSL q1 q2 q3 = liftIO $ with3 (F.convertRGBToHSL q1 q2 q3) >>= return . (map3 realToFrac)++convertRGBToHWB :: MonadResource m => Quantum -> Quantum -> Quantum -> m (Double, Double, Double)+convertRGBToHWB q1 q2 q3 = liftIO $ with3 (F.convertRGBToHSB q1 q2 q3) >>= return . (map3 realToFrac)+
+ src/Graphics/ImageMagick/MagickCore/Mime.hs view
@@ -0,0 +1,23 @@+module Graphics.ImageMagick.MagickCore.Mime+  ( toMime+  ) where++import           Control.Applicative+import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Data.ByteString                          (packCString,+                                                           useAsCString)+import           Data.Text                                (Text)+import           Data.Text.Encoding                       (decodeUtf8,+                                                           encodeUtf8)+import           Foreign+++import qualified Graphics.ImageMagick.MagickCore.FFI.Mime as F++toMime :: (MonadResource m) => Text -> m Text+toMime format = liftIO $ do+  cstr <- useAsCString (encodeUtf8 format) F.magickToMime+  mime <- decodeUtf8 <$> packCString cstr+  free cstr+  return mime
+ src/Graphics/ImageMagick/MagickCore/Option.hs view
@@ -0,0 +1,14 @@+module Graphics.ImageMagick.MagickCore.Option+       ( parseChannelOption+       ) where++import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Data.ByteString                            (ByteString, useAsCString)++import qualified Graphics.ImageMagick.MagickCore.FFI.Option as F+import           Graphics.ImageMagick.MagickCore.Types+++parseChannelOption :: (MonadResource m) => ByteString -> m ChannelType+parseChannelOption s = liftIO $ useAsCString s F.parseChannelOption
+ src/Graphics/ImageMagick/MagickCore/Quantize.hs view
@@ -0,0 +1,15 @@+module Graphics.ImageMagick.MagickCore.Quantize where++import           Control.Monad.Trans.Resource+import           Control.Monad.IO.Class++import           Foreign++import qualified Graphics.ImageMagick.MagickCore.FFI.Quantize as F+import           Graphics.ImageMagick.MagickCore.Types.FFI.Quantize (QuantizeInfo)++getQuantizeInfo :: (MonadResource m) => m QuantizeInfo+getQuantizeInfo = liftIO $+  alloca $ \qiPtr -> do+    () <- F.c_getQuantizeInfo qiPtr+    peek qiPtr
+ src/Graphics/ImageMagick/MagickCore/Types.hs view
@@ -0,0 +1,48 @@+module Graphics.ImageMagick.MagickCore.Types+  ( module Graphics.ImageMagick.MagickCore.Types.FFI.AlphaChannelType+  , module Graphics.ImageMagick.MagickCore.Types.FFI.CacheView+  , module Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType+  , module Graphics.ImageMagick.MagickCore.Types.FFI.ColorspaceType+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Composite+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Compress+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Constitute+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Distort+  , module Graphics.ImageMagick.MagickCore.Types.FFI.DitherMethod+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Exception+  , module Graphics.ImageMagick.MagickCore.Types.FFI.FilterTypes+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Fx+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Geometry+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Image+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Layer+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Log+  , module Graphics.ImageMagick.MagickCore.Types.FFI.MagickFunction+  , module Graphics.ImageMagick.MagickCore.Types.FFI.PaintMethod+  , module Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Statistic+  , module Graphics.ImageMagick.MagickCore.Types.FFI.Types+  , module Graphics.ImageMagick.MagickCore.Types.MBits+  ) where++import           Graphics.ImageMagick.MagickCore.Types.FFI.AlphaChannelType+import           Graphics.ImageMagick.MagickCore.Types.FFI.CacheView+import           Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType+import           Graphics.ImageMagick.MagickCore.Types.FFI.ColorspaceType+import           Graphics.ImageMagick.MagickCore.Types.FFI.Composite+import           Graphics.ImageMagick.MagickCore.Types.FFI.Compress+import           Graphics.ImageMagick.MagickCore.Types.FFI.Constitute+import           Graphics.ImageMagick.MagickCore.Types.FFI.Distort+import           Graphics.ImageMagick.MagickCore.Types.FFI.DitherMethod+import           Graphics.ImageMagick.MagickCore.Types.FFI.Exception+import           Graphics.ImageMagick.MagickCore.Types.FFI.FilterTypes+import           Graphics.ImageMagick.MagickCore.Types.FFI.Fx+import           Graphics.ImageMagick.MagickCore.Types.FFI.Geometry+import           Graphics.ImageMagick.MagickCore.Types.FFI.Image+import           Graphics.ImageMagick.MagickCore.Types.FFI.Layer+import           Graphics.ImageMagick.MagickCore.Types.FFI.Log+import           Graphics.ImageMagick.MagickCore.Types.FFI.MagickFunction+import           Graphics.ImageMagick.MagickCore.Types.FFI.PaintMethod+import           Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket+import           Graphics.ImageMagick.MagickCore.Types.FFI.Statistic+import           Graphics.ImageMagick.MagickCore.Types.FFI.Types+import           Graphics.ImageMagick.MagickCore.Types.MBits+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/AlphaChannelType.hsc view
@@ -0,0 +1,25 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.AlphaChannelType+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>+newtype AlphaChannelType = AlphaChannelType { unAlphaChannelType :: CInt }+  deriving (Eq, Show)++#{enum AlphaChannelType, AlphaChannelType+  , undefinedAlphaChannel = UndefinedAlphaChannel+  , activateAlphaChannel = ActivateAlphaChannel+  , backgroundAlphaChannel = BackgroundAlphaChannel+  , copyAlphaChannel = CopyAlphaChannel+  , deactivateAlphaChannel = DeactivateAlphaChannel+  , extractAlphaChannel = ExtractAlphaChannel+  , opaqueAlphaChannel = OpaqueAlphaChannel+  , resetAlphaChannel = ResetAlphaChannel  /* deprecated */+  , setAlphaChannel = SetAlphaChannel+  , shapeAlphaChannel = ShapeAlphaChannel+  , transparentAlphaChannel = TransparentAlphaChannel+  , lattenAlphaChannel = FlattenAlphaChannel+  , removeAlphaChannel = RemoveAlphaChannel+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/CacheView.hsc view
@@ -0,0 +1,32 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.CacheView+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype VirtualPixelMethod = VirtualPixelMethod { unVirtualPixelMethod :: CInt }+          deriving (Eq, Show)++#{enum VirtualPixelMethod, VirtualPixelMethod,+    undefinedVirtualPixelMethod = UndefinedVirtualPixelMethod,+    backgroundVirtualPixelMethod = BackgroundVirtualPixelMethod,+    constantVirtualPixelMethod = ConstantVirtualPixelMethod,+    ditherVirtualPixelMethod = DitherVirtualPixelMethod,+    edgeVirtualPixelMethod = EdgeVirtualPixelMethod,+    mirrorVirtualPixelMethod = MirrorVirtualPixelMethod,+    randomVirtualPixelMethod = RandomVirtualPixelMethod,+    tileVirtualPixelMethod = TileVirtualPixelMethod,+    transparentVirtualPixelMethod = TransparentVirtualPixelMethod,+    maskVirtualPixelMethod = MaskVirtualPixelMethod,+    blackVirtualPixelMethod = BlackVirtualPixelMethod,+    grayVirtualPixelMethod = GrayVirtualPixelMethod,+    whiteVirtualPixelMethod = WhiteVirtualPixelMethod,+    horizontalTileVirtualPixelMethod = HorizontalTileVirtualPixelMethod,+    verticalTileVirtualPixelMethod = VerticalTileVirtualPixelMethod,+    horizontalTileEdgeVirtualPixelMethod = HorizontalTileEdgeVirtualPixelMethod,+    verticalTileEdgeVirtualPixelMethod = VerticalTileEdgeVirtualPixelMethod,+    checkerTileVirtualPixelMethod = CheckerTileVirtualPixelMethod+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/ChannelType.hsc view
@@ -0,0 +1,33 @@+{-# LANGUAGE CPP, ForeignFunctionInterface, NoMonomorphismRestriction #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType+  where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype ChannelType = ChannelType { unChannelType :: CInt }+  deriving (Eq, Show)++#{enum ChannelType, ChannelType+ , undefinedCHannel =  UndefinedChannel+ , redChannel =  RedChannel+ , grayChannel = GrayChannel+ , cyanChannel = CyanChannel+ , greenChannel = GreenChannel+ , magentaChannel = MagentaChannel+ , blueChannel = BlueChannel+ , yellowChannel = YellowChannel+ , alphaChannel = AlphaChannel+ , opacityChannel = OpacityChannel+ , matteChannel = MatteChannel + , blackChannel = BlackChannel+ , indexChannel = IndexChannel+ , compositeChannels = CompositeChannels+ , allChannels = AllChannels+ , trueAlphaChannel = TrueAlphaChannel+ , rgbChannels = RGBChannels+ , grayChannels = GrayChannels+ , syncChannels = SyncChannels+ , defaultChannels = DefaultChannels+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/ColorspaceType.hsc view
@@ -0,0 +1,39 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.ColorspaceType+    where++import           Foreign.C.Types+import           Foreign.Storable+#include <magick/MagickCore.h>++newtype ColorspaceType = ColorspaceType { unColorspaceType :: CInt }+    deriving (Eq, Show, Storable)+++#{enum ColorspaceType, ColorspaceType,+  undefinedColorspace =  UndefinedColorspace,+  rgbColorspace =   RGBColorspace,+  grayColorspace =   GRAYColorspace,+  transparentColorspace =   TransparentColorspace,+  ohtaColorspace =   OHTAColorspace,+  labColorspace =   LabColorspace,+  xyzColorspace =   XYZColorspace,+  ycbCrColorspace =   YCbCrColorspace,+  yccColorspace =   YCCColorspace,+  yiqColorspace =   YIQColorspace,+  ypbprColorspace =   YPbPrColorspace,+  yuvColorspace =   YUVColorspace,+  cmykColorspace =   CMYKColorspace,+  srgbColorspace =   sRGBColorspace,+  hsbColorspace =   HSBColorspace,+  hslColorspace =   HSLColorspace,+  hwbColorspace =   HWBColorspace,+  rec601LumaColorspace =   Rec601LumaColorspace,+  rec601YCbCrColorspace =   Rec601YCbCrColorspace,+  rec709LumaColorspace =   Rec709LumaColorspace,+  rec709YCbCrColorspace =   Rec709YCbCrColorspace,+  logColorspace =   LogColorspace,+  cmyColorspace = CMYColorspace+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Composite.hsc view
@@ -0,0 +1,81 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.Composite+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype CompositeOperator = CompositeOperator { unCompositeOperator :: CInt }++#{enum CompositeOperator, CompositeOperator,+   undefinedCompositeOp =  UndefinedCompositeOp,+   noCompositeOp =  NoCompositeOp,+   modulusAddCompositeOp =  ModulusAddCompositeOp,+   atopCompositeOp =  AtopCompositeOp,+   blendCompositeOp =  BlendCompositeOp,+   bumpmapCompositeOp =  BumpmapCompositeOp,+   changeMaskCompositeOp =  ChangeMaskCompositeOp,+   clearCompositeOp =  ClearCompositeOp,+   colorBurnCompositeOp =  ColorBurnCompositeOp,+   colorDodgeCompositeOp =  ColorDodgeCompositeOp,+   colorizeCompositeOp =  ColorizeCompositeOp,+   copyBlackCompositeOp =  CopyBlackCompositeOp,+   copyBlueCompositeOp =  CopyBlueCompositeOp,+   copyCompositeOp =  CopyCompositeOp,+   copyCyanCompositeOp =  CopyCyanCompositeOp,+   copyGreenCompositeOp =  CopyGreenCompositeOp,+   copyMagentaCompositeOp =  CopyMagentaCompositeOp,+   copyOpacityCompositeOp =  CopyOpacityCompositeOp,+   copyRedCompositeOp =  CopyRedCompositeOp,+   copyYellowCompositeOp =  CopyYellowCompositeOp,+   darkenCompositeOp =  DarkenCompositeOp,+   dstAtopCompositeOp =  DstAtopCompositeOp,+   dstCompositeOp =  DstCompositeOp,+   dstInCompositeOp =  DstInCompositeOp,+   dstOutCompositeOp =  DstOutCompositeOp,+   dstOverCompositeOp =  DstOverCompositeOp,+   differenceCompositeOp =  DifferenceCompositeOp,+   displaceCompositeOp =  DisplaceCompositeOp,+   dissolveCompositeOp =  DissolveCompositeOp,+   exclusionCompositeOp =  ExclusionCompositeOp,+   hardLightCompositeOp =  HardLightCompositeOp,+   hueCompositeOp =  HueCompositeOp,+   inCompositeOp =  InCompositeOp,+   lightenCompositeOp =  LightenCompositeOp,+   linearLightCompositeOp =  LinearLightCompositeOp,+   luminizeCompositeOp =  LuminizeCompositeOp,+   minusDstCompositeOp =  MinusDstCompositeOp,+   modulateCompositeOp =  ModulateCompositeOp,+   multiplyCompositeOp =  MultiplyCompositeOp,+   outCompositeOp =  OutCompositeOp,+   overCompositeOp =  OverCompositeOp,+   overlayCompositeOp =  OverlayCompositeOp,+   plusCompositeOp =  PlusCompositeOp,+   replaceCompositeOp =  ReplaceCompositeOp,+   saturateCompositeOp =  SaturateCompositeOp,+   screenCompositeOp =  ScreenCompositeOp,+   softLightCompositeOp =  SoftLightCompositeOp,+   srcAtopCompositeOp =  SrcAtopCompositeOp,+   srcCompositeOp =  SrcCompositeOp,+   srcInCompositeOp =  SrcInCompositeOp,+   srcOutCompositeOp =  SrcOutCompositeOp,+   srcOverCompositeOp =  SrcOverCompositeOp,+   modulusSubtractCompositeOp =  ModulusSubtractCompositeOp,+   thresholdCompositeOp =  ThresholdCompositeOp,+   xorCompositeOp =  XorCompositeOp,+   divideDstCompositeOp =  DivideDstCompositeOp,+   distortCompositeOp =  DistortCompositeOp,+   blurCompositeOp =  BlurCompositeOp,+   pegtopLightCompositeOp =  PegtopLightCompositeOp,+   vividLightCompositeOp =  VividLightCompositeOp,+   pinLightCompositeOp =  PinLightCompositeOp,+   linearDodgeCompositeOp =  LinearDodgeCompositeOp,+   linearBurnCompositeOp =  LinearBurnCompositeOp,+   mathematicsCompositeOp =  MathematicsCompositeOp,+   divideSrcCompositeOp =  DivideSrcCompositeOp,+   minusSrcCompositeOp =  MinusSrcCompositeOp,+   darkenIntensityCompositeOp =  DarkenIntensityCompositeOp,+   lightenIntensityCompositeOp = LightenIntensityCompositeOp+} +
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Compress.hsc view
@@ -0,0 +1,36 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.Compress+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype CompressionType = CompressionType { unCompressionType :: CInt }+    deriving (Eq, Show)+++#{enum CompressionType, CompressionType+  , undefinedCompression = UndefinedCompression+  , noCompression = NoCompression+  , bzipCompression = BZipCompression+  , dxt1Compression = DXT1Compression+  , dxt3Compression = DXT3Compression+  , dxt5Compression = DXT5Compression+  , axCompression = FaxCompression+  , group4Compression = Group4Compression+  , jpegCompression = JPEGCompression+  , jpeg2000Compression = JPEG2000Compression      /* ISO/IEC std 15444-1 */+  , losslessJPEGCompression = LosslessJPEGCompression+  , lzwCompression = LZWCompression+  , rleCompression = RLECompression+  , zipCompression = ZipCompression+  , zipsCompression = ZipSCompression+  , pizCompression = PizCompression+  , pxr24Compression = Pxr24Compression+  , b44Compression = B44Compression+  , b44aCompression = B44ACompression+  , lzmaCompression = LZMACompression            /* Lempel-Ziv-Markov chain algorithm */+  , jbig1Compression = JBIG1Compression           /* ISO/IEC std 11544 / ITU-T rec T.82 */+  , jbig2Compression = JBIG2Compression            /* ISO/IEC std 14492 / ITU-T rec T.88 */+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Constitute.hsc view
@@ -0,0 +1,22 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Constitute+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype StorageType = StorageType { unStorageType :: CInt }+          deriving (Eq, Show)++#{enum StorageType, StorageType+  , undefinedPixel = UndefinedPixel+  , charPixel = CharPixel+  , doublePixel = DoublePixel+  , floatPixel = FloatPixel+  , integerPixel = IntegerPixel+  , longPixel = LongPixel+  , quantumPixel = QuantumPixel+  , shortPixel = ShortPixel+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Distort.hsc view
@@ -0,0 +1,46 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.Distort+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype DistortImageMethod = DistortImageMethod { unDistortImageMethod :: CInt }++#{enum DistortImageMethod, DistortImageMethod+  , undefinedDistortion = UndefinedDistortion+  , affineDistortion = AffineDistortion+  , affineProjectionDistortion = AffineProjectionDistortion+  , scaleRotateTranslateDistortion = ScaleRotateTranslateDistortion+  , perspectiveDistortion = PerspectiveDistortion+  , perspectiveProjectionDistortion = PerspectiveProjectionDistortion+  , bilinearForwardDistortion = BilinearForwardDistortion+  , bilinearReverseDistortion = BilinearReverseDistortion+  , polynomialDistortion = PolynomialDistortion+  , arcDistortion = ArcDistortion+  , polarDistortion = PolarDistortion+  , dePolarDistortion = DePolarDistortion+  , cylinder2PlaneDistortion = Cylinder2PlaneDistortion+  , plane2CylinderDistortion = Plane2CylinderDistortion+  , barrelDistortion = BarrelDistortion+  , barrelInverseDistortion = BarrelInverseDistortion+  , shepardsDistortion = ShepardsDistortion+  , resizeDistortion = ResizeDistortion+  , sentinelDistortion = SentinelDistortion+}++bilinearDistortion :: DistortImageMethod+bilinearDistortion = bilinearForwardDistortion++newtype SparseColorMethod = SparseColorMethod { unSparseColorMethod :: CInt }++#{enum SparseColorMethod, SparseColorMethod,+  undefinedColorInterpolate = UndefinedDistortion,+  barycentricColorInterpolate = AffineDistortion,+  bilinearColorInterpolate = BilinearReverseDistortion,+  polynomialColorInterpolate = PolynomialDistortion,+  shepardsColorInterpolate = ShepardsDistortion,+  voronoiColorInterpolate = SentinelDistortion,+  inverseColorInterpolate =InverseColorInterpolate+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/DitherMethod.hsc view
@@ -0,0 +1,20 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.DitherMethod+    where++import           Foreign.C.Types+import           Foreign.Storable+#include <magick/MagickCore.h>++newtype DitherMethod = DitherMethod { unDitherMethod :: CInt }+    deriving (Eq,Show,Storable)++#{enum DitherMethod, DitherMethod+  , undefinedDitherFilter      = UndefinedDitherMethod+  , noDitherMethod             = NoDitherMethod+  , riemersmaDitherMethod      = RiemersmaDitherMethod+  , floydSteinbergDitherMethod = FloydSteinbergDitherMethod+}+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Exception.hsc view
@@ -0,0 +1,97 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Exception+    where++import           Foreign.Storable+import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype ExceptionType = ExceptionType { unExceptionType :: CInt }+                      deriving (Eq,Show,Storable)++#{enum ExceptionType, ExceptionType+  ,  undefinedException =   UndefinedException+  ,  warningException  =   WarningException +  ,  resourceLimitWarning  =   ResourceLimitWarning +  ,  typeWarning  =   TypeWarning +  ,  optionWarning  =   OptionWarning +  ,  delegateWarning  =   DelegateWarning +  ,  missingDelegateWarning  =   MissingDelegateWarning +  ,  corruptImageWarning  =   CorruptImageWarning +  ,  fileOpenWarning  =   FileOpenWarning +  ,  blobWarning  =   BlobWarning +  ,  streamWarning  =   StreamWarning +  ,  cacheWarning  =   CacheWarning +  ,  coderWarning  =   CoderWarning +  ,  filterWarning  =   FilterWarning +  ,  moduleWarning  =   ModuleWarning +  ,  drawWarning  =   DrawWarning +  ,  imageWarning  =   ImageWarning +  ,  wandWarning  =   WandWarning +  ,  randomWarning  =   RandomWarning +  ,  xServerWarning  =   XServerWarning +  ,  monitorWarning  =   MonitorWarning +  ,  registryWarning  =   RegistryWarning +  ,  configureWarning  =   ConfigureWarning +  ,  policyWarning  =   PolicyWarning +  ,  errorException  =   ErrorException +  ,  resourceLimitError  =   ResourceLimitError +  ,  typeError  =   TypeError +  ,  optionError  =   OptionError +  ,  delegateError  =   DelegateError +  ,  missingDelegateError  =   MissingDelegateError +  ,  corruptImageError  =   CorruptImageError +  ,  fileOpenError  =   FileOpenError +  ,  blobError  =   BlobError +  ,  streamError  =   StreamError +  ,  cacheError  =   CacheError +  ,  coderError  =   CoderError +  ,  filterError  =   FilterError +  ,  moduleError  =   ModuleError +  ,  drawError  =   DrawError +  ,  imageError  =   ImageError +  ,  wandError  =   WandError +  ,  randomError  =   RandomError +  ,  xServerError  =   XServerError +  ,  monitorError  =   MonitorError +  ,  registryError  =   RegistryError +  ,  configureError  =   ConfigureError +  ,  policyError  =   PolicyError +  ,  fatalErrorException  =   FatalErrorException +  ,  resourceLimitFatalError  =   ResourceLimitFatalError +  ,  typeFatalError  =   TypeFatalError +  ,  optionFatalError  =   OptionFatalError +  ,  delegateFatalError  =   DelegateFatalError +  ,  missingDelegateFatalError  =   MissingDelegateFatalError +  ,  corruptImageFatalError  =   CorruptImageFatalError +  ,  fileOpenFatalError  =   FileOpenFatalError +  ,  blobFatalError  =   BlobFatalError +  ,  streamFatalError  =   StreamFatalError +  ,  cacheFatalError  =   CacheFatalError +  ,  coderFatalError  =   CoderFatalError +  ,  filterFatalError  =   FilterFatalError +  ,  moduleFatalError  =   ModuleFatalError +  ,  drawFatalError  =   DrawFatalError +  ,  imageFatalError  =   ImageFatalError +  ,  wandFatalError  =   WandFatalError +  ,  randomFatalError  =   RandomFatalError +  ,  xServerFatalError  =   XServerFatalError +  ,  monitorFatalError  =   MonitorFatalError +  ,  registryFatalError  =   RegistryFatalError +  ,  configureFatalError  =   ConfigureFatalError +  ,  policyFatalError  =   PolicyFatalError +}++data ExceptionSeverity  = Undefined | Warning | Error | FatalError+                        deriving (Eq, Show)++toSeverity :: ExceptionType -> ExceptionSeverity+toSeverity x = go ((unExceptionType x) `div` 100) +  where +    go 3 = Warning+    go 4 = Error+    go 7 = FatalError+    go _ = Undefined
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/FilterTypes.hsc view
@@ -0,0 +1,42 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.FilterTypes+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype FilterTypes = FilterTypes { unPCREOption :: CInt }+    deriving (Eq,Show)++#{enum FilterTypes, FilterTypes+  , undefinedFilter = UndefinedFilter+  , pointFilter     = PointFilter+  , boxFilter       = BoxFilter+  , triangleFilter  = TriangleFilter+  , hermiteFilter   = HermiteFilter+  , hanningFilter   = HanningFilter+  , hammingFilter   = HammingFilter+  , blackmanFilter  = BlackmanFilter+  , gaussianFilter  = GaussianFilter+  , qaudraticFilter = QuadraticFilter+  , cubicFilter     = CubicFilter+  , catromFilter    = CatromFilter+  , mirchellFilter  = MitchellFilter+  , jincFilter      = JincFilter+  , sinkFilter      = SincFilter+  , sinkFastFilter  = SincFastFilter+  , kaiserFilter    = KaiserFilter+  , welshFilter     = WelshFilter+  , parzenFilter    = ParzenFilter+  , bohmanFilter    = BohmanFilter+  , bartlettFilter  = BartlettFilter+  , lagrangeFilter  = LagrangeFilter+  , lanczosFilter   = LanczosFilter+  , lanczosSharpFilter = LanczosSharpFilter+  , lanczos2Filter  = Lanczos2Filter+  , lanczos2SharpFilter = Lanczos2SharpFilter+  , robidouxFilter  = RobidouxFilter+}+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Fx.hsc view
@@ -0,0 +1,23 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Fx+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype NoiseType = NoiseType { unNoiseType :: CInt }+          deriving (Eq, Show)++#{enum NoiseType, NoiseType,+  undefinedNoise = UndefinedNoise,+  uniformNoise = UniformNoise,+  gaussianNoise = GaussianNoise,+  multiplicativeGaussianNoise = MultiplicativeGaussianNoise,+  impulseNoise = ImpulseNoise,+  laplacianNoise = LaplacianNoise,+  poissonNoise = PoissonNoise,+  randomNoise = RandomNoise+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Geometry.hsc view
@@ -0,0 +1,30 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Geometry+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype GravityType = GravityType { unGravityType :: CInt }+          deriving (Eq, Show)++#{enum GravityType, GravityType+  , forgetGravity = ForgetGravity+  , northWestGravity = NorthWestGravity+  , northGravity = NorthGravity+  , northEastGravity = NorthEastGravity+  , westGravity = WestGravity +  , centerGravity = CenterGravity+  , eastGravity = EastGravity+  , southWestGravity = SouthWestGravity+  , southGravity = SouthGravity+  , southEastGravity = SouthEastGravity+  , staticGravity = StaticGravity+}++undefinedGravity :: GravityType+undefinedGravity = forgetGravity+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Image.hsc view
@@ -0,0 +1,24 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.Image+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>+newtype ImageType = ImageType { unImageType :: CInt }+  deriving (Eq, Show)++#{enum ImageType, ImageType+  , undefinedType = UndefinedType+  , bilevelType = BilevelType+  , grayscaleType = GrayscaleType+  , grayscaleMatteType = GrayscaleMatteType+  , paletteType = PaletteType+  , paletteMatteType = PaletteMatteType+  , trueColorType = TrueColorType+  , trueColorMatteType = TrueColorMatteType+  , colorSeparationType = ColorSeparationType+  , colorSeparationMatteType = ColorSeparationMatteType+  , optimizeType = OptimizeType+  , paletteBilevelMatteType = PaletteBilevelMatteType+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Layer.hsc view
@@ -0,0 +1,32 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Layer+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype ImageLayerMethod = ImageLayerMethod { unImageLayerMethod :: CInt }+          deriving (Eq, Show)++#{enum ImageLayerMethod, ImageLayerMethod+  , undefinedLayer = UndefinedLayer+  , coalesceLayer = CoalesceLayer+  , compareAnyLayer = CompareAnyLayer+  , compareClearLayer = CompareClearLayer+  , compareOverlayLayer = CompareOverlayLayer+  , disposeLayer = DisposeLayer+  , optimizeLayer = OptimizeLayer+  , optimizeImageLayer = OptimizeImageLayer+  , optimizePlusLayer = OptimizePlusLayer+  , optimizeTransLayer = OptimizeTransLayer+  , removeDupsLayer = RemoveDupsLayer+  , removeZeroLayer = RemoveZeroLayer+  , compositeLayer = CompositeLayer+  , mergeLayer = MergeLayer+  , flattenLayer = FlattenLayer+  , mosaicLayer = MosaicLayer+  , trimBoundsLayer = TrimBoundsLayer+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Log.hsc view
@@ -0,0 +1,37 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Log+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>+++newtype LogEventType = LogEventType { unLogEventType :: CInt }+          deriving (Eq, Show)++#{enum LogEventType, LogEventType+  , undefinedEvents = UndefinedEvents+  , noEvents = NoEvents+  , traceEvent = TraceEvent+  , annotateEvent = AnnotateEvent+  , blobEvent = BlobEvent+  , cacheEvent = CacheEvent+  , coderEvent = CoderEvent+  , configureEvent = ConfigureEvent+  , deprecateEvent = DeprecateEvent+  , drawEvent = DrawEvent+  , exceptionEvent = ExceptionEvent+  , imageEvent = ImageEvent+  , localeEvent = LocaleEvent+  , moduleEvent = ModuleEvent+  , policyEvent = PolicyEvent+  , resourceEvent = ResourceEvent+  , transformEvent = TransformEvent+  , userEvent = UserEvent+  , wandEvent = WandEvent+  , x11Event = X11Event+  , accelerateEvent = AccelerateEvent+  , allEvents = AllEvents+}
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/MagickFunction.hsc view
@@ -0,0 +1,20 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.MagickFunction+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype MagickFunction = MagickFunction { unMagickFunction :: CInt }+          deriving (Eq, Show)++#{enum MagickFunction, MagickFunction,+  undefinedFunction =   UndefinedFunction,+  polynomialFunction =   PolynomialFunction,+  sinusoidFunction =   SinusoidFunction,+  arcsinFunction =   ArcsinFunction,+  arctanFunction = ArctanFunction+}+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/PaintMethod.hsc view
@@ -0,0 +1,20 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.PaintMethod+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype PaintMethod =  PaintMethod { unPaintMethod :: CInt }+++#{enum PaintMethod, PaintMethod,+  undefinedMethod = UndefinedMethod,+  pointMethod = PointMethod,+  replaceMethod = ReplaceMethod,+  floodfillMethod = FloodfillMethod,+  fillToBorderMethod = FillToBorderMethod,+  resetMethod = ResetMethod+}+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc view
@@ -0,0 +1,34 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE NoMonomorphismRestriction #-} +module Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket+    where++import           Foreign+#include <magick/MagickCore.h>++data PixelPacket ++instance Storable PixelPacket where+  sizeOf = const #size PixelPacket+  alignment _ = 1+  peek = error "not yet implemented"+  poke = error "not yet implemented"++pixelPacketGetRed, pixelPacketGetGreen, pixelPacketGetBlue+                 , pixelPacketGetOpacity +  :: Storable a => Ptr b -> IO a+pixelPacketGetRed     = #peek PixelPacket, red+pixelPacketGetGreen   = #peek PixelPacket, green+pixelPacketGetBlue    = #peek PixelPacket, blue+pixelPacketGetOpacity = #peek PixelPacket, opacity++pixelPacketSetRed, pixelPacketSetGreen, pixelPacketSetBlue+                 , pixelPacketSetOpacity+  :: Storable a => Ptr b -> a -> IO ()++pixelPacketSetRed     = #poke PixelPacket, red+pixelPacketSetGreen   = #poke PixelPacket, green+pixelPacketSetBlue    = #poke PixelPacket, blue+pixelPacketSetOpacity = #poke PixelPacket, opacity+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Quantize.hsc view
@@ -0,0 +1,44 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Quantize where++import           Graphics.ImageMagick.MagickCore.Types (ColorspaceType, DitherMethod)+import           Graphics.ImageMagick.MagickWand.FFI.Types (MagickBooleanType)+import           Foreign.C.Types (CSize)+import           Foreign.Storable++#include <magick/MagickCore.h>++data QuantizeInfo = QuantizeInfo { numberOfColors :: CSize+                                 , treeDepth :: CSize+                                 , shouldDither :: MagickBooleanType+                                 , colorspace :: ColorspaceType+                                 , measureError :: MagickBooleanType+                                 , signature :: CSize+                                 , ditherMethod :: DitherMethod+                                 }+  deriving (Eq, Show)++instance Storable QuantizeInfo where+  sizeOf      _ = (#size QuantizeInfo)+  alignment   _ = alignment (undefined :: CSize)+  peek ptr      = do+    numberOfColors' <- (#peek QuantizeInfo, number_colors) ptr+    treeDepth'      <- (#peek QuantizeInfo, tree_depth) ptr+    shouldDither'   <- (#peek QuantizeInfo, dither) ptr+    colorspace'     <- (#peek QuantizeInfo, colorspace) ptr+    measureError'   <- (#peek QuantizeInfo, measure_error) ptr+    signature'      <- (#peek QuantizeInfo, signature) ptr+    ditherMethod'   <- (#peek QuantizeInfo, dither_method) ptr+    return QuantizeInfo { numberOfColors = numberOfColors'+                        , treeDepth      = treeDepth'+                        , shouldDither   = shouldDither'+                        , colorspace     = colorspace'+                        , measureError   = measureError'+                        , signature      = signature'+                        , ditherMethod   = ditherMethod'+                        }+  poke = error "not yet implemented"+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Statistic.hsc view
@@ -0,0 +1,48 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Graphics.ImageMagick.MagickCore.Types.FFI.Statistic+    where++import           Foreign.C.Types+#include <magick/MagickCore.h>++newtype MagickEvaluateOperator = MagickEvaluateOperator { unMagickEvaluateOperator :: CInt }+          deriving (Eq, Show)++#{enum MagickEvaluateOperator, MagickEvaluateOperator+  , undefinedEvaluateOperator = UndefinedEvaluateOperator+  , addEvaluateOperator = AddEvaluateOperator+  , andEvaluateOperator = AndEvaluateOperator+  , divideEvaluateOperator = DivideEvaluateOperator+  , leftShiftEvaluateOperator = LeftShiftEvaluateOperator+  , maxEvaluateOperator = MaxEvaluateOperator+  , minEvaluateOperator = MinEvaluateOperator+  , multiplyEvaluateOperator = MultiplyEvaluateOperator+  , orEvaluateOperator = OrEvaluateOperator+  , rightShiftEvaluateOperator = RightShiftEvaluateOperator+  , setEvaluateOperator = SetEvaluateOperator+  , subtractEvaluateOperator = SubtractEvaluateOperator+  , xorEvaluateOperator = XorEvaluateOperator+  , powEvaluateOperator = PowEvaluateOperator+  , logEvaluateOperator = LogEvaluateOperator+  , thresholdEvaluateOperator = ThresholdEvaluateOperator+  , thresholdBlackEvaluateOperator = ThresholdBlackEvaluateOperator+  , thresholdWhiteEvaluateOperator = ThresholdWhiteEvaluateOperator+  , gaussianNoiseEvaluateOperator = GaussianNoiseEvaluateOperator+  , impulseNoiseEvaluateOperator = ImpulseNoiseEvaluateOperator+  , laplacianNoiseEvaluateOperator = LaplacianNoiseEvaluateOperator+  , multiplicativeNoiseEvaluateOperator = MultiplicativeNoiseEvaluateOperator+  , poissonNoiseEvaluateOperator = PoissonNoiseEvaluateOperator+  , uniformNoiseEvaluateOperator = UniformNoiseEvaluateOperator+  , cosineEvaluateOperator = CosineEvaluateOperator+  , sineEvaluateOperator = SineEvaluateOperator+  , addModulusEvaluateOperator = AddModulusEvaluateOperator+  , meanEvaluateOperator = MeanEvaluateOperator+  , absEvaluateOperator = AbsEvaluateOperator+  , exponentialEvaluateOperator = ExponentialEvaluateOperator+  , medianEvaluateOperator = MedianEvaluateOperator+  , sumEvaluateOperator = SumEvaluateOperator+}+
+ src/Graphics/ImageMagick/MagickCore/Types/FFI/Types.hsc view
@@ -0,0 +1,29 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+{-# LANGUAGE RankNTypes #-}+module Graphics.ImageMagick.MagickCore.Types.FFI.Types+    where++import           Data.Int+import           Data.Word+#include <magick/MagickCore.h>++type MagickRealType   = #type MagickRealType+type MagickStatusType = #type MagickStatusType+type MagickOffsetType = #type MagickOffsetType+type MagickSizeType   = #type MagickSizeType+type SignedQuantum    = #type SignedQuantum+type QuantumAny       = #type QuantumAny+type Quantum          = #type Quantum+type IndexPacket      = #type IndexPacket++magickEpsilon :: forall a. Fractional a => a+magickEpsilon   = 1e-10 -- #const MagickEpsilon+maxColormapSize :: forall a. Num a => a+maxColormapSize = #const MaxColormapSize+maxMap :: forall a. Num a => a+maxMap          = #const MaxMap+quantumFormat :: forall a. Num a => a+quantumFormat   = #const QuantumFormat+quantumRange :: forall a. Num a => a+quantumRange    = #const QuantumRange
+ src/Graphics/ImageMagick/MagickCore/Types/MBits.hs view
@@ -0,0 +1,13 @@+module Graphics.ImageMagick.MagickCore.Types.MBits+  where++import           Data.Bits+import           Graphics.ImageMagick.MagickCore.Types.FFI.ChannelType++class MBits a where+  (^|^) :: a -> a -> a+  (^&^) :: a -> a -> a++instance MBits ChannelType where+  a ^|^ b = ChannelType (unChannelType a .|. unChannelType b)+  a ^&^ b = ChannelType (unChannelType a .&. unChannelType b)
+ src/Graphics/ImageMagick/MagickWand.hs view
@@ -0,0 +1,19 @@+module Graphics.ImageMagick.MagickWand+  ( module Graphics.ImageMagick.MagickCore+  , module Graphics.ImageMagick.MagickWand.DrawingWand+  , module Graphics.ImageMagick.MagickWand.MagickWand+  , module Graphics.ImageMagick.MagickWand.PixelIterator+  , module Graphics.ImageMagick.MagickWand.PixelPacket+  , module Graphics.ImageMagick.MagickWand.PixelWand+  , module Graphics.ImageMagick.MagickWand.Types+  , module Graphics.ImageMagick.MagickWand.WandImage+  ) where++import           Graphics.ImageMagick.MagickCore+import           Graphics.ImageMagick.MagickWand.DrawingWand+import           Graphics.ImageMagick.MagickWand.MagickWand+import           Graphics.ImageMagick.MagickWand.PixelIterator+import           Graphics.ImageMagick.MagickWand.PixelPacket+import           Graphics.ImageMagick.MagickWand.PixelWand+import           Graphics.ImageMagick.MagickWand.Types+import           Graphics.ImageMagick.MagickWand.WandImage
+ src/Graphics/ImageMagick/MagickWand/DrawingWand.hs view
@@ -0,0 +1,407 @@+module Graphics.ImageMagick.MagickWand.DrawingWand+  ( drawingWand+  , getFillColor+  , setFillColor+  , setFillPatternURL+  , setFillRule+  , setFont+  , setFontSize+  , setGravity+  , setStrokeAntialias+  , setStrokeColor+  , setStrokeDashArray+  , setStrokeLineCap+  , setStrokeLineJoin+  , setStrokeOpacity+  , setStrokeWidth+  , setTextAntialias+  , drawAnnotation+  , drawCircle+  , drawComposite+  , drawEllipse+  , drawLine+  , drawPoint+  , drawPolygon+  , drawRectangle+  , drawRoundRectangle+  , drawColor+  , pushDrawingWand+  , popDrawingWand+  , rotate+  , translate+  , pushPattern+  , popPattern+-- , clearDrawingWand +-- , cloneDrawingWand +-- , destroyDrawingWand +-- , drawAffine +-- , drawAnnotation +-- , drawArc +-- , drawBezier +-- , drawCircle +-- , drawClearException +-- , drawComposite +-- , drawColor +-- , drawComment +-- , drawEllipse +-- , drawGetBorderColor +-- , drawGetClipPath +-- , drawGetClipRule +-- , drawGetClipUnits +-- , drawGetException +-- , drawGetExceptionType +-- , drawGetFillOpacity +-- , drawGetFillRule +-- , drawGetFont +-- , drawGetFontFamily +-- , drawGetFontResolution +-- , drawGetFontSize +-- , drawGetFontStretch +-- , drawGetFontStyle +-- , drawGetFontWeight +-- , drawGetGravity +-- , drawGetOpacity +-- , drawGetStrokeAntialias +-- , drawGetStrokeColor +-- , drawGetStrokeDashArray +-- , drawGetStrokeDashOffset +-- , drawGetStrokeLineJoin +-- , drawGetStrokeMiterLimit +-- , drawGetStrokeOpacity +-- , drawGetStrokeWidth +-- , drawGetTextAlignment +-- , drawGetTextAntialias +-- , drawGetTextDecoration +-- , drawGetTextEncoding +-- , drawGetTextKerning +-- , drawGetTextInterlineSpacing +-- , drawGetTextInterwordSpacing +-- , drawGetVectorGraphics +-- , drawGetTextUnderColor +-- , drawLine +-- , drawMatte +-- , drawPathClose +-- , drawPathCurveToAbsolute +-- , drawPathCurveToRelative +-- , drawPathCurveToQuadraticBezierAbsolute +-- , drawPathCurveToQuadraticBezierRelative +-- , drawPathCurveToQuadraticBezierSmoothAbsolute +-- , drawPathCurveToQuadraticBezierSmoothRelative +-- , drawPathCurveToSmoothAbsolute +-- , drawPathCurveToSmoothRelative +-- , drawPathEllipticArcAbsolute +-- , drawPathEllipticArcRelative +-- , drawPathFinish +-- , drawPathLineToAbsolute +-- , drawPathLineToRelative +-- , drawPathLineToHorizontalAbsolute +-- , drawPathLineToHorizontalRelative +-- , drawPathLineToVerticalAbsolute +-- , drawPathLineToVerticalRelative +-- , drawPathMoveToAbsolute +-- , drawPathMoveToRelative +-- , drawPathStart +-- , drawPoint +-- , drawPolygon +-- , drawPolyline +-- , drawPopClipPath +-- , drawPopDefs +-- , drawPopPattern +-- , drawPushClipPath +-- , drawPushDefs +-- , drawPushPattern +-- , drawRectangle +-- , drawResetVectorGraphics +-- , drawRotate +-- , drawRoundRectangle +-- , drawScale +-- , drawSetBorderColor +-- , drawSetClipPath +-- , drawSetClipRule +-- , drawSetClipUnits +-- , drawSetFillColor +-- , drawSetFillOpacity +-- , drawSetFontResolution +-- , drawSetOpacity +-- , drawSetFillPatternURL +-- , drawSetFillRule +-- , drawSetFontFamily +-- , drawSetFontSize +-- , drawSetFontStretch +-- , drawSetFontStyle +-- , drawSetFontWeight +-- , drawSetGravity +-- , drawSetStrokeColor +-- , drawSetStrokePatternURL +-- , drawSetStrokeAntialias +-- , drawSetStrokeDashArray +-- , drawSetStrokeDashOffset +-- , drawSetStrokeLineCap +-- , drawSetStrokeLineJoin +-- , drawSetStrokeMiterLimit +-- , drawSetStrokeOpacity +-- , drawSetStrokeWidth +-- , drawSetTextAlignment +-- , drawSetTextAntialias +-- , drawSetTextDecoration +-- , drawSetTextEncoding +-- , drawSetTextKerning +-- , drawSetTextInterlineSpacing +-- , drawSetTextInterwordSpacing +-- , drawSetTextUnderColor +-- , drawSetVectorGraphics +-- , drawSkewX +-- , drawSkewY +-- , drawTranslate +-- , drawSetViewbox +-- , isDrawingWand +-- , newDrawingWand +-- , peekDrawingWand +-- , popDrawingWand +-- , pushDrawingWand]+  ) where++import           Control.Monad (void)+import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Data.ByteString                                 (ByteString, useAsCString)+import           Data.Text                                       (Text)+import           Data.Text.Encoding                              (encodeUtf8)+import           Foreign                                         hiding (rotate, void)+import           Foreign.C.Types                                 ()+import           Graphics.ImageMagick.MagickCore.Types+import qualified Graphics.ImageMagick.MagickWand.FFI.DrawingWand as F+import           Graphics.ImageMagick.MagickWand.FFI.Types+import           Graphics.ImageMagick.MagickWand.Types+import           Graphics.ImageMagick.MagickWand.Utils+++drawingWand :: (MonadResource m) => m (ReleaseKey, PDrawingWand)+drawingWand = allocate (F.newDrawingWand) (void . F.destroyDrawingWand)++-- | returns the fill color used for drawing filled objects.+getFillColor :: (MonadResource m) => PDrawingWand -> PPixelWand -> m ()+getFillColor = (liftIO .). F.drawGetFillColor+++-- | DrawSetFillColor() sets the fill color to be used for drawing filled objects.+setFillColor :: (MonadResource m) => PDrawingWand -> PPixelWand -> m ()+setFillColor = (liftIO .). F.drawSetFillColor++-- | Sets the URL to use as a fill pattern+-- for filling objects. Only local URLs ("#identifier") are supported+-- at this time. These local URLs are normally created by defining a named+-- fill pattern with `pushPattern`/`popPattern`.+setFillPatternURL :: (MonadResource m) => PDrawingWand -> Text -> m ()+setFillPatternURL dw url = withException_ dw $! useAsCString (encodeUtf8 url) (F.drawSetFillPatternURL dw)++-- | Sets the fill rule to use while drawing polygons.+setFillRule :: (MonadResource m) => PDrawingWand -> FillRule -> m ()+setFillRule = (liftIO .). F.drawSetFillRule++-- | Sets the fully-sepecified font to use when annotating with text.+setFont :: (MonadResource m) => PDrawingWand -> ByteString -> m ()+setFont dw s = liftIO $ useAsCString s (F.drawSetFont dw)++-- | Sets the font pointsize to use when annotating with text.+setFontSize :: (MonadResource m) => PDrawingWand -> Double -> m ()+setFontSize dw size = liftIO $ F.drawSetFontSize dw (realToFrac size)++-- | Sets the text placement gravity to use when annotating with text.+setGravity :: (MonadResource m) => PDrawingWand -> GravityType -> m ()+setGravity = (liftIO .). F.drawSetGravity++setStrokeAntialias :: (MonadResource m) => PDrawingWand -> Bool -> m ()+setStrokeAntialias dw antialias = liftIO $ F.drawSetStrokeAntialias dw (toMBool antialias)++-- | sets the color used for stroking object outlines.+setStrokeColor :: (MonadResource m) => PDrawingWand -> PPixelWand -> m ()+setStrokeColor = (liftIO .). F.drawSetStrokeColor++-- | Specifies the pattern of dashes and gaps used to+-- stroke paths. The stroke dash array represents an array of numbers that+-- specify the lengths of alternating dashes and gaps in pixels. If an odd+-- number of values is provided, then the list of values is repeated to yield+-- an even number of values. To remove an existing dash array, pass an emtpy list.+-- A typical stroke dash array might contain the members 5 3 2.+setStrokeDashArray :: (MonadResource m) => PDrawingWand -> [Double] -> m ()+setStrokeDashArray dw [] = liftIO $ F.drawSetStrokeDashArray dw 0 nullPtr+setStrokeDashArray dw dashes = liftIO $ withArray (map realToFrac dashes) $ \arr ->+  F.drawSetStrokeDashArray dw (fromIntegral $ length dashes) arr++-- | Specifies the shape to be used at the end of open subpaths+-- when they are stroked. Values of `LineCap` are `undefinedCap`,+-- `buttCap, `roundCap` and `squareCap`.+setStrokeLineCap :: (MonadResource m) => PDrawingWand -> LineCap -> m ()+setStrokeLineCap = (liftIO .). F.drawSetStrokeLineCap++-- | Specifies the shape to be used at the corners of paths+-- (or other vector shapes) when they are stroked.+-- Values of `LineJoin` are `undefinedJoin`, `miterJoin`, `roundJoin` and `bevelJoin`.+setStrokeLineJoin :: (MonadResource m) => PDrawingWand -> LineJoin -> m ()+setStrokeLineJoin = (liftIO .). F.drawSetStrokeLineJoin++-- | specifies the opacity of stroked object outlines.+setStrokeOpacity :: (MonadResource m) => PDrawingWand -> Double -> m ()+setStrokeOpacity dw op = liftIO $ F.drawSetStrokeOpacity dw (realToFrac op)++-- | sets the width of the stroke used to draw object outlines.+setStrokeWidth :: (MonadResource m) => PDrawingWand -> Double -> m ()+setStrokeWidth dw width = liftIO $ F.drawSetStrokeWidth dw (realToFrac width)++-- | Controls whether text is antialiased. Text is antialiased by default.+setTextAntialias :: (MonadResource m) => PDrawingWand -> Bool -> m ()+setTextAntialias dw antialias = liftIO $ F.drawSetTextAntialias dw (toMBool antialias)++-- | Draws text on the image.+drawAnnotation :: (MonadResource m) => PDrawingWand+     -> Double           -- ^ x ordinate to left of text+     -> Double           -- ^ y ordinate to text baseline+     -> Text             -- ^ text to draw+     -> m ()+drawAnnotation dw x y txt = liftIO $ useAsCString (encodeUtf8 txt)+                            (\cstr -> F.drawAnnotation dw (realToFrac x) (realToFrac y) cstr)++-- | Draws a circle on the image.+drawCircle :: (MonadResource m) => PDrawingWand+     -> Double           -- ^ origin x ordinate+     -> Double           -- ^ origin y ordinate+     -> Double           -- ^ perimeter x ordinate+     -> Double           -- ^ perimeter y ordinate+     -> m ()+drawCircle dw ox oy px py = liftIO $ F.drawCircle dw (realToFrac ox) (realToFrac oy)+                                                     (realToFrac px) (realToFrac py)++-- | Composites an image onto the current image, using the specified+-- composition operator, specified position, and at the specified size.+drawComposite :: (MonadResource m) => PDrawingWand+  -> CompositeOperator -- ^ composition operator+  -> Double            -- ^ x ordinate of top left corner+  -> Double            -- ^ y ordinate of top left corner+  -> Double            -- ^ width to resize image to prior to compositing, specify zero to use existing width+  -> Double            -- ^ height to resize image to prior to compositing, specify zero to use existing height+  -> PMagickWand       -- ^ image to composite is obtained from this wand+  -> m ()+drawComposite dw compose x y w h dw' = withException_ dw $! F.drawComposite dw compose+                                                                           (realToFrac x) (realToFrac y)+                                                                           (realToFrac w) (realToFrac h) dw'++-- | Draws an ellipse on the image.+drawEllipse :: (MonadResource m) => PDrawingWand+     -> Double           -- ^ origin x ordinate+     -> Double           -- ^ origin y ordinate+     -> Double           -- ^ radius in x+     -> Double           -- ^ radius in y+     -> Double           -- ^ starting rotation in degrees+     -> Double           -- ^ ending rotation in degrees+     -> m ()+drawEllipse dw ox oy rx ry start end = liftIO $ F.drawEllipse dw (realToFrac ox) (realToFrac oy)+                                                                 (realToFrac rx) (realToFrac ry)+                                                                 (realToFrac start) (realToFrac end)++-- | Draws a line on the image using the current stroke color,+-- stroke opacity, and stroke width.+drawLine :: (MonadResource m) => PDrawingWand+  -> Double           -- ^ starting x ordinate+  -> Double           -- ^ starting y ordinate+  -> Double           -- ^ ending x ordinate+  -> Double           -- ^ ending y ordinate+  -> m ()+drawLine dw sx sy ex ey = liftIO $ F.drawLine dw (realToFrac sx) (realToFrac sy)+                                                 (realToFrac ex) (realToFrac ey)++-- | Draws a polygon using the current stroke, stroke width,+-- and fill color or texture, using the specified array of coordinates.+drawPolygon :: (MonadResource m) => PDrawingWand+     -> [PointInfo]      -- ^ coordinates+     -> m ()+drawPolygon dw points = liftIO $ withArrayLen points $ \len arr ->+  F.drawPolygon dw (fromIntegral len) arr++-- | Draws a rectangle given two coordinates+-- and using the current stroke, stroke width, and fill settings.+drawRectangle :: (MonadResource m) => PDrawingWand+     -> Double           -- ^ x ordinate of first coordinate+     -> Double           -- ^ y ordinate of first coordinate+     -> Double           -- ^ x ordinate of second coordinate+     -> Double           -- ^ y ordinate of second coordinate+     -> m ()+drawRectangle dw x1 y1 x2 y2 = liftIO $ F.drawRectangle dw (realToFrac x1) (realToFrac y1)+                                                           (realToFrac x2) (realToFrac y2)++-- | DrawRoundRectangle() draws a rounted rectangle given two coordinates,+--   x & y corner radiuses and using the current stroke, stroke width, and fill settings.+drawRoundRectangle :: (MonadResource m) => PDrawingWand+     -> Double           -- ^ x ordinate of first coordinate+     -> Double           -- ^ y ordinate of first coordinate+     -> Double           -- ^ x ordinate of second coordinate+     -> Double           -- ^ y ordinate of second coordinate+     -> Double           -- ^ radius of corner in horizontal direction+     -> Double           -- ^ radius of corner in vertical direction+     -> m ()+drawRoundRectangle p x1 y1 x2 y2 rx ry = liftIO $ F.drawRoundRectangle p (realToFrac x1)+                                                                         (realToFrac y1)+                                                                         (realToFrac x2)+                                                                         (realToFrac y2)+                                                                         (realToFrac rx)+                                                                         (realToFrac ry)+-- | Clones the current drawing wand to create a new drawing wand.+-- The original drawing wand(s) may be returned to by invoking `popDrawingWand`.+-- The drawing wands are stored on a drawing wand stack. For every Pop there must+-- have already been an equivalent Push.+pushDrawingWand ::  (MonadResource m) => PDrawingWand -> m ()+pushDrawingWand dw = withException_ dw $ F.pushDrawingWand dw++-- | Destroys the current drawing wand and returns to the+-- previously pushed drawing wand. Multiple drawing wands may exist.+-- It is an error to attempt to pop more drawing wands than have been pushed,+-- and it is proper form to pop all drawing wands which have been pushed.+popDrawingWand ::  (MonadResource m) => PDrawingWand -> m ()+popDrawingWand dw = withException_ dw $ F.popDrawingWand dw++-- | Applies the specified rotation to the current coordinate space.+rotate ::  (MonadResource m) => PDrawingWand -> Double -> m ()+rotate dw degrees = liftIO $ F.drawRotate dw (realToFrac degrees)++-- | Applies a translation to the current coordinate system+-- which moves the coordinate system origin to the specified coordinate.+translate :: (MonadResource m) => PDrawingWand -> Double -> Double -> m ()+translate dw x y = liftIO $ F.drawTranslate dw (realToFrac x) (realToFrac y)+++-- | Indicates that subsequent commands up to a `popPattern` command comprise+-- the definition of a named pattern. The pattern space is assigned top left+-- corner coordinates, a width and height, and becomes its own drawing space.+-- Anything which can be drawn may be used in a pattern definition.+-- Named patterns may be used as stroke or brush definitions.+pushPattern :: (MonadResource m) => PDrawingWand+  -> Text             -- ^ pattern identification for later reference+  -> Double           -- x ordinate of top left corner+  -> Double           -- y ordinate of top left corner+  -> Double           -- width of pattern space+  -> Double           -- height of pattern space+  -> m ()+pushPattern dw name x y w h  = withException_ dw $!+                               useAsCString (encodeUtf8 name) (\cstr ->+                                                                F.drawPushPattern dw cstr+                                                                                  (realToFrac x) (realToFrac y)+                                                                                  (realToFrac w) (realToFrac h))++-- | Terminates a pattern definition.+popPattern :: (MonadResource m) => PDrawingWand -> m ()+popPattern dw = withException_ dw $! F.drawPopPattern dw+++-- | DrawColor() draws color on image using the current fill color, starting at+-- specified position, and using specified paint method. The available paint methods are:+--+--    PointMethod: Recolors the target pixel+--    ReplaceMethod: Recolor any pixel that matches the target pixel.+--    FloodfillMethod: Recolors target pixels and matching neighbors.+--    ResetMethod: Recolor all pixels.+drawColor :: (MonadResource m) => PDrawingWand -> Double -> Double -> PaintMethod -> m ()+drawColor p x t m = liftIO $ F.drawColor p (realToFrac x) (realToFrac t) m++-- | Draws a point using the current fill color.+drawPoint :: (MonadResource m) => PDrawingWand -> Double -> Double -> m ()+drawPoint dw x y = liftIO $ F.drawPoint dw (realToFrac x) (realToFrac y)
+ src/Graphics/ImageMagick/MagickWand/FFI/DrawingWand.hsc view
@@ -0,0 +1,272 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickWand.FFI.DrawingWand+  where++import           Foreign+import           Foreign.C.String+import           Foreign.C.Types++import           Graphics.ImageMagick.MagickCore.Types+import           Graphics.ImageMagick.MagickWand.FFI.Types++#include <wand/MagickWand.h>++-- | NewDrawingWand() returns a drawing wand required for all other methods in the API.+foreign import ccall "NewDrawingWand" newDrawingWand+  :: IO (Ptr DrawingWand)++-- | DestroyDrawingWand() frees all resources associated with the drawing wand.+-- Once the drawing wand has been freed, it should not be used and further unless it re-allocated.+foreign import ccall "DestroyDrawingWand" destroyDrawingWand+  :: Ptr DrawingWand -> IO (Ptr DrawingWand)++-- | PixelGetException() returns the severity, reason, and description of any+--   error that occurs when using other methods in this API.+foreign import ccall "DrawGetException" drawGetException+  :: Ptr DrawingWand -> Ptr ExceptionType -> IO CString++-- | DrawGetFillColor() returns the fill color used for drawing filled objects.+foreign import ccall "DrawGetFillColor" drawGetFillColor+  :: Ptr DrawingWand -> Ptr PixelWand -> IO ()++-- | DrawSetFillColor() sets the fill color to be used for drawing filled objects.+foreign import ccall "DrawSetFillColor" drawSetFillColor+  :: Ptr DrawingWand -> Ptr PixelWand -> IO ()++-- | DrawSetFillPatternURL() sets the URL to use as a fill pattern+-- for filling objects. Only local URLs ("#identifier") are supported+-- at this time. These local URLs are normally created by defining a named+-- fill pattern with DrawPushPattern/DrawPopPattern.+foreign import ccall "DrawSetFillPatternURL" drawSetFillPatternURL+  :: Ptr DrawingWand -> CString -> IO MagickBooleanType++-- | DrawSetFillRule() sets the fill rule to use while drawing polygons.+foreign import ccall "DrawSetFillRule" drawSetFillRule+  :: Ptr DrawingWand -> FillRule -> IO ()++-- | DrawSetFont() sets the fully-sepecified font to use when annotating with text.+foreign import ccall "DrawSetFont" drawSetFont+  :: Ptr DrawingWand -> CString -> IO ()++-- | DrawSetFontSize() sets the font pointsize to use when annotating with text.+foreign import ccall "DrawSetFontSize" drawSetFontSize+  :: Ptr DrawingWand -> CDouble -> IO ()++-- | DrawSetGravity() sets the text placement gravity to use when annotating with text.+foreign import ccall "DrawSetGravity" drawSetGravity+  :: Ptr DrawingWand -> GravityType -> IO ()++-- | DrawSetStrokeAntialias() controls whether stroked outlines are antialiased.+-- Stroked outlines are antialiased by default. When antialiasing is disabled+-- stroked pixels are thresholded to determine if the stroke color or+-- underlying canvas color should be used.+foreign import ccall "DrawSetStrokeAntialias" drawSetStrokeAntialias+  :: Ptr DrawingWand+  -> MagickBooleanType    -- ^ stroke_antialias+  -> IO ()++-- | DrawSetStrokeColor() sets the color used for stroking object outlines.+foreign import ccall "DrawSetStrokeColor" drawSetStrokeColor+  :: Ptr DrawingWand+  -> Ptr PixelWand        -- ^ stroke_wand+  -> IO ()++-- |  DrawSetStrokeDashArray() specifies the pattern of dashes and gaps used to+-- stroke paths. The stroke dash array represents an array of numbers that+-- specify the lengths of alternating dashes and gaps in pixels. If an odd+-- number of values is provided, then the list of values is repeated to yield+-- an even number of values. To remove an existing dash array, pass a zero+-- number_elements argument and null dash_array.  A typical stroke dash array+-- might contain the members 5 3 2.+foreign import ccall "DrawSetStrokeDashArray" drawSetStrokeDashArray+  :: Ptr DrawingWand+  -> CSize             -- ^ number of elements in dash array+  -> Ptr CDouble       -- ^ dash array values+  -> IO ()++-- | DrawSetStrokeLineCap() specifies the shape to be used at the end+-- of open subpaths when they are stroked. Values of LineCap are UndefinedCap,+-- ButtCap, RoundCap, and SquareCap.+foreign import ccall "DrawSetStrokeLineCap" drawSetStrokeLineCap+  :: Ptr DrawingWand+  -> LineCap           -- ^ linecap+  -> IO ()++-- | DrawSetStrokeLineJoin() specifies the shape to be used at the corners+-- of paths (or other vector shapes) when they are stroked.+-- Values of LineJoin are UndefinedJoin, MiterJoin, RoundJoin, and BevelJoin.+foreign import ccall "DrawSetStrokeLineJoin" drawSetStrokeLineJoin+  :: Ptr DrawingWand+  -> LineJoin          -- ^ linejoin+  -> IO ()++-- | DrawSetStrokeOpacity() specifies the opacity of stroked object outlines.+foreign import ccall "DrawSetStrokeOpacity" drawSetStrokeOpacity+  :: Ptr DrawingWand+  -> CDouble           -- ^ stroke_opacity+  -> IO ()++-- | DrawSetStrokeOpacity() specifies the opacity of stroked object outlines.+foreign import ccall "DrawSetTextAntialias" drawSetTextAntialias+  :: Ptr DrawingWand+  -> MagickBooleanType -- ^ antialias boolean. Set to false (0) to disable antialiasing.+  -> IO ()++-- | DrawSetStrokeWidth() sets the width of the stroke used to draw object outlines.+foreign import ccall "DrawSetStrokeWidth" drawSetStrokeWidth+  :: Ptr DrawingWand+  -> CDouble           -- ^ stroke_width+  -> IO ()++-- | DrawAnnotation() draws text on the image.+foreign import ccall "DrawAnnotation" drawAnnotation+  :: Ptr DrawingWand+  -> CDouble           -- ^ x ordinate to left of text+  -> CDouble           -- ^ y ordinate to text baseline+  -> CString           -- ^ text to draw+  -> IO ()++-- | DrawCircle() draws a circle on the image.+foreign import ccall "DrawCircle" drawCircle+  :: Ptr DrawingWand+  -> CDouble           -- ^ origin x ordinate+  -> CDouble           -- ^ origin y ordinate+  -> CDouble           -- ^ perimeter x ordinate+  -> CDouble           -- ^ perimeter y ordinate+  -> IO ()++-- | DrawComposite() composites an image onto the current image, using+-- the specified composition operator, specified position, and at the specified size.+foreign import ccall "DrawComposite" drawComposite+  :: Ptr DrawingWand+  -> CompositeOperator -- ^ composition operator+  -> CDouble           -- ^ x ordinate of top left corner+  -> CDouble           -- ^ y ordinate of top left corner+  -> CDouble           -- ^ width to resize image to prior to compositing, specify zero to use existing width+  -> CDouble           -- ^ height to resize image to prior to compositing, specify zero to use existing height+  -> Ptr MagickWand    -- ^ image to composite is obtained from this wand+  -> IO MagickBooleanType+++-- | DrawEllipse() draws an ellipse  on the image.+foreign import ccall "DrawEllipse" drawEllipse+  :: Ptr DrawingWand+  -> CDouble           -- ^ origin x ordinate+  -> CDouble           -- ^ origin y ordinate+  -> CDouble           -- ^ radius in x+  -> CDouble           -- ^ radius in y+  -> CDouble           -- ^ starting rotation in degrees+  -> CDouble           -- ^ ending rotation in degrees+  -> IO ()++-- | DrawLine() draws a line on the image using the current stroke color,+-- stroke opacity, and stroke width.+foreign import ccall "DrawLine" drawLine+  :: Ptr DrawingWand+  -> CDouble           -- ^ starting x ordinate+  -> CDouble           -- ^ starting y ordinate+  -> CDouble           -- ^ ending x ordinate+  -> CDouble           -- ^ ending y ordinate+  -> IO ()++-- | DrawPolygon() draws a polygon using the current stroke, stroke width,+-- and fill color or texture, using the specified array of coordinates.+foreign import ccall "DrawPolygon" drawPolygon+  :: Ptr DrawingWand+  -> CSize           -- ^ number of coordinates+  -> Ptr PointInfo   -- ^ coordinate array+  -> IO ()++-- | DrawRectangle() draws a rectangle given two coordinates+-- and using the current stroke, stroke width, and fill settings.+foreign import ccall "DrawRectangle" drawRectangle+  :: Ptr DrawingWand+  -> CDouble           -- ^ x ordinate of first coordinate+  -> CDouble           -- ^ y ordinate of first coordinate+  -> CDouble           -- ^ x ordinate of second coordinate+  -> CDouble           -- ^ y ordinate of second coordinate+  -> IO ()++-- | DrawRoundRectangle() draws a rounted rectangle given two coordinates,+-- x & y corner radiuses and using the current stroke, stroke width, and fill settings.+foreign import ccall "DrawRoundRectangle" drawRoundRectangle+  :: Ptr DrawingWand+  -> CDouble           -- ^ x ordinate of first coordinate+  -> CDouble           -- ^ y ordinate of first coordinate+  -> CDouble           -- ^ x ordinate of second coordinate+  -> CDouble           -- ^ y ordinate of second coordinate+  -> CDouble           -- ^ radius of corner in horizontal direction+  -> CDouble           -- ^ radius of corner in vertical direction+  -> IO ()++-- | PushDrawingWand() clones the current drawing wand to create a new drawing wand.+-- The original drawing wand(s) may be returned to by invoking PopDrawingWand().+-- The drawing wands are stored on a drawing wand stack. For every Pop there must+-- have already been an equivalent Push.+foreign import ccall "PushDrawingWand" pushDrawingWand+  :: Ptr DrawingWand+  -> IO MagickBooleanType++-- | PopDrawingWand() destroys the current drawing wand and returns to the+-- previously pushed drawing wand. Multiple drawing wands may exist.+-- It is an error to attempt to pop more drawing wands than have been pushed,+-- and it is proper form to pop all drawing wands which have been pushed.+foreign import ccall "PopDrawingWand" popDrawingWand+  :: Ptr DrawingWand+  -> IO MagickBooleanType++-- | DrawRotate() applies the specified rotation to the current coordinate space.+foreign import ccall "DrawRotate" drawRotate+  :: Ptr DrawingWand+  -> CDouble           -- ^ degrees of rotation+  -> IO ()++-- | DrawTranslate() applies a translation to the current coordinate system+-- which moves the coordinate system origin to the specified coordinate.+foreign import ccall "DrawTranslate" drawTranslate+  :: Ptr DrawingWand+  -> CDouble           -- ^ new x ordinate for coordinate system origin+  -> CDouble           -- ^ new y ordinate for coordinate system origin+  -> IO ()++-- | DrawPushPattern() indicates that subsequent commands up to+-- a DrawPopPattern() command comprise the definition of a named pattern.+-- The pattern space is assigned top left corner coordinates, a width and height,+-- and becomes its own drawing space. Anything which can be drawn may be used+-- in a pattern definition. Named patterns may be used as stroke or brush definitions.+foreign import ccall "DrawPushPattern" drawPushPattern+  :: Ptr DrawingWand+  -> CString           -- ^ pattern identification for later reference+  -> CDouble           -- x ordinate of top left corner+  -> CDouble           -- y ordinate of top left corner+  -> CDouble           -- width of pattern space+  -> CDouble           -- height of pattern space+  -> IO MagickBooleanType++-- | DrawPopPattern() terminates a pattern definition.+foreign import ccall "DrawPopPattern" drawPopPattern+  :: Ptr DrawingWand+  -> IO MagickBooleanType+++-- | DrawColor() draws color on image using the current fill color, starting at+-- specified position, and using specified paint method. The available paint methods are:+--+--    PointMethod: Recolors the target pixel+--    ReplaceMethod: Recolor any pixel that matches the target pixel.+--    FloodfillMethod: Recolors target pixels and matching neighbors.+--    ResetMethod: Recolor all pixels.+foreign import ccall "DrawColor" drawColor+  :: Ptr DrawingWand+  -> CDouble+  -> CDouble+  -> PaintMethod+  -> IO ()++-- | DrawPoint() draws a point using the current fill color.+foreign import ccall "DrawPoint" drawPoint+  :: Ptr DrawingWand+  -> CDouble         -- ^ target x coordinate+  -> CDouble         -- ^ target y coordinate+  -> IO ()
+ src/Graphics/ImageMagick/MagickWand/FFI/ImageDrawing.hsc view
@@ -0,0 +1,2 @@+module Graphics.ImageMagick.MagickWand.FFI.ImageDrawing+  where
+ src/Graphics/ImageMagick/MagickWand/FFI/MagickWand.hsc view
@@ -0,0 +1,472 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickWand.FFI.MagickWand+  where++import           Foreign+import           Foreign.C.String+import           Foreign.C.Types++import           Graphics.ImageMagick.MagickCore.Types+import           Graphics.ImageMagick.MagickWand.FFI.Types++#include <wand/MagickWand.h>+++-- | MagickWandGenesis() initializes the MagickWand environment.+foreign import ccall "MagickWandGenesis" magickWandGenesis+  :: IO ()++-- | MagickWandTerminus() terminates the MagickWand environment.+foreign import ccall "MagickWandTerminus" magickWandTerminus+  :: IO ()++-- * Constructing magic wand++-- | NewMagickWand() returns a wand required for all other methods in the API.+-- A fatal exception is thrown if there is not enough memory to allocate the wand.+-- Use DestroyMagickWand() to dispose of the wand when it is no longer needed.+foreign import ccall "NewMagickWand" newMagickWand+  :: IO (Ptr MagickWand)+++-- | NewMagickWandFromImage() returns a wand with an image.+foreign import ccall "NewMagickWandFromImage" newMagickWandFromImage+  :: Ptr Image                  -- ^ Image+  -> IO (Ptr MagickWand)++-- | CloneMagickWand() makes an exact copy of the specified wand.+foreign import ccall "CloneMagickWand" cloneMagickWand+  :: Ptr MagickWand -> IO (Ptr MagickWand)++-- * Clearing and destroying++-- | ClearMagickWand() clears resources associated with the wand,+-- leaving the wand blank, and ready to be used for a new set of images.+foreign import ccall "ClearMagickWand" clearMagickWand+  :: Ptr MagickWand -> IO ()++-- | DestroyMagickWand() deallocates memory associated with an MagickWand.+foreign import ccall "DestroyMagickWand" destroyMagickWand+  :: Ptr MagickWand -> IO (Ptr MagickWand)++foreign import ccall "&DestroyMagickWand" pDestroyMagickWand+  :: FunPtr (Ptr MagickWand -> IO ())+-- * Utilities++-- | IsMagickWand() returns MagickTrue if the wand is verified as a magick wand.+foreign import ccall " IsMagickWand" isMagicWand+  :: Ptr MagickWand -> IO MagickBooleanType++-- * Exceptions++-- | MagickClearException() clears any exceptions associated with the wand.+--+foreign import ccall "MagickClearException" magickClearException+  :: Ptr MagickWand -> IO MagickBooleanType++-- | MagickGetException() returns the severity, reason, and description of+--   any error that occurs when using other methods in this API.+foreign import ccall "MagickGetException" magickGetException+  :: Ptr MagickWand -> Ptr ExceptionType -> IO CString++-- | MagickGetExceptionType() returns the exception type associated with the wand.+--   If no exception has occurred, UndefinedExceptionType is returned.+foreign import ccall "MagickGetExceptionType" magickGetExceptionType+  :: Ptr MagickWand -> IO ExceptionType+++-- | MagickGetIteratorIndex() returns the position of the iterator in the image list.+foreign import ccall "MagickGetIteratorIndex" magickGetIteratorIndex :: Ptr MagickWand -> IO CSize+++{-++MagickQueryConfigureOption() returns the value associated with the specified configure option.+  char *MagickQueryConfigureOption(const char *option)++MagickQueryConfigureOptions() returns any configure options that match the specified pattern (e.g. "*" for all). Options include NAME, VERSION, LIB_VERSION, etc.++The format of the MagickQueryConfigureOptions function is:++  char **MagickQueryConfigureOptions(const char *pattern,+    size_t *number_options)++A description of each parameter follows:+pattern++Specifies a pointer to a text string containing a pattern.+number_options++Returns the number of configure options in the list.++++MagickQueryFontMetrics() returns a 13 element array representing the following font metrics:++      Element Description+      -------------------------------------------------+      0 character width+      1 character height+      2 ascender+      3 descender+      4 text width+      5 text height+      6 maximum horizontal advance+      7 bounding box: x1+      8 bounding box: y1+      9 bounding box: x2+     10 bounding box: y2+     11 origin: x+     12 origin: y++The format of the MagickQueryFontMetrics method is:++  double *MagickQueryFontMetrics(MagickWand *wand,+    const DrawingWand *drawing_wand,const char *text)++A description of each parameter follows:+wand++the Magick wand.+drawing_wand++the drawing wand.+text++the text.+++MagickQueryMultilineFontMetrics() returns a 13 element array representing the following font metrics:++      Element Description+      -------------------------------------------------+      0 character width+      1 character height+      2 ascender+      3 descender+      4 text width+      5 text height+      6 maximum horizontal advance+      7 bounding box: x1+      8 bounding box: y1+      9 bounding box: x2+     10 bounding box: y2+     11 origin: x+     12 origin: y++This method is like MagickQueryFontMetrics() but it returns the maximum text width and height for multiple lines of text.++The format of the MagickQueryFontMetrics method is:++  double *MagickQueryMultilineFontMetrics(MagickWand *wand,+    const DrawingWand *drawing_wand,const char *text)++A description of each parameter follows:+wand++the Magick wand.+drawing_wand++the drawing wand.+text++the text.++++MagickQueryFonts() returns any font that match the specified pattern (e.g. "*" for all).++The format of the MagickQueryFonts function is:++  char **MagickQueryFonts(const char *pattern,size_t *number_fonts)++A description of each parameter follows:+pattern++Specifies a pointer to a text string containing a pattern.+number_fonts++Returns the number of fonts in the list.++++MagickQueryFonts() returns any image formats that match the specified pattern (e.g. "*" for all).++The format of the MagickQueryFonts function is:++  char **MagickQueryFonts(const char *pattern,+    size_t *number_formats)++A description of each parameter follows:+pattern++Specifies a pointer to a text string containing a pattern.+number_formats++This integer returns the number of image formats in the list.+++++++++MagickSetFirstIterator() sets the wand iterator to the first image.++After using any images added to the wand using MagickAddImage() or MagickReadImage() will be prepended before any image in the wand.++Also the current image has been set to the first image (if any) in the Magick Wand. Using MagickNextImage() will then set teh current image to the second image in the list (if present).++This operation is similar to MagickResetIterator() but differs in how MagickAddImage(), MagickReadImage(), and MagickNextImage() behaves afterward.++The format of the MagickSetFirstIterator method is:++  void MagickSetFirstIterator(MagickWand *wand)++A description of each parameter follows:+wand++the magick wand.+++MagickSetIteratorIndex() set the iterator to the given position in the image list specified with the index parameter. A zero index will set the first image as current, and so on. Negative indexes can be used to specify an image relative to the end of the images in the wand, with -1 being the last image in the wand.++If the index is invalid (range too large for number of images in wand) the function will return MagickFalse, but no 'exception' will be raised, as it is not actually an error. In that case the current image will not change.++After using any images added to the wand using MagickAddImage() or MagickReadImage() will be added after the image indexed, regardless of if a zero (first image in list) or negative index (from end) is used.++Jumping to index 0 is similar to MagickResetIterator() but differs in how MagickNextImage() behaves afterward.++The format of the MagickSetIteratorIndex method is:++  MagickBooleanType MagickSetIteratorIndex(MagickWand *wand,+    const ssize_t index)++A description of each parameter follows:+wand++the magick wand.+index++the scene number.++++MagickSetLastIterator() sets the wand iterator to the last image.++The last image is actually the current image, and the next use of MagickPreviousImage() will not change this allowing this function to be used to iterate over the images in the reverse direction. In this sense it is more like MagickResetIterator() than MagickSetFirstIterator().++Typically this function is used before MagickAddImage(), MagickReadImage() functions to ensure new images are appended to the very end of wand's image list.++The format of the MagickSetLastIterator method is:++  void MagickSetLastIterator(MagickWand *wand)++A description of each parameter follows:+wand++the magick wand.++-}++-- * Image functions++-- | MagickNextImage() sets the next image in the wand as the current image.+-- It is typically used after MagickResetIterator(), after which its first use will+-- set the first image as the current image (unless the wand is empty).+--+-- It will return MagickFalse when no more images are left to be returned which+-- happens when the wand is empty, or the current image is the last image.+--+-- When the above condition (end of image list) is reached, the iterator is+-- automatically set so that you can start using MagickPreviousImage() to again+-- iterate over the images in the reverse direction, starting with the last image+-- (again). You can jump to this condition immeditally using MagickSetLastIterator().+foreign import ccall "MagickNextImage" magickNextImage+  :: Ptr MagickWand -> IO MagickBooleanType+++-- | MagickPreviousImage() sets the previous image in the wand as the current image.+--+-- It is typically used after MagickSetLastIterator(), after which its first use+-- will set the last image as the current image (unless the wand is empty).+--+-- It will return MagickFalse when no more images are left to be returned which+-- happens when the wand is empty, or the current image is the first image.+-- At that point the iterator is than reset to again process images in the forward+-- direction, again starting with the first image in list. Images added at this+-- point are prepended.+--+-- Also at that point any images added to the wand using MagickAddImages() or+-- MagickReadImages() will be prepended before the first image. In this sense the+-- condition is not quite exactly the same as MagickResetIterator().+foreign import ccall "MagickPreviousImage" magickPreviousImage+  :: Ptr MagickWand -> IO MagickBooleanType++{-+  ResizeFilter      Bessel   Blackman   Box+  Catrom   CubicGaussian+  Hanning  Hermite    Lanczos+  Mitchell PointQuandratic+  Sinc     Triangle+-}++-- | MagickResizeImage() scales an image to the desired dimensions with one of these filters:+--+-- Most of the filters are FIR (finite impulse response), however, Bessel, Gaussian, and Sinc are+-- IIR (infinite impulse response). Bessel and Sinc are windowed (brought down to zero) with the Blackman filter.++foreign import ccall "MagickResizeImage" magickResizeImage+  :: Ptr MagickWand+  -> CSize                        -- ^ the number of columns in the scaled image+  -> CSize                        -- ^ the number of rows in the scaled image+  -> FilterTypes                  -- ^ filter+  -> CDouble                      -- ^ blur factor where 1 > blurry, < 1 sharp+  -> IO MagickBooleanType+++-- | MagickWriteImages() writes an image or image sequence.+foreign import ccall "MagickWriteImages" magickWriteImages+  :: Ptr MagickWand+  -> CString                      -- ^ filename+  -> MagickBooleanType            -- ^ join images into a single multi-image file.+  -> IO MagickBooleanType+++-- |  MagickSetSize() sets the size of the magick wand. Set it before you read a raw image format such as RGB, GRAY, or CMYK.+foreign import ccall "MagickSetSize" magickSetSize+  :: Ptr MagickWand+  -> CSize                        -- ^ columns+  -> CSize                        -- ^ rows+  -> IO MagickBooleanType+++-- | MagickGetSize() returns the size associated with the magick wand.+foreign import ccall "MagickGetSize" magickGetSize+  :: Ptr MagickWand+  -> Ptr CSize                    -- ^ the width in pixels+  -> Ptr CSize                    -- ^ the height in pixels+  -> IO MagickBooleanType+++-- |  MagickGaussianBlurImage() blurs an image. We convolve the image with a Gaussian operator+-- of the given radius and standard deviation (sigma). For reasonable results, the radius should+-- be larger than sigma. Use a radius of 0 and MagickGaussianBlurImage() selects a suitable radius for you.+foreign import ccall "MagickGaussianBlurImage" magickGaussianBlurImage+  :: Ptr MagickWand+  -> CDouble    -- ^ radius+  -> CDouble    -- ^ sigma+  -> IO MagickBooleanType+++foreign import ccall "MagickGaussianBlurImage" magickGaussianBlurImageChannel+  :: Ptr MagickWand+  -> ChannelType+  -> CDouble    -- ^ radius+  -> CDouble    -- ^ sigma+  -> IO MagickBooleanType+++-- | MagickSetImageArtifact() associates a artifact with an image.+-- The format of the MagickSetImageArtifact method is:+foreign import ccall "MagickSetImageArtifact" magickSetImageArtifact+  :: Ptr MagickWand+  -> CString+  -> CString+  -> IO MagickBooleanType++-- | MagickDeleteImageArtifact() deletes a wand artifact.+foreign import ccall "MagickDeleteImageArtifact" magickDeleteImageArtifact+  :: Ptr MagickWand+  -> CString+  -> IO MagickBooleanType++-- | MagickSetIteratorIndex() set the iterator to the given position+-- in the image list specified with the index parameter. A zero index+-- will set the first image as current, and so on. Negative indexes+-- can be used to specify an image relative to the end of the images+-- in the wand, with -1 being the last image in the wand.+--+-- If the index is invalid (range too large for number of images in+-- wand) the function will return MagickFalse, but no 'exception' will+-- be raised, as it is not actually an error. In that case the current+-- image will not change.+--+-- After using any images added to the wand using `magickAddImage` or+-- `magickReadImage` will be added after the image indexed, regardless+-- of if a zero (first image in list) or negative index (from end)+-- is used.+--+-- Jumping to index 0 is similar to `magickResetIterator` but differs+-- in how `magickNextImage` behaves afterward.+foreign import ccall "MagickSetIteratorIndex" magickSetIteratorIndex+  :: Ptr MagickWand+  -> CSize          -- ^ the scene number+  -> IO MagickBooleanType++-- | MagickResetIterator() resets the wand iterator.+--+-- It is typically used either before iterating though images, or+-- before calling specific functions such as `magickAppendImages`+-- to append all images together.+--+-- Afterward you can use `magickNextImage` to iterate over all the+-- images in a wand container, starting with the first image.+--+-- Using this before `magickAddImages` or `magickReadImages` will+-- cause new images to be inserted between the first and second image.+foreign import ccall "MagickResetIterator" magickResetIterator+  :: Ptr MagickWand+  -> IO ()++-- | MagickSetLastIterator() sets the wand iterator to the last image.+-- The last image is actually the current image, and the next use of+-- MagickPreviousImage() will not change this allowing this function+-- to be used to iterate over the images in the reverse direction.+-- In this sense it is more like MagickResetIterator() than+-- MagickSetFirstIterator().+-- Typically this function is used before MagickAddImage(),+-- MagickReadImage() functions to ensure new images are appended to+-- the very end of wand's image list.+foreign import ccall "MagickSetFirstIterator" magickSetFirstIterator+  :: Ptr MagickWand+  -> IO ()++-- | MagickSetFirstIterator() sets the wand iterator to the first image.+-- After using any images added to the wand using MagickAddImage() or+-- MagickReadImage() will be prepended before any image in the wand.+-- Also the current image has been set to the first image (if any) in+-- the Magick Wand. Using MagickNextImage() will then set teh current+-- image to the second image in the list (if present).+-- This operation is similar to MagickResetIterator() but differs in+-- how MagickAddImage(), MagickReadImage(), and MagickNextImage()+-- behaves afterward.+foreign import ccall "MagickSetLastIterator" magickSetLastIterator+  :: Ptr MagickWand+  -> IO ()++-- | MagickRelinquishMemory() relinquishes memory resources returned+-- by such methods as MagickIdentifyImage(), MagickGetException(), etc.+foreign import ccall "MagickRelinquishMemory" magickRelinquishMemory+  :: Ptr () -> IO ()++foreign import ccall "MagickGetColorspace" magickGetColorspace+  :: Ptr MagickWand -> IO ColorspaceType++foreign import ccall "MagickGetColorspace" magickSetColorspace+  :: Ptr MagickWand -> ColorspaceType -> IO MagickBooleanType++foreign import ccall "MagickGetCompressionQuality" magickGetCompressionQuality+  :: Ptr MagickWand -> IO CSize++foreign import ccall "MagickSetCompressionQuality" magickSetCompressionQuality+  :: Ptr MagickWand -> CSize -> IO MagickBooleanType++foreign import ccall "MagickGetCompression" magickGetCompression+  :: Ptr MagickWand -> IO CompressionType++foreign import ccall "MagickSetCompression" magickSetCompression+  :: Ptr MagickWand -> CompressionType -> IO MagickBooleanType
+ src/Graphics/ImageMagick/MagickWand/FFI/PixelIterator.hsc view
@@ -0,0 +1,131 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickWand.FFI.PixelIterator+  where++import           Foreign+import           Foreign.C.String+import           Foreign.C.Types++import           Graphics.ImageMagick.MagickCore.Types+import           Graphics.ImageMagick.MagickWand.FFI.Types++#include <wand/MagickWand.h>++-- | ClearPixelIterator() clear resources associated with a PixelIterator.+foreign import ccall "ClearPixelIterator" clearPixelIterator+  :: Ptr PixelIterator -> IO ()++-- | ClonePixelIterator() makes an exact copy of the specified iterator.+foreign import ccall "ClonePixelIterator" clonePixelIterator+  :: Ptr PixelIterator -> IO (Ptr PixelIterator)++-- | DestroyPixelIterator() deallocates resources associated with a PixelIterator.+foreign import ccall "DestroyPixelIterator" destroyPixelIterator+  :: Ptr PixelIterator -> IO (Ptr PixelIterator)++-- | IsPixelIterator() returns MagickTrue if the iterator is verified as a pixel iterator.+foreign import ccall "IsPixelIterator" isPixelIterator+  :: Ptr PixelIterator -> IO MagickBooleanType++foreign import ccall "NewPixelIterator" newPixelIterator+  :: Ptr MagickWand -> IO (Ptr PixelIterator)++-- | NewPixelRegionIterator() returns a new pixel iterator.+foreign import ccall "NewPixelRegionIterator" newPixelRegionIterator+  :: Ptr MagickWand -> CSize -> CSize -> CSize -> CSize -> IO (Ptr PixelIterator)+++-- | PixelClearIteratorException() clear any exceptions associated with the iterator.+foreign import ccall "PixelClearIteratorException" pixelClearIteratorException+  :: Ptr PixelIterator -> IO MagickBooleanType++-- | PixelGetIteratorException() returns the severity, reason, and description of any+-- error that occurs when using other methods in this API.+foreign import ccall "PixelGetIteratorException" pixelGetIteratorException+  :: Ptr PixelIterator -> Ptr ExceptionType -> IO CString++-- | PixelGetIteratorExceptionType() the exception type associated with the iterator.+--   If no exception has occurred, UndefinedExceptionType is returned.+foreign import ccall "PixelGetIteratorExceptionType" pixelGetIteratorExceptionType+  :: Ptr PixelIterator -> IO ExceptionType++{- | PixelGetCurrentIteratorRow() returns the current row as an array of pixel wands from the pixel iterator.+-}+foreign import ccall "PixelGetCurrentIteratorRow" pixelGetCurrentIteratorRow+  :: Ptr PixelIterator -> CSize -> Ptr (Ptr PixelWand)++-- | PixelGetIteratorRow() returns the current pixel iterator row.+foreign import ccall "PixelGetIteratorRow" pixelGetIteratorRow+  :: Ptr PixelIterator -> IO ()++-- | PixelGetNextIteratorRow() returns the next row as an array of pixel wands from the pixel iterator.+foreign import ccall "PixelGetNextIteratorRow" pixelGetNextIteratorRow+  :: Ptr PixelIterator  -- ^ iterator+  -> Ptr CSize          -- ^ number of pixel wands+  -> IO (Ptr (Ptr PixelWand))++{-+      PixelGetPreviousIteratorRow++      PixelGetPreviousIteratorRow() returns the previous row as an array of pixel wands from the pixel iterator.++      The format of the PixelGetPreviousIteratorRow method is:++        PixelWand **PixelGetPreviousIteratorRow(PixelIterator *iterator,+            size_t *number_wands)++            A description of each parameter follows:+            iterator++            the pixel iterator.+            number_wands++            the number of pixel wands.+              PixelSetFirstIteratorRow++              PixelSetFirstIteratorRow() sets the pixel iterator to the first pixel row.++              The format of the PixelSetFirstIteratorRow method is:++                void PixelSetFirstIteratorRow(PixelIterator *iterator)++                A description of each parameter follows:+                iterator++                the magick iterator.+                PixelSetIteratorRow++                PixelSetIteratorRow() set the pixel iterator row.++                The format of the PixelSetIteratorRow method is:++                  MagickBooleanType PixelSetIteratorRow(PixelIterator *iterator,+                      const ssize_t row)++                      A description of each parameter follows:+                      iterator++                      the pixel iterator.+                      PixelSetLastIteratorRow++                      PixelSetLastIteratorRow() sets the pixel iterator to the last pixel row.++                      The format of the PixelSetLastIteratorRow method is:++                        void PixelSetLastIteratorRow(PixelIterator *iterator)++                        A description of each parameter follows:+                        iterator++                        the magick iterator.+-}++foreign import ccall "PixelSyncIterator" pixelSyncIterator+  :: Ptr PixelIterator -> IO MagickBooleanType++-- | PixelResetIterator() resets the pixel iterator. Use it in conjunction+-- with PixelGetNextIteratorRow() to iterate over all the pixels in a pixel container.+foreign import ccall "PixelResetIterator" pixelResetIterator+  :: Ptr PixelIterator -> IO ()
+ src/Graphics/ImageMagick/MagickWand/FFI/PixelWand.hsc view
@@ -0,0 +1,276 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}++module Graphics.ImageMagick.MagickWand.FFI.PixelWand+  where++import           Foreign+import           Foreign.C.String+import           Foreign.C.Types++import           Graphics.ImageMagick.MagickCore.Types+import           Graphics.ImageMagick.MagickWand.FFI.Types++#include <wand/MagickWand.h>++-- | DestroyPixelWand() deallocates resources associated with a PixelWand.++foreign import ccall "DestroyPixelWand" destroyPixelWand+  :: Ptr PixelWand -> IO (Ptr PixelWand)++foreign import ccall "DestroyPixelWands" destroyPixelWands+  :: Ptr PixelWand -> CSize -> IO ()++foreign import ccall "IsPixelWand" isPixelWand+  :: Ptr PixelWand -> IO MagickBooleanType++-- | PixelGetMagickColor() gets the magick color of the pixel wand.+foreign import ccall "PixelGetMagickColor" pixelGetMagickColor+  :: Ptr PixelWand -> Ptr MagickPixelPacket -> IO ()++-- | PixelSetMagickColor() sets the color of the pixel wand.+foreign import ccall "PixelSetMagickColor" pixelSetMagickColor+  :: Ptr PixelWand -> Ptr MagickPixelPacket -> IO ()++foreign import ccall "ClearPixelWand" clearPixelWand+  :: Ptr PixelWand -> IO ()++foreign import ccall "ClonePixelWand" clonePixelWand+  :: Ptr PixelWand -> IO (Ptr PixelWand)++-- | NewPixelWand() returns a new pixel wand.+foreign import ccall "NewPixelWand" newPixelWand+  :: IO (Ptr PixelWand)++-- | NewPixelWands() returns an array of pixel wands.+foreign import ccall "NewPixelWands" newPixelWands+  :: CSize -> IO (Ptr (Ptr PixelWand))++-- | PixelSetColor() sets the color of the pixel wand with a string (e.g. "blue", "#0000ff", "rgb(0,0,255)", "cmyk(100,100,100,10)", etc.).+foreign import ccall "PixelSetColor" pixelSetColor+  :: Ptr PixelWand -> CString -> IO MagickBooleanType++-- | PixelClearException() clear any exceptions associated with the iterator.+foreign import ccall "PixelClearException" pixelClearException+  :: Ptr PixelWand -> IO MagickBooleanType++-- | PixelGetException() returns the severity, reason, and description of any+--   error that occurs when using other methods in this API.+foreign import ccall "PixelGetException" pixelGetException+  :: Ptr PixelWand -> Ptr ExceptionType -> IO CString++-- | PixelGetExceptionType() the exception type associated with the wand.+--   If no exception has occurred, UndefinedExceptionType is returned.+foreign import ccall "PixelGetExceptionType" pixelGetExceptionType+  :: Ptr PixelWand -> IO ExceptionType++-- | PixelGetColorAsString() returnsd the color of the pixel wand as a string.+foreign import ccall "PixelGetColorAsString" pixelGetColorAsString+  :: Ptr PixelWand -> IO CString++-- | PixelGetColorAsNormalizedString() returns the normalized color of the pixel wand as a string.+foreign import ccall "PixelGetColorAsNormalizedString" pixelGetColorAsNormalizedString+  :: Ptr PixelWand -> IO CString++-- | PixelGetRed) returns the normalized red color of the pixel wand.+foreign import ccall "PixelSetRed" pixelSetRed+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelSetRedQuantum() sets the red color of the pixel wand.+foreign import ccall "PixelSetRedQuantum" pixelSetRedQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++-- | PixelGetRed) returns the normalized red color of the pixel wand.+foreign import ccall "PixelGetRed" pixelGetRed+  :: Ptr PixelWand -> IO CDouble++-- | PixelGetRedQuantum() returns the red color of the pixel wand.+foreign import ccall "PixelGetRedQuantum" pixelGetRedQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelGetGreen) returns the normalized green color of the pixel wand.+foreign import ccall "PixelGetGreen" pixelGetGreen+  :: Ptr PixelWand -> IO CDouble++-- | PixelGetGreenQuantum() returns the green color of the pixel wand.+foreign import ccall "PixelGetGreenQuantum" pixelGetGreenQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetGreen() sets the green color of the pixel wand.+foreign import ccall "PixelSetGreen" pixelSetGreen+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelSetGreenQuantum() sets the green color of the pixel wand.+foreign import ccall "PixelSetGreenQuantum" pixelSetGreenQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++-- | PixelGetBlue() returns the normalized blue color of the pixel wand.+foreign import ccall "PixelGetBlue" pixelGetBlue+  :: Ptr PixelWand -> IO CDouble++foreign import ccall "PixelSetBlue" pixelSetBlue+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelGetBlueQuantum() returns the blue color of the pixel wand.+foreign import ccall "PixelGetBlueQuantum" pixelGetBlueQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetBlueQuantum() sets the blue color of the pixel wand.+foreign import ccall "PixelSetBlueQuantum" pixelSetBlueQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++-- | IsPixelWandSimilar() returns MagickTrue if the distance between+-- two colors is less than the specified distance.+foreign import ccall "IsPixelWandSimilar" isPixelWandSimilar+  :: Ptr PixelWand -> Ptr PixelWand+     -> CDouble -- ^ any two colors that are less than or equal to this distance squared are consider similar+     -> IO MagickBooleanType++-- | PixelGetCyan) returns the normalized blue color of the pixel wand.+foreign import ccall "PixelGetCyan" pixelGetCyan+  :: Ptr PixelWand -> IO CDouble++foreign import ccall "PixelSetCyan" pixelSetCyan+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelGetCyanQuantum() returns the blue color of the pixel wand.+foreign import ccall "PixelGetCyanQuantum" pixelGetCyanQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetCyanQuantum() sets the blue color of the pixel wand.+foreign import ccall "PixelSetCyanQuantum" pixelSetCyanQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++-- | PixelGetMagenta) returns the normalized blue color of the pixel wand.+foreign import ccall "PixelGetMagenta" pixelGetMagenta+  :: Ptr PixelWand -> IO CDouble++foreign import ccall "PixelSetMagenta" pixelSetMagenta+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelGetMagentaQuantum() returns the blue color of the pixel wand.+foreign import ccall "PixelGetMagentaQuantum" pixelGetMagentaQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetMagentaQuantum() sets the blue color of the pixel wand.+foreign import ccall "PixelSetMagentaQuantum" pixelSetMagentaQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++-- | PixelGetYellow) returns the normalized blue color of the pixel wand.+foreign import ccall "PixelGetYellow" pixelGetYellow+  :: Ptr PixelWand -> IO CDouble++foreign import ccall "PixelSetYellow" pixelSetYellow+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelGetYellowQuantum() returns the blue color of the pixel wand.+foreign import ccall "PixelGetYellowQuantum" pixelGetYellowQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetYellowQuantum() sets the blue color of the pixel wand.+foreign import ccall "PixelSetYellowQuantum" pixelSetYellowQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++-- | PixelGetBlack) returns the normalized blue color of the pixel wand.+foreign import ccall "PixelGetBlack" pixelGetBlack+  :: Ptr PixelWand -> IO CDouble++foreign import ccall "PixelSetBlack" pixelSetBlack+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelGetBlackQuantum() returns the blue color of the pixel wand.+foreign import ccall "PixelGetBlackQuantum" pixelGetBlackQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetBlackQuantum() sets the blue color of the pixel wand.+foreign import ccall "PixelSetBlackQuantum" pixelSetBlackQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++-- | PixelGetAlpha) returns the normalized blue color of the pixel wand.+foreign import ccall "PixelGetAlpha" pixelGetAlpha+  :: Ptr PixelWand -> IO CDouble++-- | PixelGetAlphaQuantum() returns the blue color of the pixel wand.+foreign import ccall "PixelGetAlphaQuantum" pixelGetAlphaQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetAlphaQuantum() sets the blue color of the pixel wand.+foreign import ccall "PixelSetAlphaQuantum" pixelSetAlphaQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++foreign import ccall "PixelSetAlpha" pixelSetAlpha+  :: Ptr PixelWand -> CDouble -> IO ()++-- | PixelGetOpacity) returns the normalized blue color of the pixel wand.+foreign import ccall "PixelGetOpacity" pixelGetOpacity+  :: Ptr PixelWand -> IO CDouble++-- | PixelGetOpacityQuantum() returns the blue color of the pixel wand.+foreign import ccall "PixelGetOpacityQuantum" pixelGetOpacityQuantum+  :: Ptr PixelWand -> IO Quantum++-- | PixelSetOpacityQuantum() sets the blue color of the pixel wand.+foreign import ccall "PixelSetOpacityQuantum" pixelSetOpacityQuantum+  :: Ptr PixelWand -> Quantum -> IO ()++foreign import ccall "PixelSetOpacity" pixelSetOpacity+  :: Ptr PixelWand -> CDouble -> IO ()++++-- | PixelGetColorCount() returns the color count associated with this color.+foreign import ccall "PixelGetColorCount" pixelGetColorCount+  :: Ptr PixelWand -> IO CSize++-- | PixelSetColorCount() sets the color count of the pixel wand.+foreign import ccall "PixelSetColorCount" pixelSetColorCount+  :: Ptr PixelWand -> CSize -> IO ()++-- PixelGetHSL() returns the normalized HSL color of the pixel wand.+foreign import ccall "PixelGetHSL" pixelGetHSL+  :: Ptr PixelWand -> Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ()++-- | PixelSetHSL() sets the normalized HSL color of the pixel wand.+foreign import ccall "PixelSetHSL" pixelSetHSL+  :: Ptr PixelWand -> CDouble -> CDouble -> CDouble -> IO ()+++-- | PixelSetColorFromWand() sets the color of the pixel wand.+foreign import ccall "PixelSetColorFromWand" pixelSetColorFromWand+  :: Ptr PixelWand -> Ptr PixelWand -> IO ()+++-- | PixelGetIndex() returns the colormap index from the pixel wand.+foreign import ccall "PixelGetIndex" pixelGetIndex+  :: Ptr PixelWand -> IO IndexPacket+++-- | PixelSetIndex() sets the colormap index of the pixel wand.+foreign import ccall "PixelSetColor" pixelSetIndex+  :: Ptr PixelWand -> IndexPacket -> IO ()++-- | PixelGetQuantumColor() gets the color of the pixel wand as a PixelPacket.+foreign import ccall "PixelGetQuantumColor" pixelGetQuantumColor+  :: Ptr PixelWand -> Ptr PixelPacket -> IO ()++-- | PixelGetQuantumColor() gets the color of the pixel wand as a PixelPacket.+foreign import ccall "PixelSetQuantumColor" pixelSetQuantumColor+  :: Ptr PixelWand -> Ptr PixelPacket -> IO ()++-- | PixelGetFuzz() returns the normalized fuzz value of the pixel wand.+foreign import ccall "PixelGetFuzz" pixelGetFuzz+  :: Ptr PixelWand -> IO CDouble++-- | PixelSetFuzz() sets the fuzz value of the pixel wand.+foreign import ccall "PixelSetFuzz" pixelSetFuzz+  :: Ptr PixelWand -> CDouble -> IO ()++{-+ClonePixelWands() makes an exact copy of the specified wands.++The format of the ClonePixelWands method is:++  PixelWand **ClonePixelWands(const PixelWand **wands,+    const size_t number_wands)++-}
+ src/Graphics/ImageMagick/MagickWand/FFI/Types.hsc view
@@ -0,0 +1,97 @@+{-# LANGUAGE CPP, ForeignFunctionInterface, NoMonomorphismRestriction, RankNTypes #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}++module Graphics.ImageMagick.MagickWand.FFI.Types+  where++#include <wand/MagickWand.h>++import Control.Monad++import Foreign+import Foreign.C.Types++data PixelIterator+data MagickWand+data PixelWand+data DrawingWand+data Image+data PointInfo = PointInfo {piX, piY :: CDouble}+               deriving (Eq, Show)++instance Storable PointInfo where+  sizeOf = const #size PointInfo+  alignment _ = 1+  poke p foo  = do+    #{poke PointInfo, x} p $ piX foo+    #{poke PointInfo, y} p $ piY foo++  peek p = return PointInfo+              `ap` (#{peek PointInfo, x} p)+              `ap` (#{peek PointInfo, y} p)+++newtype MagickBooleanType = MagickBooleanType { unMagickBooleanType :: CInt}+  deriving (Eq, Show, Storable)++#{enum MagickBooleanType, MagickBooleanType +  , mFalse = MagickFalse+  , mTrue  = MagickTrue+}++newtype ClassType = ClassType { unClassType :: CInt}+  deriving (Eq, Show)++#{enum ClassType, ClassType+  , undefinedClass = UndefinedClass+  , directClass    = DirectClass+  , pseudoClass    = PseudoClass+}++newtype LineCap = LineCap { unLineCap :: CInt }+#{enum LineCap, LineCap+  , udefinedCap = UndefinedCap+  , buttCap = ButtCap+  , roundCap = RoundCap+  , squareCap = SquareCap+}++newtype LineJoin = LineJoin { unLineJoin :: CInt }+#{enum LineJoin, LineJoin+  , undefinedJoin = UndefinedJoin+  , mitterJoin = MiterJoin+  , roundJoin = RoundJoin+  , bevelJoin = BevelJoin+}++newtype FillRule = FillRule { unFillRule :: CInt }+#{enum FillRule, FillRule+ , undefinedRule = UndefinedRule+ , evenOddRule = EvenOddRule+ , nonZeroRule = NonZeroRule+}++data MagickPixelPacket ++instance Storable MagickPixelPacket where+  sizeOf = const #size MagickPixelPacket+  alignment _ = 1+  peek = error "not yet implemented"+  poke = error "not yet implemented"++getPixelRed, getPixelGreen, getPixelBlue, getPixelIndex+  :: Storable a => Ptr b -> IO a++getPixelRed   = #peek MagickPixelPacket, red+getPixelGreen = #peek MagickPixelPacket, green+getPixelBlue  = #peek MagickPixelPacket, blue+getPixelIndex = #peek MagickPixelPacket, index++setPixelRed, setPixelGreen, setPixelBlue, setPixelIndex+  :: Storable a => Ptr b -> a -> IO ()+  +setPixelRed   = #poke MagickPixelPacket, red+setPixelGreen = #poke MagickPixelPacket, green+setPixelBlue  = #poke MagickPixelPacket, blue+setPixelIndex = #poke MagickPixelPacket, index+
+ src/Graphics/ImageMagick/MagickWand/FFI/WandImage.hsc view
@@ -0,0 +1,651 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickWand.FFI.WandImage+  where++import           Foreign+import           Foreign.C.String+import           Foreign.C.Types++import           Graphics.ImageMagick.MagickCore.Types+import           Graphics.ImageMagick.MagickWand.FFI.Types++#include <wand/MagickWand.h>++-- | MagickGetImageHeight() returns the image height.+foreign import ccall "MagickGetImageHeight" magickGetImageHeight+  :: Ptr MagickWand -> IO CSize++-- | MagickGetImageWidth() returns the image width.+foreign import ccall "MagickGetImageWidth" magickGetImageWidth+  :: Ptr MagickWand -> IO CSize++-- | MagickGetImagePixelColor() returns the color of the specified pixel.+foreign import ccall "MagickGetImagePixelColor" magickGetImagePixelColor+  :: Ptr MagickWand+  -> CSize          -- ^ pixel x coordinate+  -> CSize          -- ^ pixel y coordinate+  -> Ptr PixelWand  -- ^ return the colormap color in this wand+  -> IO MagickBooleanType++-- |  MagickGetImageCompressionQuality() gets the image compression quality.+foreign import ccall "MagickGetImageCompressionQuality" magickGetImageCompressionQuality+  :: Ptr MagickWand -> IO CSize++-- | MagickSetImageCompression() sets the image compression.+foreign import ccall "MagickSetImageCompression" magickSetImageCompression+  :: Ptr MagickWand -> CompressionType -> IO MagickBooleanType++-- | MagickSetImageCompressionQuality() sets the image compression quality.+foreign import ccall "MagickSetImageCompressionQuality" magickSetImageCompressionQuality+  :: Ptr MagickWand -> CSize -> IO MagickBooleanType++-- | MagickGetImageBackgroundColor() returns the image background color.+foreign import ccall "MagickGetImageBackgroundColor" magickGetImageBackgroundColor+  :: Ptr MagickWand -> Ptr PixelWand -> IO MagickBooleanType++-- | MagickSetImageBackgroundColor() sets the image background color.+foreign import ccall "MagickSetImageBackgroundColor" magickSetImageBackgroundColor+  :: Ptr MagickWand -> Ptr PixelWand -> IO MagickBooleanType++-- | MagickExtentImage() extends the image as defined by the geometry, gravity,+-- and wand background color. Set the (x,y) offset of the geometry to move the+-- original wand relative to the extended wand.+foreign import ccall "MagickExtentImage" magickExtentImage+  :: Ptr MagickWand  -- ^ wand+  -> CSize           -- ^ width+  -> CSize           -- ^ height+  -> CSize           -- ^ x offset+  -> CSize           -- ^ y offset+  -> IO MagickBooleanType++-- | MagickFloodfillPaintImage() changes the color value of any pixel+-- that matches target and is an immediate neighbor. If the method FillToBorderMethod+-- is specified, the color value is changed for any neighbor pixel that does+-- not match the bordercolor member of image.+foreign import ccall "MagickFloodfillPaintImage" magickFloodfillPaintImage+  :: Ptr MagickWand    -- ^ wand+  -> ChannelType       -- ^ channel+  -> Ptr PixelWand     -- ^ fill+  -> CDouble           -- ^ fuzz+  -> Ptr PixelWand     -- ^ bordercolor+  -> CSize             -- ^ x offset+  -> CSize             -- ^ y offset+  -> MagickBooleanType -- ^ invert+  -> IO MagickBooleanType++-- | MagickNegateImage() negates the colors in the reference image.+-- The Grayscale option means that only grayscale values within the image are negated.+-- You can also reduce the influence of a particular channel with a gamma value of 0.+foreign import ccall "MagickNegateImage" magickNegateImage+  :: Ptr MagickWand+  -> MagickBooleanType      -- ^ negate gray+  -> IO MagickBooleanType++foreign import ccall "MagickNegateImageChannel" magickNegateImageChannel+  :: Ptr MagickWand+  -> ChannelType+  -> MagickBooleanType       -- ^ negate gray+  -> IO MagickBooleanType++-- | MagickGetImageClipMask() gets the image clip mask at the current image index.+foreign import ccall "MagickGetImageClipMask" magickGetImageClipMask+  :: Ptr MagickWand+  -> IO (Ptr MagickWand)++-- | MagickSetImageClipMask() sets image clip mask.+foreign import ccall "MagickSetImageClipMask" magickSetImageClipMask+  :: Ptr MagickWand+  -> Ptr MagickWand+  -> IO MagickBooleanType++-- | MagickCompositeImage() composite one image onto another at the specified offset.+foreign import ccall "MagickCompositeImage" magickCompositeImage+  :: Ptr MagickWand+  -> Ptr MagickWand      -- ^ source+  -> CompositeOperator+  -> CSize               -- ^ column offset+  -> CSize               -- ^ row offset+  -> IO MagickBooleanType++foreign import ccall "MagickCompositeImage" magickCompositeImageChannel+  :: Ptr MagickWand+  -> Ptr MagickWand      -- ^ source+  -> ChannelType+  -> CompositeOperator+  -> CSize               -- ^ column offset+  -> CSize               -- ^ row offset+  -> IO MagickBooleanType++-- | MagickTransparentPaintImage() changes any pixel that matches color with the color defined by fill.+foreign import ccall "MagickTransparentPaintImage" magickTransparentPaintImage+  :: Ptr MagickWand+  -> Ptr PixelWand        -- ^ change this color to specified opacity value withing the image+  -> Double               -- ^ the level of transarency: 1.0 fully opaque 0.0 fully transparent+  -> Double               -- ^ By default target must match a particular pixel color exactly.+                          -- However, in many cases two colors may differ by a small amount.+                          -- The fuzz member of image defines how much tolerance is acceptable+                          -- to consider two colors as the same. For example, set fuzz to 10 and+                          -- the color red at intensities of 100 and 102 respectively are now+                          -- interpreted as the same color for the purposes of the floodfill.+  -> MagickBooleanType    -- paint any pixel that does not match the target color.+  -> IO MagickBooleanType++-- | MagickBorderImage() surrounds the image with a border of the color+-- defined by the bordercolor pixel wand.+foreign import ccall "MagickBorderImage" magickBorderImage+  :: Ptr MagickWand    -- ^ wand+  -> Ptr PixelWand     -- ^ bordercolor+  -> CSize             -- ^ width+  -> CSize             -- ^ height+  -> IO MagickBooleanType++-- | MagickShaveImage() shaves pixels from the image edges. It allocates+-- the memory necessary for the new Image structure and returns a pointer+-- to the new image.+foreign import ccall "MagickShaveImage" magickShaveImage+  :: Ptr MagickWand    -- ^ wand+  -> CSize             -- ^ columns+  -> CSize             -- ^ rows+  -> IO MagickBooleanType++-- | MagickSetImageAlphaChannel() activates, deactivates, resets, or+-- sets the alpha channel.+foreign import ccall "MagickSetImageAlphaChannel" magickSetImageAlphaChannel+  :: Ptr MagickWand    -- ^ wand+  -> AlphaChannelType  -- ^ alpha_type+  -> IO MagickBooleanType++-- | MagickNewImage() adds a blank image canvas of the specified size and background color to the wand.+foreign import ccall "MagickNewImage" magickNewImage+  :: Ptr MagickWand+  -> CSize                -- ^ width+  -> CSize                -- ^ height+  -> Ptr PixelWand        -- ^ background color+  -> IO MagickBooleanType++-- |  MagickDrawImage() renders the drawing wand on the current image.+foreign import ccall "MagickDrawImage" magickDrawImage+    :: Ptr MagickWand -> Ptr DrawingWand -> IO MagickBooleanType++-- | MagickFlopImage() creates a horizontal mirror image by reflecting the pixels around the central y-axis.+foreign import ccall "MagickFlopImage" magickFlopImage+  :: Ptr MagickWand -> IO MagickBooleanType+++-- |  MagickAddNoiseImage() adds random noise to the image.+--    The type of noise: Uniform, Gaussian, Multiplicative, Impulse, Laplacian, or Poisson.+foreign import ccall "MagickAddNoiseImage" magickAddNoiseImage+  :: Ptr MagickWand -> NoiseType -> IO MagickBooleanType++-- | MagickAddImage() adds a clone of the images from the second wand and inserts them into the first wand.+-- Use MagickSetLastIterator(), to append new images into an existing wand, current image will be set to+-- last image so later adds with also be appened to end of wand.+--+-- Use MagickSetFirstIterator() to prepend new images into wand, any more images added will also be prepended+-- before other images in the wand. However the order of a list of new images will not change.+--+-- Otherwise the new images will be inserted just after the current image, and any later image will also be+-- added after this current image but before the previously added images. Caution is advised when multiple+-- image adds are inserted into the middle of the wand image list.+foreign import ccall "MagickAddImage" magickAddImage+  :: Ptr MagickWand -> Ptr MagickWand -> IO MagickBooleanType++-- | MagickFlipImage() creates a vertical mirror image by reflecting the pixels around the central x-axis.+foreign import ccall "MagickFlipImage" magickFlipImage+  :: Ptr MagickWand -> IO MagickBooleanType++-- | MagickSetImageVirtualPixelMethod() sets the image virtual pixel method.+--   the image virtual pixel method : UndefinedVirtualPixelMethod, ConstantVirtualPixelMethod,+--   EdgeVirtualPixelMethod, MirrorVirtualPixelMethod, or TileVirtualPixelMethod.+foreign import ccall "MagickSetImageVirtualPixelMethod" magickSetVirtualPixelMethod+  :: Ptr MagickWand -> VirtualPixelMethod -> IO VirtualPixelMethod++-- | MagickAppendImages() append the images in a wand from the current image onwards,+-- creating a new wand with the single image result. This is affected by the gravity+-- and background settings of the first image.+-- Typically you would call either MagickResetIterator() or MagickSetFirstImage() before+-- calling this function to ensure that all the images in the wand's image list will be appended together.+foreign import ccall "MagickAppendImages" magickAppendImages+  :: Ptr MagickWand -> MagickBooleanType -> IO (Ptr MagickWand)++-- | MagickReadImage() reads an image or image sequence. The images are inserted at+-- the current image pointer position. Use MagickSetFirstIterator(), MagickSetLastIterator,+-- or MagickSetImageIndex() to specify the current image pointer position at the beginning+-- of the image list, the end, or anywhere in-between respectively.+foreign import ccall "MagickReadImage" magickReadImage+  :: Ptr MagickWand -> CString -> IO MagickBooleanType++-- | MagickReadImageBlob() reads an image or image sequence from a blob.+foreign import ccall "MagickReadImageBlob" magickReadImageBlob+  :: Ptr MagickWand -> Ptr () -> CSize -> IO MagickBooleanType++-- | MagickWriteImage() writes an image to the specified filename. If the filename+-- parameter is NULL, the image is written to the filename set by MagickReadImage()+-- or MagickSetImageFilename().+foreign import ccall "MagickWriteImage" magickWriteImage+  :: Ptr MagickWand -> CString -> IO (MagickBooleanType)++-- | MagickBlurImage() blurs an image. We convolve the image with a gaussian+-- operator of the given radius and standard deviation (sigma). For reasonable+-- results, the radius should be larger than sigma. Use a radius of 0 and+-- BlurImage() selects a suitable radius for you.+--+-- The format of the MagickBlurImage method is:+foreign import ccall "MagickBlurImage" magickBlurImage+  :: Ptr MagickWand -> CDouble -> CDouble -> IO MagickBooleanType++foreign import ccall "MagickBlurImageChannel" magickBlurImageChannel+  :: Ptr MagickWand -> ChannelType -> CDouble -> CDouble -> IO MagickBooleanType++-- | MagickNormalizeImage() enhances the contrast of a color image by adjusting+--   the pixels color to span the entire range of colors available+--+--   You can also reduce the influence of a particular channel with a gamma+--   value of 0.+foreign import ccall "MagickNormalizeImage" magickNormalizeImage+  :: Ptr MagickWand -> IO MagickBooleanType++foreign import ccall "MagickNormalizeImageChannel" magickNormalizeImageChannel+  :: Ptr MagickWand -> ChannelType -> IO MagickBooleanType++-- | MagickShadowImage() simulates an image shadow.+foreign import ccall "MagickShadowImage" magickShadowImage+  :: Ptr MagickWand+  -> CDouble       -- ^ percentage transparency+  -> CDouble       -- ^ the standard deviation of the Gaussian, in pixels+  -> CSize         -- ^ the shadow x-offset+  -> CSize         -- ^ the shadow y-offset+  -> IO MagickBooleanType++-- | MagickTrimImage() remove edges that are the background color from the image.+foreign import ccall "MagickTrimImage" magickTrimImage+  :: Ptr MagickWand -> CDouble -> IO MagickBooleanType++-- | MagickResetImagePage() resets the Wand page canvas and position.+foreign import ccall "MagickResetImagePage" magickResetImagePage+  :: Ptr MagickWand -> CString -> IO MagickBooleanType++-- | MagickDistortImage() distorts an image using various distortion methods,+-- by mapping color lookups of the source image to a new destination image usally+-- of the same size as the source image, unless 'bestfit' is set to true.+-- If 'bestfit' is enabled, and distortion allows it, the destination image+-- is adjusted to ensure the whole source 'image' will just fit within the final+-- destination image, which will be sized and offset accordingly. Also in many cases+-- the virtual offset of the source image will be taken into account in the mapping.+foreign import ccall "MagickDistortImage" magickDistortImage+  :: Ptr MagickWand+  -> DistortImageMethod -- ^ the method of image distortion+  -> CSize              -- ^ the number of arguments given for this distortion method+  -> Ptr CDouble        -- ^ the arguments for this distortion method+  -> MagickBooleanType  -- ^ attempt to resize destination to fit distorted source+  -> IO MagickBooleanType++-- | MagickShadeImage() shines a distant light on an image to create+-- a three-dimensional effect. You control the positioning of the light+-- with azimuth and elevation; azimuth is measured in degrees off the x axis+-- and elevation is measured in pixels above the Z axis.+foreign import ccall "MagickShadeImage" magickShadeImage+  :: Ptr MagickWand+  -> MagickBooleanType -- ^ a value other than zero shades the intensity of each pixel+  -> CDouble           -- ^ azimuth of the light source direction+  -> CDouble           -- ^ evelation of the light source direction+  -> IO MagickBooleanType++-- | MagickColorizeImage() blends the fill color with each pixel in the image.+foreign import ccall "MagickColorizeImage" magickColorizeImage+  :: Ptr MagickWand+  -> Ptr PixelWand     -- ^ the colorize pixel wand+  -> Ptr PixelWand     -- ^ the opacity pixel wand+  -> IO MagickBooleanType++-- | MagickFxImage() evaluate expression for each pixel in the image.+foreign import ccall "MagickFxImage" magickFxImage+  :: Ptr MagickWand+  -> CString     -- ^ the expression+  -> IO (Ptr MagickWand)++-- | MagickFxImageChannel() evaluate expression for each pixel in the image.+foreign import ccall "MagickFxImageChannel" magickFxImageChannel+  :: Ptr MagickWand+  -> ChannelType -- ^ the image channel(s)+  -> CString     -- ^ the expression+  -> IO (Ptr MagickWand)++-- | MagickSigmoidalContrastImage() adjusts the contrast of an image with a+-- non-linear sigmoidal contrast algorithm. Increase the contrast of the image+-- using a sigmoidal transfer function without saturating highlights or shadows.+-- Contrast indicates how much to increase the contrast (0 is none; 3 is typical;+-- 20 is pushing it); mid-point indicates where midtones fall in the resultant+-- image (0 is white; 50 is middle-gray; 100 is black). Set sharpen to `True`+-- to increase the image contrast otherwise the contrast is reduced.+foreign import ccall "MagickSigmoidalContrastImage" magickSigmoidalContrastImage+  :: Ptr MagickWand+  -> MagickBooleanType -- ^ increase or decrease image contrast+  -> CDouble           -- ^ strength of the contrast, the larger the number the more 'threshold-like' it becomes+  -> CDouble           -- ^ midpoint of the function as a color value 0 to `quantumRange`+  -> IO MagickBooleanType++-- | see `magickSigmoidalContrastImage`+foreign import ccall "MagickSigmoidalContrastImageChannel" magickSigmoidalContrastImageChannel+  :: Ptr MagickWand+  -> ChannelType       -- ^ identify which channel to level: `redChannel`, `greenChannel`+  -> MagickBooleanType -- ^ increase or decrease image contrast+  -> CDouble           -- ^ strength of the contrast, the larger the number the more 'threshold-like' it becomes+  -> CDouble           -- ^ midpoint of the function as a color value 0 to `quantumRange`+  -> IO MagickBooleanType++-- | MagickEvaluateImage() applies an arithmetic, relational, or logical+-- expression to an image. Use these operators to lighten or darken an image,+-- to increase or decrease contrast in an image, or to produce the "negative"+-- of an image.+foreign import ccall "MagickEvaluateImage" magickEvaluateImage+  :: Ptr MagickWand+  -> MagickEvaluateOperator -- ^ a channel operator+  -> CDouble                -- ^ value+  -> IO MagickBooleanType++-- | see `magickEvaluateImage`+foreign import ccall "MagickEvaluateImages" magickEvaluateImages+  :: Ptr MagickWand+  -> MagickEvaluateOperator -- ^ a channel operator+  -> IO MagickBooleanType++-- | see `magickEvaluateImage`+foreign import ccall "MagickEvaluateImageChannel" magickEvaluateImageChannel+  :: Ptr MagickWand+  -> ChannelType            -- ^ the channel(s)+  -> MagickEvaluateOperator -- ^ a channel operator+  -> CDouble                -- ^ value+  -> IO MagickBooleanType++-- | MagickRollImage() offsets an image as defined by x and y.+foreign import ccall "MagickRollImage" magickRollImage+  :: Ptr MagickWand+  -> CDouble                -- ^ the x offset+  -> CDouble                -- ^ the y offset+  -> IO MagickBooleanType++-- | MagickAnnotateImage() annotates an image with text.+foreign import ccall "MagickAnnotateImage" magickAnnotateImage+  :: Ptr MagickWand+  -> Ptr DrawingWand -- ^ the draw wand+  -> CDouble         -- ^ x ordinate to left of text+  -> CDouble         -- ^ y ordinate to text baseline+  -> CDouble         -- ^ rotate text relative to this angle+  -> CString         -- ^ text to draw+  -> IO MagickBooleanType++-- | MagickMergeImageLayers() composes all the image layers from the current+-- given image onward to produce a single image of the merged layers.+-- The inital canvas's size depends on the given ImageLayerMethod, and is+-- initialized using the first images background color. The images are then+-- compositied onto that image in sequence using the given composition that+-- has been assigned to each individual image.+foreign import ccall "MagickMergeImageLayers" magickMergeImageLayers+  :: Ptr MagickWand+  -> ImageLayerMethod -- ^ the method of selecting the size of the initial canvas+  -> IO (Ptr MagickWand)++-- | MagickOptimizeImageLayers() compares each image the GIF disposed+-- forms of the previous image in the sequence. From this it attempts+-- to select the smallest cropped image to replace each frame, while+-- preserving the results of the animation.+foreign import ccall "MagickOptimizeImageLayers" magickOptimizeImageLayers+  :: Ptr MagickWand+  -> IO (Ptr MagickWand)++-- | MagickOptimizeImageTransparency() takes a frame optimized GIF animation, and+-- compares the overlayed pixels against the disposal image resulting from all+-- the previous frames in the animation. Any pixel that does not change the+-- disposal image (and thus does not effect the outcome of an overlay) is made+-- transparent.+--+-- WARNING: This modifies the current images directly, rather than generate+-- a new image sequence.+foreign import ccall "MagickOptimizeImageTransparency" magickOptimizeImageTransparency+  :: Ptr MagickWand+  -> IO MagickBooleanType++-- | MagickTintImage() applies a color vector to each pixel in the image. The+-- length of the vector is 0 for black and white and at its maximum for the+-- midtones. The vector weighting function is f(x)=(1-(4.0*((x-0.5)*(x-0.5)))).+foreign import ccall "MagickTintImage" magickTintImage+  :: Ptr MagickWand+  -> Ptr PixelWand    -- ^ the tint pixel wand.+  -> Ptr PixelWand    -- ^ opacity pixel wand+  -> IO MagickBooleanType+++-- | MagickSetImageMatte() sets the image matte channel.+foreign import ccall "MagickSetImageMatte" magickSetImageMatte+  :: Ptr MagickWand+  -> MagickBooleanType+  -> IO MagickBooleanType++-- | MagickCropImage() extracts a region of the image.+foreign import ccall "MagickCropImage" magickCropImage+  :: Ptr MagickWand+  -> CSize         -- ^ the region width+  -> CSize         -- ^ the region height+  -> CSize         -- ^ the region x-offset+  -> CSize         -- ^ the region y-offset+  -> IO MagickBooleanType++-- | MagickShearImage() slides one edge of an image along the X or Y axis,+-- creating a parallelogram. An X direction shear slides an edge along the X axis,+-- while a Y direction shear slides an edge along the Y axis. The amount of+-- the shear is controlled by a shear angle. For X direction shears, x_shear is+-- measured relative to the Y axis, and similarly, for Y direction shears y_shear+-- is measured relative to the X axis. Empty triangles left over from shearing+-- the image are filled with the background color.+foreign import ccall "MagickShearImage" magickShearImage+  :: Ptr MagickWand+  -> Ptr PixelWand -- ^ the background pixel wand+  -> CDouble       -- ^ the number of degrees to shear the image+  -> CDouble       -- ^ the number of degrees to shear the image+  -> IO MagickBooleanType++-- | MagickScaleImage() scales the size of an image to the given dimensions.+foreign import ccall "MagickScaleImage" magickScaleImage+  :: Ptr MagickWand+  -> CSize       -- ^ the number of columns in the scaled image+  -> CSize       -- ^ the number of rows in the scaled image+  -> IO MagickBooleanType++-- | MagickSparseColorImage(), given a set of coordinates, interpolates the+-- colors found at those coordinates, across the whole image, using various methods.+--+-- The format of the MagickSparseColorImage method is:+--   ArcSparseColorion will always ignore source image offset, and always 'bestfit'+-- the destination image with the top left corner offset relative to the polar mapping center.+--+-- Bilinear has no simple inverse mapping so will not allow 'bestfit' style of image sparseion.+--+-- Affine, Perspective, and Bilinear, will do least squares fitting of the distrotion when more+-- than the minimum number of control point pairs are provided.+--+-- Perspective, and Bilinear, will fall back to a Affine sparseion when less than 4 control+-- point pairs are provided. While Affine sparseions will let you use any number of control+-- point pairs, that is Zero pairs is a No-Op (viewport only) distrotion, one pair is a+-- translation and two pairs of control points will do a scale-rotate-translate, without any+-- shearing.+foreign import ccall "MagickSparseColorImage" magickSparseColorImage+  :: Ptr MagickWand+  -> ChannelType+  -> SparseColorMethod+  -> CSize+  -> Ptr Double+  -> IO MagickBooleanType++-- | MagickFunctionImage() applys an arithmetic, relational, or logical expression to an image.+-- Use these operators to lighten or darken an image, to increase or decrease contrast in an+-- image, or to produce the "negative" of an image.+foreign import ccall "MagickFunctionImage" magickFunctionImage+  :: Ptr MagickWand+  -> MagickFunction+  -> CSize+  -> Ptr Double+  -> IO MagickBooleanType++foreign import ccall "MagickFunctionImageChannel" magickFunctionImageChannel+  :: Ptr MagickWand+  -> ChannelType+  -> MagickFunction+  -> CSize+  -> Ptr Double+  -> IO MagickBooleanType++-- | MagickCoalesceImages() composites a set of images while respecting+-- any page offsets and disposal methods. GIF, MIFF, and MNG animation+-- sequences typically start with an image background and each subsequent+-- image varies in size and offset. MagickCoalesceImages() returns a new+-- sequence where each image in the sequence is the same size as the+-- first and composited with the next image in the sequence.+foreign import ccall "MagickCoalesceImages" magickCoalesceImages+  :: Ptr MagickWand+  -> IO (Ptr MagickWand)++-- | MagickGetNumberImages() returns the number of images associated+-- with a magick wand.+foreign import ccall "MagickGetNumberImages" magickGetNumberImages+  :: Ptr MagickWand+  -> IO CSize++-- | MagickGetImage() gets the image at the current image index.+foreign import ccall "MagickGetImage" magickGetImage+  :: Ptr MagickWand+  -> IO (Ptr MagickWand)++-- | MagickCompareImageLayers() compares each image with the next in+-- a sequence and returns the maximum bounding region of any pixel+-- differences it discovers.+foreign import ccall "MagickCompareImageLayers" magickCompareImageLayers+  :: Ptr MagickWand+  -> ImageLayerMethod+  -> IO (Ptr MagickWand)++-- | MagickGetImageScene() gets the image scene+foreign import ccall "MagickGetImageScene" magickGetImageScene+  :: Ptr MagickWand -> IO CSize++-- | MagickRemoveImage() removes an image from the image list.+foreign import ccall "MagickRemoveImage" magickRemoveImage+  :: Ptr MagickWand -> IO MagickBooleanType++-- | MagickSetImage() replaces the last image returned by MagickSetImageIndex(),+-- MagickNextImage(), MagickPreviousImage() with the images from the specified+-- wand.+foreign import ccall "MagickSetImage" magickSetImage+  :: Ptr MagickWand -> Ptr MagickWand -> IO MagickBooleanType++-- | MagickImportImagePixels() accepts pixel data and stores it in the image at+-- the location you specify. The method returns MagickFalse on success otherwise+-- MagickTrue if an error is encountered. The pixel data can be either char,+-- short int, int, ssize_t, float, or double in the order specified by map.+--+-- Suppose your want to upload the first scanline of a 640x480 image from+-- character data in red-green-blue order:+--   magickImportImagePixels wand 0 0 640 1 "RGB" charPixel pixels+foreign import ccall "MagickImportImagePixels" magickImportImagePixels+  :: Ptr MagickWand+  -> CSize          -- ^ x+  -> CSize          -- ^ y+  -> CSize          -- ^ width+  -> CSize          -- ^ height+  -> CString        -- ^ this string reflects the expected ordering of the pixel array.+                    -- It can be any combination or order of R = red, G = green, B = blue, A = alpha+                    -- (0 is transparent), O = opacity (0 is opaque), C = cyan, Y = yellow, M = magenta,+                    -- K = black, I = intensity (for grayscale), P = pad.+  -> StorageType    -- define the data type of the pixels. Float and double types are expected+                    -- to be normalized [0..1] otherwise [0..QuantumRange]. Choose from these+                    -- types: CharPixel, ShortPixel, IntegerPixel, LongPixel, FloatPixel, or DoublePixel.+  -> Ptr ()         -- ^ This array of values contain the pixel components as defined by map and type.+                    -- You must preallocate this array where the expected length varies depending on+                    -- the values of width, height, map, and type+  -> IO MagickBooleanType++-- | MagickExportImagePixels() extracts pixel data from an image and returns it+-- to you. The method returns MagickTrue on success otherwise MagickFalse if an+-- error is encountered. The data is returned as char, short int, int, ssize_t,+-- float, or double in the order specified by map.+foreign import ccall "MagickExportImagePixels" magickExportImagePixels+  :: Ptr MagickWand+  -> CSize          -- ^ x+  -> CSize          -- ^ y+  -> CSize          -- ^ width+  -> CSize          -- ^ height+  -> CString        -- ^ this string reflects the expected ordering of the pixel array.+                    -- It can be any combination or order of R = red, G = green, B = blue, A = alpha+                    -- (0 is transparent), O = opacity (0 is opaque), C = cyan, Y = yellow, M = magenta,+                    -- K = black, I = intensity (for grayscale), P = pad.+  -> StorageType    -- define the data type of the pixels. Float and double types are expected+                    -- to be normalized [0..1] otherwise [0..QuantumRange]. Choose from these+                    -- types: CharPixel, ShortPixel, IntegerPixel, LongPixel, FloatPixel, or DoublePixel.+  -> Ptr ()         -- ^ This array of values contain the pixel components as defined by map and type.+                    -- You must preallocate this array where the expected length varies depending on+                    -- the values of width, height, map, and type+  -> IO MagickBooleanType++-- | MagickRotateImage() rotates an image the specified number of degrees.+-- Empty triangles left over from rotating the image are filled with the+-- background color.+foreign import ccall "MagickRotateImage" magickRotateImage+  :: Ptr MagickWand -> Ptr PixelWand -> CDouble -> IO MagickBooleanType++-- | MagickSetImageDepth() sets the image depth.+foreign import ccall "MagickSetImageDepth" magickSetImageDepth+  :: Ptr MagickWand -> CSize -> IO MagickBooleanType++-- | MagickSetImageDelay() sets the image delay.+foreign import ccall "MagickSetImageDelay" magickSetImageDelay+  :: Ptr MagickWand -> CSize -> IO MagickBooleanType++-- | MagickGetImageDelay() gets the image delay.+foreign import ccall "MagickGetImageDelay" magickGetImageDelay+  :: Ptr MagickWand -> IO CSize++-- | MagickGetImageBlob() implements direct to memory image formats.+-- It returns the image as a blob (a formatted "file" in memory) and+-- its length, starting from the current position in the image sequence.+-- Use MagickSetImageFormat() to set the format to write to the blob (GIF, JPEG, PNG, etc.).+-- Utilize MagickResetIterator() to ensure the write is from the beginning of the image sequence.+-- Use MagickRelinquishMemory() to free the blob when you are done with it.+-- The format of the MagickGetImageBlob method is:+foreign import ccall "MagickGetImageBlob" magickGetImageBlob+  :: Ptr MagickWand -> Ptr CSize -> IO (Ptr CChar)++-- | MagickGetImagesBlob() implements direct to memory image formats ideal+-- for use with sequenced images to get a dump of the whole sequence+foreign import ccall "MagickGetImagesBlob" magickGetImagesBlob+  :: Ptr MagickWand -> Ptr CSize -> IO (Ptr CChar)++-- | MagickGetImageDepth() gets the image depth.+foreign import ccall "MagickGetImageDepth" magickGetImageDepth+  :: Ptr MagickWand -> IO CSize++-- | MagickGetImageFormat() returns the format of a particular image in a sequence.+foreign import ccall "MagickGetImageFormat" magickGetImageFormat+  :: Ptr MagickWand -> IO CString++-- | MagickSetImageFormat() sets the format of a particular image in a sequence.+foreign import ccall "MagickSetImageFormat" magickSetImageFormat+  :: Ptr MagickWand -> CString -> IO MagickBooleanType++-- | MagickStripImage() strips an image of all profiles and comments.+foreign import ccall "MagickStripImage" magickStripImage+  :: Ptr MagickWand -> IO MagickBooleanType++-- | MagickGetImageSignature() generates an SHA-256 message digest for the image pixel stream.+foreign import ccall "MagickGetImageSignature" magickGetImageSignature+  :: Ptr MagickWand -> IO CString++-- | MagickGetImageAlphaChannel() returns MagickFalse if the image alpha+-- channel is not activated. That is, the image is RGB rather than RGBA+-- or CMYK rather than CMYKA.+foreign import ccall "MagickGetImageAlphaChannel" magickGetImageAlphaChannel+  :: Ptr MagickWand -> IO MagickBooleanType++-- | MagickSetImageType() sets the image type.+foreign import ccall "MagickSetImageType" magickSetImageType+  :: Ptr MagickWand -> ImageType -> IO MagickBooleanType
+ src/Graphics/ImageMagick/MagickWand/FFI/WandProperties.hsc view
@@ -0,0 +1,136 @@+{-# LANGUAGE CPP                      #-}+{-# LANGUAGE ForeignFunctionInterface #-}+module Graphics.ImageMagick.MagickWand.FFI.WandProperties+  where++import           Foreign+import           Foreign.C.String+import           Foreign.C.Types++import           Graphics.ImageMagick.MagickWand.FFI.Types+++foreign import ccall "MagickDeleteOption" magickDeleteOption+  :: Ptr MagickWand+  -> CString        -- ^ the key+  -> IO MagickBooleanType++-- | MagickGetOption() returns a value associated with a wand+-- and the specified key. Use MagickRelinquishMemory() to free+-- the value when you are finished with it.+foreign import ccall "MagickGetOption" magickGetOption+  :: Ptr MagickWand+  -> CString        -- ^ the key+  -> IO CString++-- | MagickSetOption() associates one or options with the wand+-- (e.g. MagickSetOption(wand,"jpeg:perserve","yes")).+foreign import ccall "MagickSetOption" magickSetOption+  :: Ptr MagickWand+  -> CString        -- ^ the key+  -> CString        -- ^ the value+  -> IO MagickBooleanType++-- | MagickGetOptions() returns all the option names that match the+-- specified pattern associated with a wand. Use MagickGetOption()+-- to return the value of a particular option. Use MagickRelinquishMemory()+-- to free the value when you are finished with it.+foreign import ccall "MagickGetOptions" magickGetOptions+  :: Ptr MagickWand+  -> CString        -- ^ the pattern+  -> Ptr CSize+  -> IO (Ptr CString)++-- | MagickDeleteImageProperty() deletes a wand property.+foreign import ccall "MagickDeleteImageProperty" magickDeleteImageProperty+  :: Ptr MagickWand+  -> CString        -- ^ the property+  -> IO MagickBooleanType++-- | MagickGetImageProperty() returns a value associated with the+-- specified property. Use MagickRelinquishMemory() to free the value+-- when you are finished with it.+foreign import ccall "MagickGetImageProperty" magickGetImageProperty+  :: Ptr MagickWand+  -> CString        -- ^ the property+  -> IO CString++-- | MagickGetImageProperties() returns all the property names that+-- match the specified pattern associated with a wand. Use+-- MagickGetImageProperty() to return the value of a particular property.+-- Use MagickRelinquishMemory() to free the value when you are finished+-- with it.+foreign import ccall "MagickGetImageProperties" magickGetImageProperties+  :: Ptr MagickWand+  -> CString        -- ^ the pattern+  -> Ptr CSize+  -> IO (Ptr CString)++-- | MagickSetImageProperty() associates a property with an image.+foreign import ccall "MagickSetImageProperty" magickSetImageProperty+  :: Ptr MagickWand+  -> CString        -- ^ the property+  -> CString        -- ^ the value+  -> IO MagickBooleanType++-- | MagickGetImageProfile() returns the named image profile.+foreign import ccall "MagickGetImageProfile" magickGetImageProfile+  :: Ptr MagickWand+  -> CString        -- ^ the profile name+  -> Ptr CSize      -- ^ the profile length+  -> IO (Ptr Word8)++-- | MagickRemoveImageProfile() removes the named image profile and+-- returns it.+foreign import ccall "MagickRemoveImageProfile" magickRemoveImageProfile+  :: Ptr MagickWand+  -> CString        -- ^ the profile name+  -> Ptr CSize      -- ^ the profile length+  -> IO (Ptr Word8)++-- | MagickSetImageProfile() adds a named profile to the magick wand.+-- If a profile with the same name already exists, it is replaced.+-- This method differs from the MagickProfileImage() method in that+-- it does not apply any CMS color profiles.+foreign import ccall "MagickSetImageProfile" magickSetImageProfile+  :: Ptr MagickWand+  -> CString        -- ^ the profile name+  -> Ptr Word8      -- ^ the profile+  -> CSize          -- ^ the profile length+  -> IO MagickBooleanType++-- | MagickGetImageProfiles() returns all the profile names that match+-- the specified pattern associated with a wand. Use+-- MagickGetImageProfile() to return the value of a particular property.+-- Use MagickRelinquishMemory() to free the value when you are finished+-- with it.+foreign import ccall "MagickGetImageProfiles" magickGetImageProfiles+  :: Ptr MagickWand+  -> CString        -- ^ the pattern+  -> Ptr CSize+  -> IO (Ptr CString)++-- | MagickSetResolution() sets the image resolution.+foreign import ccall "MagickSetImageResolution" magickSetImageResolution+  :: Ptr MagickWand+  -> CDouble        -- ^ x resolution+  -> CDouble        -- ^ y resolution+  -> IO MagickBooleanType++-- | MagickGetResolution() gets the image resolution.+foreign import ccall "MagickGetImageResolution" magickGetImageResolution+  :: Ptr MagickWand+  -> Ptr CDouble        -- ^ x resolution+  -> Ptr CDouble        -- ^ y resolution+  -> IO MagickBooleanType++-- | MagickGetImageArtifacts() returns all the artifact names+-- that match the specified pattern associated with a wand.+-- Use MagickGetImageProperty() to return the value of a+-- particular artifact. Use MagickRelinquishMemory() to free+-- the value when you are finished with it.+foreign import ccall "MagickGetImageArtifacts" magickGetImageArtifacts+  :: Ptr MagickWand+  -> CString        -- ^ the pattern+  -> Ptr CSize+  -> IO (Ptr CString)
+ src/Graphics/ImageMagick/MagickWand/MagickWand.hs view
@@ -0,0 +1,350 @@+{-# LANGUAGE FlexibleContexts #-}+module Graphics.ImageMagick.MagickWand.MagickWand+  ( withMagickWandGenesis+  , localGenesis+  -- * Creation+  , magickWand+  , wandResource+--  , magickWandFromImage+--  , isMagickWand+  , cloneMagickWand+--  , clearMagickWand+  , getSize+  , setSize+  , setImageArtifact+  , deleteImageArtifact+  , getIteratorIndex+  , setIteratorIndex+--  , setFirstIterator+--  , setLastIterator+  , resetIterator+  , magickIterate+  , magickIterateReverse+  , deleteOption+  , getOption+  , setOption+  , getOptions+  , deleteImageProperty+  , getImageProperty+  , setImageProperty+  , getImageProperties+  , getImageProfile+  , removeImageProfile+  , setImageProfile+  , getImageProfiles+--  , queryConfigureOption+--  , queryConfigureOptions+--  , queryFontMetrics+--  , queryMultilineFontMetrics+--  , queryFonts+--  , relinquishMemory+--  , deleteImageArtifact+--    , deleteImageProperty+--    , getAntialias+--    , getBackgroundColor+   , getColorspace+   , getCompression+   , getCompressionQuality+--    , getCopyright+--    , getFilename+--    , getFont+--    , getFormat+--    , getGravity+--    , getHomeURL+--    , getImageArtifact+  , getImageArtifacts+--    , getInterlaceScheme+--    , getInterpolateMethod+--    , getOrientation+--    , getPackageName+--    , getPage+--    , getPointsize+--    , getQuantumDepth+--    , getQuantumRange+--    , getReleaseDate+    , getImageResolution+--    , getResource+--    , getResourceLimit+--    , getSamplingFactors+--    , getSize+--    , getSizeOffset+--    , getType+--    , getVersion+--    , profileImage+--    , removeImageProfile+--    , setAntialias+--    , setBackgroundColor+  , setColorspace+  , setCompression+  , setCompressionQuality+--    , setDepth+--    , setExtract+--    , setFilename+--    , setFont+--    , setFormat+--    , setGravity+--    , setImageArtifact+--    , setImageProfile+--    , setInterlaceScheme+--    , setInterpolateMethod+--    , setOrientation+--    , setPage+--    , setPassphrase+--    , setPointsize+--    , setProgressMonitor+--    , setResourceLimit+    , setImageResolution+--    , setSamplingFactors+--    , setSizeOffset+--    , setType+  ) where++import           Control.Applicative                                ((<$>))+import           Control.Exception+import           Control.Monad+import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Data.ByteString+import           Data.Text                                          (Text)+import           Data.Text.Encoding                                 (decodeUtf8,+                                                                     encodeUtf8)+import           Data.Vector.Storable                               (Vector)+import qualified Data.Vector.Storable                               as V+import           Foreign                                            hiding+                                                                     (void)+import           Foreign.C.String+import           Foreign.C.Types+import qualified Graphics.ImageMagick.MagickWand.FFI.MagickWand     as F+import           Graphics.ImageMagick.MagickWand.FFI.Types+import qualified Graphics.ImageMagick.MagickWand.FFI.WandProperties as F+import           Graphics.ImageMagick.MagickWand.Types+import           Graphics.ImageMagick.MagickWand.Utils++-- | Create magic wand environment and closes it at the+-- end of the work, should wrap all MagickWand functions+-- withMagickWandGenesis :: IO a -> IO a+-- withMagickWandGenesis :: (MonadCatchIO m, MonadBaseControl IO m, MonadCatchIO (ResourceT IO)) => (ResourceT m c) -> m c+withMagickWandGenesis :: ResourceT IO c -> IO c+withMagickWandGenesis f = bracket start finish (\_ -> runResourceT f)+  where+    start = liftIO F.magickWandGenesis+    finish = liftIO . const F.magickWandTerminus++-- | Open a nested block inside genesis (for tracking nested resources)+localGenesis :: MonadBaseControl IO m => ResourceT m a -> m a+localGenesis f = runResourceT f++magickWand :: (MonadResource m) => m (ReleaseKey, Ptr MagickWand)+magickWand = wandResource F.newMagickWand++magickIterateF :: (MonadResource m) =>+                 (PMagickWand -> IO ())+                 -> (PMagickWand -> IO MagickBooleanType)+                 -> PMagickWand -> (PMagickWand -> m ()) -> m ()+magickIterateF initF next w f = liftIO (initF w) >> go -- TODO: use fix+  where+    go = do+      i <- liftIO $ next w+      when (i==mTrue) $ f w >> go++magickIterate :: (MonadResource m) => Ptr MagickWand -> (Ptr MagickWand -> m ()) -> m ()+magickIterate = magickIterateF F.magickResetIterator F.magickNextImage++magickIterateReverse :: (MonadResource m) => Ptr MagickWand -> (Ptr MagickWand -> m ()) -> m ()+magickIterateReverse = magickIterateF F.magickSetLastIterator F.magickPreviousImage++wandResource :: (MonadResource m) => (IO (Ptr MagickWand)) -> m (ReleaseKey, Ptr MagickWand)+wandResource f = allocate f destroy+  where destroy = void . F.destroyMagickWand++cloneMagickWand :: (MonadResource m) => Ptr MagickWand -> m (ReleaseKey, Ptr MagickWand)+cloneMagickWand = wandResource . F.cloneMagickWand++setSize :: (MonadResource m) => Ptr MagickWand -> Int -> Int -> m ()+setSize w cols rows = withException_ w $ F.magickSetSize w (fromIntegral cols) (fromIntegral rows)++-- | Returns the size associated with the magick wand.+getSize :: (MonadResource m) => Ptr MagickWand -> m (Int, Int)+getSize w = liftIO $ alloca $ \pw -> do+  height <- alloca $ \ph -> F.magickGetSize w pw ph >> peek ph >>= return+  width <- peek pw+  return (fromIntegral width, fromIntegral height)+++-- | MagickSetImageArtifact() associates a artifact with an image.+-- The format of the MagickSetImageArtifact method is:+setImageArtifact :: (MonadResource m) => PMagickWand -> ByteString -> ByteString -> m () -- TODO use normal types+setImageArtifact w a v = withException_ w $ useAsCString a+                                          $ \a' -> useAsCString v+                                          $ F.magickSetImageArtifact w a'++-- | MagickDeleteImageArtifact() deletes a wand artifact.+deleteImageArtifact :: (MonadResource m) => PMagickWand -> ByteString -> m ()+deleteImageArtifact w a = withException_ w $ useAsCString a+                                           $ F.magickDeleteImageArtifact w++-- | Sets the iterator to the given position in the image list specified+-- with the index parameter. A zero index will set the first image as+-- current, and so on. Negative indexes can be used to specify an image+-- relative to the end of the images in the wand, with -1 being the last+-- image in the wand.+setIteratorIndex :: (MonadResource m) => Ptr MagickWand -> Int -> m ()+setIteratorIndex w i = withException_ w $ F.magickSetIteratorIndex w (fromIntegral i)++-- | Returns the position of the iterator in the image list.+getIteratorIndex :: (MonadResource m) => Ptr MagickWand -> m Int+getIteratorIndex w = liftIO $ fromIntegral <$> F.magickGetIteratorIndex w++resetIterator :: (MonadResource m) => Ptr MagickWand -> m ()+resetIterator = liftIO . F.magickResetIterator++getOption :: (MonadResource m) => Ptr MagickWand -> Text -> m Text+getOption w key = liftIO $ do+  cstr <- useAsCString (encodeUtf8 key) (F.magickGetOption w)+  value <- decodeUtf8 <$> packCString cstr+  F.magickRelinquishMemory (castPtr cstr)+  return value++-- | Associates one or options with the wand (e.g. setOption wand "jpeg:perserve" "yes").+deleteOption :: (MonadResource m) => Ptr MagickWand -> Text -> m ()+deleteOption w key =+  withException_ w $ useAsCString (encodeUtf8 key) (F.magickDeleteOption w)++-- | Associates one or options with the wand (e.g. setOption wand "jpeg:perserve" "yes").+setOption :: (MonadResource m) => Ptr MagickWand -> Text -> Text -> m ()+setOption w key value =+  withException_ w $ useAsCString (encodeUtf8 key) $+  \cstr -> useAsCString (encodeUtf8 value) (F.magickSetOption w cstr)++getOptions :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]+getOptions w pattern = liftIO $ alloca $ \pn -> do+  poptionps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetOptions w cstr pn)+  n <- fromIntegral <$> peek pn+  optionps <- peekArray n poptionps+  options <- forM optionps $ \optionp -> do+    option <- decodeUtf8 <$> packCString optionp+    F.magickRelinquishMemory (castPtr optionp)+    return option+  F.magickRelinquishMemory (castPtr poptionps)+  return options++-- | Deletes a wand property+deleteImageProperty :: (MonadResource m) => Ptr MagickWand -> Text -> m ()+deleteImageProperty w prop =+  withException_ w $ useAsCString (encodeUtf8 prop) (F.magickDeleteImageProperty w)++-- | Returns a value associated with the specified property+getImageProperty :: (MonadResource m) => Ptr MagickWand -> Text -> m Text+getImageProperty w prop = liftIO $ do+  cstr <- useAsCString (encodeUtf8 prop) (F.magickGetImageProperty w)+  value <- decodeUtf8 <$> packCString cstr+  F.magickRelinquishMemory (castPtr cstr)+  return value++-- | Associates a property with an image.+setImageProperty :: (MonadResource m) => Ptr MagickWand -> Text -> Text -> m ()+setImageProperty w prop value =+  withException_ w $ useAsCString (encodeUtf8 prop) $+  \cstr -> useAsCString (encodeUtf8 value) (F.magickSetImageProperty w cstr)++-- | Returns all the property names that match the specified pattern associated+-- with a wand+getImageProperties :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]+getImageProperties w pattern = liftIO $ alloca $ \pn -> do+  ppropps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetImageProperties w cstr pn)+  n <- fromIntegral <$> peek pn+  propps <- peekArray n ppropps+  props <- forM propps $ \propp -> do+    prop <- decodeUtf8 <$> packCString propp+    F.magickRelinquishMemory (castPtr propp)+    return prop+  F.magickRelinquishMemory (castPtr ppropps)+  return props++getProfile :: (MonadResource m) =>+              (PMagickWand -> CString ->  Ptr CSize -> IO (Ptr Word8)) ->+              PMagickWand -> Text -> m (Vector Word8)+getProfile f w name = liftIO $ do+  (pprofile, len) <- alloca $ \pn -> useAsCString (encodeUtf8 name) $ \cstr -> do+    p <- f w cstr pn+    n <- fromIntegral <$> peek pn+    return (p,n)+  -- TODO: maybe we should use copyBytes instead?+  profile <- V.generateM len (peekElemOff pprofile)+  F.magickRelinquishMemory (castPtr pprofile)+  return profile++-- | Returns the named image profile.+getImageProfile :: (MonadResource m) => Ptr MagickWand -> Text -> m (Vector Word8)+getImageProfile = getProfile F.magickGetImageProfile++-- | Removes the named image profile and returns it+removeImageProfile :: (MonadResource m) => Ptr MagickWand -> Text -> m (Vector Word8)+removeImageProfile = getProfile F.magickRemoveImageProfile++-- | Adds a named profile to the magick wand. If a profile with the same+-- name already exists, it is replaced. This method differs from the+-- `profileImage` method in that it does not apply any CMS color profiles.+setImageProfile :: (MonadResource m) => Ptr MagickWand -> Text -> Vector Word8 -> m ()+setImageProfile w name profile =+  withException_ w $ useAsCString (encodeUtf8 name) $+  \cstr -> V.unsafeWith profile $+           \p -> (F.magickSetImageProfile w cstr) p (fromIntegral $ V.length profile)++-- | Returns all the profile names that match the specified pattern+-- associated with a wand.+getImageProfiles :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]+getImageProfiles w pattern = liftIO $ alloca $ \pn -> do+  pprofileps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetImageProfiles w cstr pn)+  n <- fromIntegral <$> peek pn+  profileps <- peekArray n pprofileps+  profiles <- forM profileps $ \profilep -> do+    profile <- decodeUtf8 <$> packCString profilep+    F.magickRelinquishMemory (castPtr profilep)+    return profile+  F.magickRelinquishMemory (castPtr pprofileps)+  return profiles++-- | MagickGetColorspace() gets the wand colorspace type.+getColorspace :: (MonadResource m) => PMagickWand -> m ColorspaceType+getColorspace = liftIO . F.magickGetColorspace++-- | MagickSetColorspace() sets the wand colorspace type.+setColorspace :: (MonadResource m) => PMagickWand -> ColorspaceType -> m ()+setColorspace w c = withException_ w $ F.magickSetColorspace w c++getCompression :: (MonadResource m) => PMagickWand -> m CompressionType+getCompression = liftIO . F.magickGetCompression++setCompression :: (MonadResource m) => PMagickWand -> CompressionType -> m ()+setCompression w c = withException_ w $ F.magickSetCompression w c++getCompressionQuality :: (MonadResource m) => PMagickWand -> m Int+getCompressionQuality w = liftIO $ F.magickGetCompressionQuality w >>= return . fromIntegral++setCompressionQuality :: (MonadResource m) => PMagickWand -> Int -> m ()+setCompressionQuality w c  = withException_ w $ F.magickSetCompressionQuality w (fromIntegral c)++getImageResolution :: (MonadResource m) => PMagickWand -> m (Double,Double)+getImageResolution w = liftIO $ alloca $ \py -> do+  x <- alloca $ \px -> withExceptionIO w $ do+    result <- F.magickGetImageResolution w px py+    value <- peek px+    return (result, value)+  y <- peek py+  return (realToFrac x, realToFrac y)++setImageResolution :: (MonadResource m) => PMagickWand -> Double -> Double -> m ()+setImageResolution w x y  = withException_ w $ F.magickSetImageResolution w (realToFrac x) (realToFrac y)++getImageArtifacts :: (MonadResource m) => Ptr MagickWand -> Text -> m [Text]+getImageArtifacts w pattern = liftIO $ alloca $ \pn -> do+  partifactps <- useAsCString (encodeUtf8 pattern) (\cstr -> F.magickGetImageArtifacts w cstr pn)+  n <- fromIntegral <$> peek pn+  artifactps <- peekArray n partifactps+  artifacts <- forM artifactps $ \artifactp -> do+    artifact <- decodeUtf8 <$> packCString artifactp+    F.magickRelinquishMemory (castPtr artifactp)+    return artifact+  F.magickRelinquishMemory (castPtr partifactps)+  return artifacts
+ src/Graphics/ImageMagick/MagickWand/PixelIterator.hs view
@@ -0,0 +1,92 @@+module Graphics.ImageMagick.MagickWand.PixelIterator+  ( pixelIterator+  , pixelRegionIterator+  , pixelGetNextIteratorRow+  , pixelSyncIterator+  , pixelResetIterator+  , pixelIterateList+  , pixelGetMagickColor     -- TODO move to another file+  , pixelSetMagickColor     -- TODO move to another file+--  , clonePixelIterator +--  , isPixelIterator +--  , pixelGetCurrentIteratorRow +--  , pixelGetIteratorRow +--  , pixelGetNextIteratorRow +--  , pixelGetPreviousIteratorRow +--  , pixelSetFirstIteratorRow +--  , pixelSetIteratorRow +--  , pixelSetLastIteratorRow +  ) where++import           Control.Monad+import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Data.Vector.Storable                              (Vector)+import qualified Data.Vector.Storable                              as V+import           Foreign                                           hiding (void)+import           Foreign.C.Types                                   (CSize)+import           System.IO.Unsafe                                  (unsafeInterleaveIO)++import qualified Graphics.ImageMagick.MagickWand.FFI.PixelIterator as F+import qualified Graphics.ImageMagick.MagickWand.FFI.PixelWand     as F+import           Graphics.ImageMagick.MagickWand.FFI.Types+import           Graphics.ImageMagick.MagickWand.Types+import           Graphics.ImageMagick.MagickWand.Utils+++pixelIterator :: (MonadResource m) => Ptr MagickWand -> m (ReleaseKey, PPixelIterator)+pixelIterator w = allocate (F.newPixelIterator w) destroy+  where destroy = void . F.destroyPixelIterator++pixelRegionIterator :: (MonadResource m)+  => Ptr MagickWand -> Int -> Int -> Int -> Int -> m (ReleaseKey, PPixelIterator)+pixelRegionIterator w x y width height =  allocate (F.newPixelRegionIterator w x' y' width' height') destroy+  where destroy = void . F.destroyPixelIterator+        x' = fromIntegral x+        y' = fromIntegral y+        width' = fromIntegral width+        height' = fromIntegral height++pixelGetNextIteratorRow :: (MonadResource m) => PPixelIterator  -> m (Maybe (Vector PPixelWand))+pixelGetNextIteratorRow p = do+    x <- allocate (createPixelWandVector (F.pixelGetNextIteratorRow p)) (const $ return ())+    case x of+      (_, Just v) -> return (Just v)+      (_, Nothing) -> return Nothing++pixelGetMagickColor :: (MonadIO m) => PPixelWand -> m PMagickPixelPacket+pixelGetMagickColor w = liftIO $ do+          c <- mallocForeignPtr+          withForeignPtr c (F.pixelGetMagickColor w)+          return c++pixelSetMagickColor :: (MonadResource m) => PPixelWand -> PMagickPixelPacket -> m ()+pixelSetMagickColor w c = liftIO $ withForeignPtr c (F.pixelSetMagickColor w)++pixelSyncIterator :: (MonadResource m) => PPixelIterator -> m ()+pixelSyncIterator p =  withException_ p $ F.pixelSyncIterator p++pixelResetIterator :: (MonadResource m) => PPixelIterator -> m ()+pixelResetIterator = liftIO . F.pixelResetIterator++-- | creates lazy list of pixel vectors+pixelIterateList :: (MonadResource m) => PPixelIterator -> m [Vector PPixelWand]+pixelIterateList it = pixelResetIterator it >> liftIO go+  where+    go :: IO [Vector PPixelWand]+    go = unsafeInterleaveIO $ do+          mv <- createPixelWandVector (F.pixelGetNextIteratorRow it)+          case mv of+            Just v -> go >>= return . (:) v+            Nothing -> return []+++createPixelWandVector :: (Ptr CSize -> IO (Ptr PPixelWand)) -> IO (Maybe (Vector (PPixelWand)))+createPixelWandVector f = alloca $ \x -> do+          ptr <- f x+          if ptr == nullPtr+              then return Nothing+              else do+                  n   <- fmap fromIntegral (peek x)+                  fmap (Just . (\p -> V.unsafeFromForeignPtr0 p n)) (newForeignPtr_ ptr)+
+ src/Graphics/ImageMagick/MagickWand/PixelPacket.hs view
@@ -0,0 +1,48 @@+module Graphics.ImageMagick.MagickWand.PixelPacket+  ( getPixelRed+  , setPixelRed+  , getPixelBlue+  , setPixelBlue+  , getPixelGreen+  , setPixelGreen+  , getPixelIndex+  , setPixelIndex+  ) where++import           Control.Monad.IO.Class+import           Foreign+import qualified Graphics.ImageMagick.MagickWand.FFI.Types         as F+import           Graphics.ImageMagick.MagickWand.Types+++getPixel' :: (MonadIO m) => (Ptr F.MagickPixelPacket -> IO MagickRealType) -> PMagickPixelPacket ->  m MagickRealType+getPixel' f wp = liftIO $ withForeignPtr wp f+{-# INLINE getPixel' #-}++getPixelRed :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType+getPixelRed  = getPixel' F.getPixelRed++getPixelBlue :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType+getPixelBlue  = getPixel' F.getPixelBlue++getPixelGreen :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType+getPixelGreen  = getPixel' F.getPixelGreen++getPixelIndex :: (MonadIO m) => PMagickPixelPacket -> m MagickRealType+getPixelIndex  = getPixel' F.getPixelIndex++setPixel' :: (MonadIO m) => (Ptr F.MagickPixelPacket -> MagickRealType -> IO ()) -> PMagickPixelPacket -> MagickRealType -> m ()+setPixel' f wp c = liftIO $ withForeignPtr wp (`f` c)+{-# INLINE setPixel' #-}++setPixelRed :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()+setPixelRed = setPixel' F.setPixelRed++setPixelIndex :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()+setPixelIndex = setPixel' F.setPixelIndex++setPixelGreen :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()+setPixelGreen = setPixel' F.setPixelGreen++setPixelBlue :: (MonadIO m) => PMagickPixelPacket -> MagickRealType -> m ()+setPixelBlue = setPixel' F.setPixelBlue
+ src/Graphics/ImageMagick/MagickWand/PixelWand.hs view
@@ -0,0 +1,233 @@+{-# LANGUAGE CPP #-}+module Graphics.ImageMagick.MagickWand.PixelWand+  ( pixelWand+-- , clearPixelWand+--   , cloneWand+--   , cloneWands+   , isPixelWandSimilar+--   , isPixelWand+   , setColorCount, getColorCount+  -- ** Literal names+   , setColor+   , getColorAsString, getColorAsNormalizedString+   -- HSL+   , getHSL, setHSL+   , getMagickColor, setMagickColor+   , setColorFromWand+   , getQuantumColor, setQuantumColor+   -- ** Color parts+   -- Index+   , getIndex, setIndex+   -- Fuzz+   , getFuzz, setFuzz+   -- Alpha+   , getOpacity, getOpacityQuantum, setOpacity, setOpacityQuantum+   , getAlpha, getAlphaQuantum, setAlpha, setAlphaQuantum+   -- RGB+   , getRed, getRedQuantum, setRed, setRedQuantum+   , getBlue, getBlueQuantum, setBlue, setBlueQuantum+   , getGreen, getGreenQuantum, setGreen, setGreenQuantum+   -- CMYK+   , getCyan, getCyanQuantum, setCyan, setCyanQuantum+   , getMagenta, getMagentaQuantum, setMagenta, setMagentaQuantum+   , getYellow, getYellowQuantum, setYellow, setYellowQuantum+   , getBlack, getBlackQuantum, setBlack, setBlackQuantum+  ) where++import           Control.Monad                                 (void)+import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Data.ByteString                               (ByteString,+                                                                packCString,+                                                                useAsCString)+import           Foreign                                       hiding (void)+import           Foreign.C.Types (CDouble)++import qualified Graphics.ImageMagick.MagickWand.FFI.PixelWand as F+import           Graphics.ImageMagick.MagickWand.Types+import           Graphics.ImageMagick.MagickWand.Utils++pixelWand :: (MonadResource m) => m PPixelWand+pixelWand = fmap snd (allocate F.newPixelWand destroy)+  where destroy = void . F.destroyPixelWand++setColor :: (MonadResource m) => PPixelWand -> ByteString -> m ()+setColor p s = withException_ p $ useAsCString s (F.pixelSetColor p)+++getMagickColor :: (MonadResource m) => PPixelWand -> m PMagickPixelPacket+getMagickColor w = liftIO $ do+  p <- mallocForeignPtr+  withForeignPtr p (F.pixelGetMagickColor w)+  return p++setMagickColor :: (MonadResource m) => PPixelWand -> PMagickPixelPacket -> m ()+setMagickColor w p = liftIO $ withForeignPtr p (F.pixelSetMagickColor w)++setColorCount :: (MonadResource m) => PPixelWand -> Int -> m ()+setColorCount w i = liftIO $ F.pixelSetColorCount w (fromIntegral i)++getColorCount :: (MonadResource m) => PPixelWand -> m Int+getColorCount w = liftIO (F.pixelGetColorCount w) >>= return . fromIntegral++getColorAsString :: (MonadResource m) => PPixelWand -> m ByteString+getColorAsString w = liftIO $ F.pixelGetColorAsString w >>= packCString++getColorAsNormalizedString :: (MonadResource m) => PPixelWand -> m ByteString+getColorAsNormalizedString w = liftIO $ F.pixelGetColorAsNormalizedString w >>= packCString++getHSL :: (MonadResource m) => PPixelWand -> m (Double, Double, Double)+getHSL w = liftIO $ fmap (map3 realToFrac) (with3 (F.pixelGetHSL w))++setHSL :: (MonadResource m) => PPixelWand -> Double -> Double -> Double -> m ()+setHSL w h s l = liftIO $ F.pixelSetHSL w (realToFrac h) (realToFrac s) (realToFrac l)++setColorFromWand :: (MonadResource m) => PPixelWand -> PPixelWand -> m ()+setColorFromWand = (liftIO .). F.pixelSetColorFromWand++getIndex :: (MonadResource m) => PPixelWand -> m IndexPacket+getIndex = liftIO . F.pixelGetIndex++setIndex :: (MonadResource m) => PPixelWand -> IndexPacket -> m ()+setIndex w i = liftIO $ F.pixelSetIndex w i++getQuantumColor :: (MonadResource m) => PPixelWand -> m PPixelPacket+getQuantumColor w = liftIO $ do+  p <- mallocForeignPtr+  withForeignPtr p (F.pixelGetQuantumColor w)+  return p++setQuantumColor :: (MonadResource m) => PPixelWand -> PPixelPacket -> m ()+setQuantumColor w p = liftIO $ withForeignPtr p (F.pixelSetQuantumColor w)++getFuzz :: (MonadResource m) => PPixelWand -> m Double+getFuzz = liftIO . ((fmap realToFrac) . F.pixelGetFuzz)++setFuzz :: (MonadResource m) => PPixelWand -> Double -> m ()+setFuzz w i = liftIO $ F.pixelSetFuzz w (realToFrac i)++isPixelWandSimilar :: (MonadResource m) => PPixelWand -> PPixelWand -> Double -> m Bool+isPixelWandSimilar pw1 pw2 fuzz =  fromMBool $ F.isPixelWandSimilar pw1 pw2 (realToFrac fuzz)++setRedQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setRedQuantum = (liftIO .) . F.pixelSetRedQuantum++getRed :: (MonadResource m) => PPixelWand -> m Double+getRed = (fmap realToFrac) . liftIO . F.pixelGetRed++setRed :: (MonadResource m) => PPixelWand -> Double -> m ()+setRed = (liftIO .) . (. realToFrac) . F.pixelSetRed++getRedQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getRedQuantum =  liftIO . F.pixelGetRedQuantum++setGreenQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setGreenQuantum = (liftIO .) . F.pixelSetGreenQuantum++getGreen :: (MonadResource m) => PPixelWand -> m Double+getGreen = (fmap realToFrac) . liftIO . F.pixelGetGreen++setGreen :: (MonadResource m) => PPixelWand -> Double -> m ()+setGreen = (liftIO .) . (. realToFrac) . F.pixelSetGreen++getGreenQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getGreenQuantum =  liftIO . F.pixelGetGreenQuantum++setBlueQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setBlueQuantum = (liftIO .) . F.pixelSetBlueQuantum++getBlue :: (MonadResource m) => PPixelWand -> m Double+getBlue = (fmap realToFrac) . liftIO . F.pixelGetBlue++setBlue :: (MonadResource m) => PPixelWand -> Double -> m ()+setBlue = (liftIO .) . (. realToFrac) . F.pixelSetBlue++getBlueQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getBlueQuantum =  liftIO . F.pixelGetBlueQuantum++setAlphaQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setAlphaQuantum = (liftIO .) . F.pixelSetAlphaQuantum++getAlphaQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getAlphaQuantum =  liftIO . F.pixelGetAlphaQuantum++setAlpha :: (MonadResource m) => PPixelWand -> Double -> m ()+setAlpha = (liftIO .) . (. realToFrac) . F.pixelSetAlpha++getAlpha :: (MonadResource m) => PPixelWand -> m Double+getAlpha = (fmap realToFrac) . liftIO . F.pixelGetAlpha++setOpacityQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setOpacityQuantum = (liftIO .) . F.pixelSetOpacityQuantum++getOpacityQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getOpacityQuantum =  liftIO . F.pixelGetOpacityQuantum++setOpacity :: (MonadResource m) => PPixelWand -> Double -> m ()+setOpacity = (liftIO .) . (. realToFrac) . F.pixelSetOpacity++getOpacity :: (MonadResource m) => PPixelWand -> m Double+getOpacity = (fmap realToFrac) . liftIO . F.pixelGetOpacity++setBlackQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setBlackQuantum = (liftIO .) . F.pixelSetBlackQuantum++getBlackQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getBlackQuantum =  liftIO . F.pixelGetBlackQuantum++setBlack :: (MonadResource m) => PPixelWand -> Double -> m ()+setBlack = (liftIO .) . (. realToFrac) . F.pixelSetBlack++getBlack :: (MonadResource m) => PPixelWand -> m Double+getBlack = (fmap realToFrac) . liftIO . F.pixelGetBlack++setCyanQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setCyanQuantum = (liftIO .) . F.pixelSetCyanQuantum++getCyanQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getCyanQuantum =  liftIO . F.pixelGetCyanQuantum++setCyan :: (MonadResource m) => PPixelWand -> Double -> m ()+setCyan = (liftIO .) . (. realToFrac) . F.pixelSetCyan++getCyan :: (MonadResource m) => PPixelWand -> m Double+getCyan = (fmap realToFrac) . liftIO . F.pixelGetCyan++setMagentaQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setMagentaQuantum = (liftIO .) . F.pixelSetMagentaQuantum++getMagentaQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getMagentaQuantum =  liftIO . F.pixelGetMagentaQuantum++setMagenta :: (MonadResource m) => PPixelWand -> Double -> m ()+setMagenta = (liftIO .) . (. realToFrac) . F.pixelSetMagenta++getMagenta :: (MonadResource m) => PPixelWand -> m Double+getMagenta = (fmap realToFrac) . liftIO . F.pixelGetMagenta++setYellowQuantum :: (MonadResource m) => PPixelWand -> Quantum -> m ()+setYellowQuantum = (liftIO .) . F.pixelSetYellowQuantum++getYellowQuantum :: (MonadResource m) => PPixelWand -> m Quantum+getYellowQuantum =  liftIO . F.pixelGetYellowQuantum++setYellow :: (MonadResource m) => PPixelWand -> Double -> m ()+setYellow = (liftIO .) . (. realToFrac) . F.pixelSetYellow++getYellow :: (MonadResource m) => PPixelWand -> m Double+getYellow = (fmap realToFrac) . liftIO . F.pixelGetYellow++---+with3 ::+  (Ptr CDouble -> Ptr CDouble -> Ptr CDouble -> IO ())+  -> IO (CDouble, CDouble, CDouble)+with3 f = alloca (\x -> alloca (\y -> alloca (\z -> do+              _ <- f x y z+              x' <- peek x+              y' <- peek y+              z' <- peek z+              return (x',y',z')+              )))++map3 :: (a -> b) -> (a, a, a) -> (b, b, b)+map3 f (a,b,c) = (f a, f b, f c)
+ src/Graphics/ImageMagick/MagickWand/Types.hs view
@@ -0,0 +1,81 @@+{-# OPTIONS -fno-warn-orphans #-}+{-# LANGUAGE DeriveDataTypeable  #-}+{-# LANGUAGE FlexibleInstances   #-}+{-# LANGUAGE RankNTypes          #-}+{-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE TypeFamilies        #-}+module Graphics.ImageMagick.MagickWand.Types+  ( PPixelIterator+  , PPixelWand+  , PPixelPacket+  , PMagickPixelPacket+  , PDrawingWand+  , PMagickWand+  , MagickWandException(..)+  -- * support for ImageMagick Exceptions+  , ExceptionCarrier(..)+  , module Graphics.ImageMagick.MagickCore.Types+  , Pixel(..)+  ) where++import qualified Data.Vector.Storable                              as V+import           Foreign+import           Foreign.C.String+import           Graphics.ImageMagick.MagickCore.Exception+import           Graphics.ImageMagick.MagickCore.Types+import           Graphics.ImageMagick.MagickWand.FFI.DrawingWand   as F+import           Graphics.ImageMagick.MagickWand.FFI.MagickWand    as F+import           Graphics.ImageMagick.MagickWand.FFI.PixelIterator as F+import           Graphics.ImageMagick.MagickWand.FFI.PixelWand     as F+import           Graphics.ImageMagick.MagickWand.FFI.Types++type PPixelIterator     = Ptr PixelIterator+type PPixelWand         = Ptr PixelWand+type PMagickWand        = Ptr MagickWand+type PDrawingWand       = Ptr DrawingWand+type PMagickPixelPacket = ForeignPtr MagickPixelPacket+type PPixelPacket       = ForeignPtr PixelPacket++constructException :: forall t.+  (t -> Ptr ExceptionType -> IO CString)+  -> t -> IO MagickWandException+constructException f w = alloca $ \x -> do+    s  <- peekCString =<< f w x+    x' <- peek x+    return $ MagickWandException (toSeverity x') x' s+{-# INLINE constructException #-}++instance ExceptionCarrier (Ptr MagickWand) where+  getException = constructException F.magickGetException++instance ExceptionCarrier (Ptr PixelIterator) where+  getException = constructException F.pixelGetIteratorException++instance ExceptionCarrier (Ptr PixelWand) where+  getException = constructException F.pixelGetException++instance ExceptionCarrier (Ptr DrawingWand) where+  getException = constructException F.drawGetException++class (Storable a) => Pixel a where+  pixelStorageType :: [a] -> StorageType+  withPixels :: [a] -> (Ptr a -> IO b) -> IO b+  withPixels xs f = V.unsafeWith (V.fromList xs) f++instance Pixel Word8 where+  pixelStorageType = const charPixel++instance Pixel Word16 where+  pixelStorageType = const shortPixel++instance Pixel Word32 where+  pixelStorageType = const longPixel++instance Pixel Word64 where+  pixelStorageType = const longPixel++instance Pixel Float where+  pixelStorageType = const floatPixel++instance Pixel Double where+  pixelStorageType = const doublePixel
+ src/Graphics/ImageMagick/MagickWand/Utils.hs view
@@ -0,0 +1,41 @@+module Graphics.ImageMagick.MagickWand.Utils+  ( fromMBool+  , toMBool+  , withException+  , withException_+  , withExceptionIO+  )+  where++import           Control.Exception.Base+import           Control.Monad+import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Graphics.ImageMagick.MagickWand.FFI.Types+import           Graphics.ImageMagick.MagickWand.Types++fromMBool :: (MonadResource m) => IO MagickBooleanType -> m Bool+fromMBool = liftM (==mTrue) . liftIO+{-# INLINE fromMBool #-}++withException :: (MonadResource m, ExceptionCarrier a) => a -> IO (MagickBooleanType, b) -> m b+withException a f = liftIO $ do+  (r,b) <- f+  unless (r==mTrue) $ getException a >>= throw+  return b+{-# INLINE withException #-}++withException_ :: (MonadResource m, ExceptionCarrier a) => a -> IO MagickBooleanType -> m ()+withException_ a f = liftIO $ f >>= \x -> void $ unless (x==mTrue) (getException a >>= throw)++-- TODO find some better way around IO + MonadResource+withExceptionIO :: (ExceptionCarrier a) => a -> IO (MagickBooleanType, b) -> IO b+withExceptionIO a f = liftIO $ do+  (r,b) <- f+  unless (r==mTrue) $ getException a >>= throw+  return b++toMBool :: Bool -> MagickBooleanType+toMBool True  = mTrue+toMBool False = mFalse+{-# INLINE toMBool #-}
+ src/Graphics/ImageMagick/MagickWand/WandImage.hs view
@@ -0,0 +1,953 @@+{-# LANGUAGE ScopedTypeVariables, CPP #-}+module Graphics.ImageMagick.MagickWand.WandImage+  ( getImageHeight+  , getImageWidth+  , getImagePixelColor+  , resizeImage+  , getImageCompressionQuality+  , setImageCompression+  , setImageCompressionQuality+  , getImageBackgroundColor+  , setImageBackgroundColor+  , extentImage+  , floodfillPaintImage+  , negateImage+  , negateImageChannel+  , getImageClipMask+  , setImageClipMask+  , compositeImage+  , compositeImageChannel+  , transparentPaintImage+  , newImage+  , drawImage+  , borderImage+  , shaveImage+  , setImageAlphaChannel+  , flipImage+  , flopImage+  , blurImage+  , blurImageChannel+  , normalizeImage+  , normalizeImageChannel+  , shadowImage+  , addImage+  , appendImages+  , addNoiseImage+  , writeImage+  , writeImages+  , setVirtualPixelMethod+  , trimImage+  , resetImagePage+  , distortImage+  , shadeImage+  , colorizeImage+  , fxImage+  , fxImageChannel+  , sigmoidalContrastImage+  , sigmoidalContrastImageChannel+  , evaluateImage+  , evaluateImageChannel+  , evaluateImages+  , rollImage+  , annotateImage+  , mergeImageLayers+  , tintImage+  , gaussianBlurImageChannel+  , gaussianBlurImage+  , setImageMatte+  , cropImage+  , shearImage+  , scaleImage+  , sparseColorImage+  , functionImage+  , functionImageChannel+  , coalesceImages+  , getNumberImages+  , getImage+  , compareImageLayers+-- , getImageFromMagickWand+-- , adaptiveBlurImage+-- , adaptiveResizeImage+-- , adaptiveSharpenImage+-- , adaptiveThresholdImage+-- , addImage+-- , addNoiseImage+-- , affineTransformImage+-- , annotateImage+-- , animateImages+-- , appendImages+-- , autoGammaImage+-- , autoLevelImage+-- , blackThresholdImage+-- , blueShiftImage+-- , blurImage+-- , borderImage+-- , brightnessContrastImage+-- , charcoalImage+-- , chopImage+-- , clampImage+-- , clipImage+-- , clipImagePath+-- , clutImage+-- , coalesceImages+-- , colorDecisionListImage+-- , colorizeImage+-- , colorMatrixImage+-- , combineImages+-- , commentImage+-- , compareImageChannels+-- , compareImageLayers+-- , compareImages+-- , compositeImage+-- , compositeLayers+-- , contrastImage+-- , contrastStretchImage+-- , convolveImage+-- , cropImage+-- , cycleColormapImage+-- , constituteImage+-- , decipherImage+-- , deconstructImages+-- , deskewImage+-- , despeckleImage+-- , destroyImage+-- , displayImage+-- , displayImages+-- , distortImage+-- , drawImage+-- , edgeImage+-- , embossImage+-- , encipherImage+-- , enhanceImage+-- , equalizeImage+-- , evaluateImage+-- , exportImagePixels+-- , extentImage+-- , filterImage+-- , flipImage+-- , floodfillPaintImage+-- , flopImage+-- , forwardFourierTransformImage+-- , frameImage+-- , functionImage+-- , fxImage+-- , gammaImage+-- , gaussianBlurImage+-- , getImage+  , getImageAlphaChannel+-- , getImageClipMask+-- , getImageBackgroundColor+  , getImageBlob+  , getImagesBlob+-- , getImageBluePrimary+-- , getImageBorderColor+-- , getImageChannelDepth+-- , getImageChannelDistortion+-- , getImageChannelDistortions+-- , getImageChannelFeatures+-- , getImageChannelKurtosis+-- , getImageChannelMean+-- , getImageChannelRange+-- , getImageChannelStatistics+-- , getImageColormapColor+-- , getImageColors+-- , getImageColorspace+-- , getImageCompose+-- , getImageCompression+-- , getImageCompressionQuality+  , getImageDelay+  , getImageDepth+-- , getImageDistortion+-- , getImageDispose+-- , getImageEndian+-- , getImageFilename+  , getImageFormat+-- , getImageFuzz+-- , getImageGamma+-- , getImageGravity+-- , getImageGreenPrimary+-- , getImageHeight+-- , getImageHistogram+-- , getImageInterlaceScheme+-- , getImageInterpolateMethod+-- , getImageIterations+-- , getImageLength+-- , getImageMatteColor+-- , getImageOrientation+-- , getImagePage+-- , getImagePixelColor+-- , getImageRedPrimary+-- , getImageRegion+-- , getImageRenderingIntent+  , getImageSignature+-- , getImageTicksPerSecond+-- , getImageType+-- , getImageUnits+-- , getImageVirtualPixelMethod+-- , getImageWhitePoint+-- , getImageWidth+-- , getNumberImages+-- , getImageTotalInkDensity+-- , haldClutImage+-- , hasNextImage+-- , hasPreviousImage+-- , identifyImage+-- , implodeImage+-- , importImagePixels+-- , inverseFourierTransformImage+-- , labelImage+-- , levelImage+-- , linearStretchImage+-- , liquidRescaleImage+-- , magnifyImage+-- , mergeImageLayers+-- , minifyImage+-- , modulateImage+-- , montageImage+-- , morphImages+-- , morphologyImage+-- , motionBlurImage+-- , negateImage+-- , newImage+-- , nextImage+-- , normalizeImage+-- , oilPaintImage+-- , opaquePaintImage+, optimizeImageLayers+, optimizeImageTransparency+-- , orderedPosterizeImage+-- , pingImage+-- , pingImageBlob+-- , pingImageFile+-- , polaroidImage+-- , posterizeImage+-- , previewImages+-- , previousImage+-- , quantizeImage+-- , quantizeImages+-- , radialBlurImage+-- , raiseImage+-- , randomThresholdImage+  , readImage+  , readImageBlob+-- , readImageFile+-- , remapImage+-- , resampleImage+-- , resetImagePage+-- , resizeImage+-- , rollImage+-- , rotateImage+-- , sampleImage+-- , scaleImage+-- , segmentImage+-- , selectiveBlurImage+-- , separateImageChannel+-- , sepiaToneImage+-- , setImage+-- , setImageAlphaChannel+-- , setImageBackgroundColor+-- , setImageBias+-- , setImageBluePrimary+-- , setImageBorderColor+-- , setImageChannelDepth+-- , setImageClipMask+-- , setImageColor+-- , setImageColormapColor+-- , setImageColorspace+-- , setImageCompose+-- , setImageCompression+-- , setImageCompressionQuality+  , setImageDelay+  , setImageDepth+-- , setImageDispose+-- , setImageEndian+-- , setImageExtent+-- , setImageFilename+  , setImageFormat+-- , setImageFuzz+-- , setImageGamma+-- , setImageGravity+-- , setImageGreenPrimary+-- , setImageInterlaceScheme+-- , setImageInterpolateMethod+-- , setImageIterations+-- , setImageMatte+-- , setImageMatteColor+-- , setImageOpacity+-- , setImageOrientation+-- , setImagePage+-- , setImageProgressMonitor+-- , setImageRedPrimary+-- , setImageRenderingIntent+-- , setImageScene+-- , setImageTicksPerSecond+  , setImageType+-- , setImageUnits+-- , setImageVirtualPixelMethod+-- , setImageWhitePoint+-- , shadeImage+-- , shadowImage+-- , sharpenImage+-- , shaveImage+-- , shearImage+-- , sigmoidalContrastImage+-- , similarityImage+-- , sketchImage+-- , smushImages+-- , solarizeImage+-- , sparseColorImage+-- , spliceImage+-- , spreadImage+-- , statisticImage+-- , steganoImage+-- , stereoImage+  , stripImage+-- , swirlImage+-- , textureImage+-- , thresholdImage+-- , thumbnailImage+-- , tintImage+-- , transformImage+-- , transformImageColorspace+-- , transparentPaintImage+-- , transposeImage+-- , transverseImage+-- , trimImage+-- , uniqueImageColors+-- , unsharpMaskImage+-- , vignetteImage+-- , waveImage+-- , whiteThresholdImage+-- , writeImage+-- , writeImageFile+-- , writeImages+-- , writeImagesFile+  , getImageScene+  , setImage+  , removeImage+  , importImagePixels+  , exportImagePixels+  , rotateImage+  ) where++import           Control.Applicative                            ((<$>))+import           Control.Monad (void)+import           Control.Monad.IO.Class+import           Control.Monad.Trans.Resource+import           Data.ByteString                                (ByteString,+                                                                 packCString,+                                                                 packCStringLen,+                                                                 useAsCString,+                                                                 useAsCStringLen)+import           Data.Text                                      (Text)+import qualified Data.Text                                      as T+import           Data.Text.Encoding                             (decodeUtf8,+                                                                 encodeUtf8)+import           Data.Vector.Storable                           (Vector)+import qualified Data.Vector.Storable                           as V+import           Foreign hiding (void)+import           Foreign.C.Types+import           Graphics.ImageMagick.MagickCore.Types+import qualified Graphics.ImageMagick.MagickWand.FFI.MagickWand as F+import           Graphics.ImageMagick.MagickWand.FFI.Types+import qualified Graphics.ImageMagick.MagickWand.FFI.WandImage  as F+import           Graphics.ImageMagick.MagickWand.MagickWand+import           Graphics.ImageMagick.MagickWand.PixelWand+import           Graphics.ImageMagick.MagickWand.Types+import           Graphics.ImageMagick.MagickWand.Utils++getImageHeight :: (MonadResource m) => Ptr MagickWand -> m Int+getImageHeight w = liftIO $ fmap fromIntegral (F.magickGetImageHeight w)++getImageWidth :: (MonadResource m) => Ptr MagickWand -> m Int+getImageWidth w = liftIO $ fmap fromIntegral (F.magickGetImageWidth w)++-- | returns the color of the specified pixel into the pixelwand.+getImagePixelColor :: (MonadResource m)+  => PMagickWand+  -> Int          -- ^ pixel x coordinate+  -> Int          -- ^ pixel y coordinate+  -> PPixelWand   -- ^ return the colormap color in this wand+  -> m ()+getImagePixelColor w x y pw = withException_ w $! F.magickGetImagePixelColor w (fromIntegral x) (fromIntegral y) pw++resizeImage :: (MonadResource m) => Ptr MagickWand -> Int -> Int -> FilterTypes -> Double -> m ()+resizeImage pw w h f s = withException_ pw $! F.magickResizeImage pw (fromIntegral w) (fromIntegral h) f (realToFrac s)++getImageCompressionQuality :: (MonadResource m) => Ptr MagickWand -> m Int+getImageCompressionQuality = liftIO . fmap fromIntegral . F.magickGetImageCompressionQuality++setImageCompressionQuality :: (MonadResource m) => Ptr MagickWand -> Int -> m ()+setImageCompressionQuality w s = withException_ w $! F.magickSetImageCompressionQuality w (fromIntegral s)++getImageBackgroundColor :: (MonadResource m) => PMagickWand -> m PPixelWand+getImageBackgroundColor w = pixelWand >>= \p -> getImageBackgroundColor1 w p >> return p++getImageBackgroundColor1 :: (MonadResource m) => PMagickWand -> PPixelWand -> m ()+getImageBackgroundColor1 w p = withException_ w $! F.magickGetImageBackgroundColor w p++setImageBackgroundColor :: (MonadResource m) => PMagickWand -> PPixelWand -> m ()+setImageBackgroundColor w p = withException_ w $! F.magickSetImageBackgroundColor w p++extentImage :: (MonadResource m) => PMagickWand -> Int -> Int -> Int -> Int -> m ()+extentImage w width height offsetX offsetY = withException_ w $!+  F.magickExtentImage w (fromIntegral width) (fromIntegral height) (fromIntegral offsetX) (fromIntegral offsetY)++floodfillPaintImage :: (MonadResource m) => PMagickWand -> ChannelType -> PPixelWand -> Double -> PPixelWand -> Int -> Int -> Bool -> m ()+floodfillPaintImage w channel fill fuzz border x y invert = withException_ w $!+  F.magickFloodfillPaintImage w channel fill (realToFrac fuzz) border (fromIntegral x) (fromIntegral y) (toMBool invert)++negateImage :: (MonadResource m) => PMagickWand -> Bool -> m ()+negateImage p b = withException_ p $! F.magickNegateImage p (toMBool b)++negateImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Bool -> m ()+negateImageChannel p c b = withException_ p $! F.magickNegateImageChannel p c (toMBool b)++getImageClipMask :: (MonadResource m) => PMagickWand -> m PMagickWand+getImageClipMask = liftIO . F.magickGetImageClipMask++setImageClipMask :: (MonadResource m) => PMagickWand -> PMagickWand -> m ()+setImageClipMask w s = withException_ w $ F.magickSetImageClipMask w s++compositeImage :: (MonadResource m) => PMagickWand -> PMagickWand -> CompositeOperator -> Int -> Int -> m ()+compositeImage p s c w h = withException_ p $ F.magickCompositeImage p s c (fromIntegral w) (fromIntegral h)++compositeImageChannel :: (MonadResource m) => PMagickWand -> PMagickWand -> ChannelType -> CompositeOperator -> Int -> Int -> m ()+compositeImageChannel p s ch c w h = withException_ p $+  F.magickCompositeImageChannel p s ch c (fromIntegral w) (fromIntegral h)++-- | transparentPaintImage changes any pixel that matches color with the color defined by fill.+transparentPaintImage :: (MonadResource m)+  => PMagickWand+  -> PPixelWand           -- ^ change this color to specified opacity value withing the image+  -> Double               -- ^ the level of transarency: 1.0 fully opaque 0.0 fully transparent+  -> Double               -- ^ By default target must match a particular pixel color exactly.+                          -- However, in many cases two colors may differ by a small amount.+                          -- The fuzz member of image defines how much tolerance is acceptable+                          -- to consider two colors as the same. For example, set fuzz to 10 and+                          -- the color red at intensities of 100 and 102 respectively are now+                          -- interpreted as the same color for the purposes of the floodfill.+  -> Bool                 -- paint any pixel that does not match the target color.+  -> m ()+transparentPaintImage w p alfa fuzz invert = withException_ w $ F.magickTransparentPaintImage w p alfa fuzz (toMBool invert)++-- | newImage adds a blank image canvas of the specified size and background color to the wand.+newImage :: (MonadResource m)+  => PMagickWand+  -> Int               -- ^ width+  -> Int               -- ^ height+  -> PPixelWand        -- ^ background color+  -> m ()+newImage p width height b = withException_ p $! F.magickNewImage p (fromIntegral width) (fromIntegral height) b++-- |  drawImage renders the drawing wand on the current image.+drawImage :: (MonadResource m) => PMagickWand -> PDrawingWand -> m ()+drawImage p d = withException_ p $ F.magickDrawImage p d++borderImage :: (MonadResource m) => PMagickWand -> PPixelWand -> Int -> Int -> m ()+borderImage w bordercolor height width = withException_ w $ F.magickBorderImage w bordercolor (fromIntegral width) (fromIntegral height)++shaveImage :: (MonadResource m) => PMagickWand -> Int -> Int -> m ()+shaveImage w columns rows = withException_ w $ F.magickShaveImage w (fromIntegral columns) (fromIntegral rows)++setImageAlphaChannel :: (MonadResource m) => PMagickWand -> AlphaChannelType -> m ()+setImageAlphaChannel w alpha_type = withException_ w $ F.magickSetImageAlphaChannel w alpha_type++flipImage :: (MonadResource m) => Ptr MagickWand -> m ()+flipImage w = withException_ w $ F.magickFlipImage w++flopImage :: (MonadResource m) => Ptr MagickWand -> m ()+flopImage w = withException_ w $ F.magickFlopImage w++addImage :: (MonadResource m) => PMagickWand -> PMagickWand -> m ()+addImage w w' = withException_ w $ F.magickAddImage w w'++-- | MagickAppendImages() append the images in a wand from the current image onwards,+-- creating a new wand with the single image result. This is affected by the gravity+-- and background settings of the first image.+-- Typically you would call either MagickResetIterator() or MagickSetFirstImage() before+-- calling this function to ensure that all the images in the wand's image list will be appended together.+appendImages :: (MonadResource m)+             => PMagickWand+             -> Bool            -- ^ By default, images are stacked left-to-right. Set stack to MagickTrue to stack them top-to-bottom.+             -> m (ReleaseKey, PMagickWand)+appendImages w b = allocate (F.magickAppendImages w (toMBool b)) (void . F.destroyMagickWand)++-- |  MagickAddNoiseImage() adds random noise to the image.+--+addNoiseImage :: (MonadResource m)+              => PMagickWand+              -> NoiseType -- ^ The type of noise: Uniform, Gaussian, Multiplicative, Impulse, Laplacian, or Poisson.+              -> m ()+addNoiseImage w n = withException_ w $ F.magickAddNoiseImage w n++-- | writeImage() writes an image to the specified filename. If the filename+-- parameter is Nothing, the image is written to the filename set by MagickReadImage+-- or MagickSetImageFilename().+writeImage :: (MonadResource m)+           => PMagickWand+           -> Maybe Text+           -> m ()+writeImage w Nothing   = withException_ w $ F.magickWriteImage w nullPtr+writeImage w (Just fn) = withException_ w $ useAsCString (encodeUtf8 fn) (\f -> F.magickWriteImage w f)++writeImages :: (MonadResource m) => Ptr MagickWand -> Text -> Bool -> m ()+writeImages w fn b = withException_ w $ useAsCString (encodeUtf8 fn) (\f -> F.magickWriteImages w f (toMBool b))++-- | MagickBlurImage() blurs an image. We convolve the image with a gaussian+-- operator of the given radius and standard deviation (sigma). For reasonable+-- results, the radius should be larger than sigma. Use a radius of 0 and+-- BlurImage() selects a suitable radius for you.+--+-- The format of the MagickBlurImage method is:+blurImage :: (MonadResource m) => PMagickWand -> Double -> Double -> m ()+blurImage w r s = withException_ w $ F.magickBlurImage w (realToFrac r) (realToFrac s)++blurImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Double -> Double -> m ()+blurImageChannel w c r s = withException_ w $ F.magickBlurImageChannel w c (realToFrac r) (realToFrac s)++-- | MagickNormalizeImage() enhances the contrast of a color image by adjusting+--   the pixels color to span the entire range of colors available+--+--   You can also reduce the influence of a particular channel with a gamma+--   value of 0.+normalizeImage :: (MonadResource m) => PMagickWand -> m ()+normalizeImage w = withException_ w $ F.magickNormalizeImage w++normalizeImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> m ()+normalizeImageChannel w c = withException_ w $ F.magickNormalizeImageChannel w c++-- | Simulates an image shadow.+shadowImage :: (MonadResource m)+  => PMagickWand  -- ^ the magick wand+  -> Double       -- ^ percentage transparency+  -> Double       -- ^ the standard deviation of the Gaussian, in pixels+  -> Int          -- ^ the shadow x-offset+  -> Int          -- ^ the shadow y-offset+  -> m ()+shadowImage w opacity sigma x y = withException_ w $ F.magickShadowImage w (realToFrac opacity) (realToFrac sigma)+                                                                         (fromIntegral x) (fromIntegral y)++-- | sets the image virtual pixel method.+--   the image virtual pixel method : UndefinedVirtualPixelMethod, ConstantVirtualPixelMethod,+--   EdgeVirtualPixelMethod, MirrorVirtualPixelMethod, or TileVirtualPixelMethod.+setVirtualPixelMethod :: (MonadResource m) => PMagickWand -> VirtualPixelMethod -> m VirtualPixelMethod+setVirtualPixelMethod = (liftIO .). F.magickSetVirtualPixelMethod++-- | Remove edges that are the background color from the image.+trimImage :: (MonadResource m) => PMagickWand -> Double -> m ()+trimImage w fuzz = withException_ w $ F.magickTrimImage w (realToFrac fuzz)++-- | Resets the Wand page canvas and position.+resetImagePage :: (MonadResource m) => PMagickWand -> Maybe Text -> m ()+resetImagePage w Nothing = withException_ w $ F.magickResetImagePage w nullPtr+resetImagePage w (Just page) = withException_ w $ useAsCString (encodeUtf8 page) (F.magickResetImagePage w)++-- | Resets the Wand page canvas and position.+distortImage :: (MonadResource m)+  => PMagickWand+  -> DistortImageMethod -- ^ the method of image distortion+  -> [Double]           -- ^ the arguments for this distortion method+  -> Bool               -- ^ attempt to resize destination to fit distorted source+  -> m ()+distortImage w method args bestfit = withException_ w $! withArrayLen (map realToFrac args) distort+  where+    distort len arr = F.magickDistortImage w method (fromIntegral len) arr (toMBool bestfit)++-- | Sshines a distant light on an image to create+-- a three-dimensional effect. You control the positioning of the light+-- with azimuth and elevation; azimuth is measured in degrees off the x axis+-- and elevation is measured in pixels above the Z axis.+shadeImage :: (MonadResource m)+  => PMagickWand+  -> Bool   -- ^ a value other than zero shades the intensity of each pixel+  -> Double -- ^ azimuth of the light source direction+  -> Double -- ^ evelation of the light source direction+  -> m ()+shadeImage w gray azimuth elevation = withException_ w $ F.magickShadeImage w (toMBool gray)+                                                                            (realToFrac azimuth) (realToFrac elevation)++-- | Resets the Wand page canvas and position.+colorizeImage :: (MonadResource m) => PMagickWand -> PPixelWand -> PPixelWand -> m ()+colorizeImage w colorize opacity = withException_ w $! F.magickColorizeImage w colorize opacity++-- | Evaluate expression for each pixel in the image.+fxImage :: (MonadResource m) => PMagickWand -> Text -> m (ReleaseKey, Ptr MagickWand)+fxImage w expr = wandResource (useAsCString (encodeUtf8 expr) (F.magickFxImage w))++-- | Evaluate expression for each pixel in the image.+fxImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Text -> m (ReleaseKey, Ptr MagickWand)+fxImageChannel w channel expr = wandResource (useAsCString (encodeUtf8 expr) (F.magickFxImageChannel w channel))++-- | Adjusts the contrast of an image with a  non-linear sigmoidal contrast algorithm.+-- Increase the contrast of the image using a sigmoidal transfer function without+-- saturating highlights or shadows. Contrast indicates how much to increase the contrast+-- (0 is none; 3 is typical; 20 is pushing it); mid-point indicates where midtones fall+-- in the resultant image (0 is white; 50 is middle-gray; 100 is black). Set sharpen to `True`+-- to increase the image contrast otherwise the contrast is reduced.+sigmoidalContrastImage :: (MonadResource m) => PMagickWand -> Bool -> Double -> Double -> m ()+sigmoidalContrastImage w sharpen alpha beta =+  withException_ w $! F.magickSigmoidalContrastImage w (toMBool sharpen) (realToFrac alpha) (realToFrac beta)++-- see `sigmoidalContrastImage`+sigmoidalContrastImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> Bool -> Double -> Double -> m ()+sigmoidalContrastImageChannel w channel sharpen alpha beta =+  withException_ w $! F.magickSigmoidalContrastImageChannel w channel (toMBool sharpen) (realToFrac alpha) (realToFrac beta)++-- | Applies an arithmetic, relational, or logical expression to an image.+-- Use these operators to lighten or darken an image, to increase or decrease+-- contrast in an image, or to produce the "negative" of an image.+evaluateImage :: (MonadResource m)+  => PMagickWand+  -> MagickEvaluateOperator -- ^ a channel operator+  -> CDouble                -- ^ value+  -> m ()+evaluateImage w op value = withException_ w $! F.magickEvaluateImage w op value++-- | see `evaluateImage`+evaluateImages :: (MonadResource m)+  => PMagickWand+  -> MagickEvaluateOperator -- ^ a channel operator+  -> m ()+evaluateImages w op = withException_ w $! F.magickEvaluateImages w op++-- | see `evaluateImage`+evaluateImageChannel :: (MonadResource m)+  => PMagickWand+  -> ChannelType            -- ^ the channel(s)+  -> MagickEvaluateOperator -- ^ a channel operator+  -> CDouble                -- ^ value+  -> m ()+evaluateImageChannel w channel op value = withException_ w $! F.magickEvaluateImageChannel w channel op value++-- | Offsets an image as defined by x and y.+rollImage :: (MonadResource m) => PMagickWand -> Double -> Double -> m ()+rollImage w x y = withException_ w $! F.magickRollImage w (realToFrac x) (realToFrac y)++-- | Annotates an image with text.+annotateImage :: (MonadResource m)+  => PMagickWand+  -> PDrawingWand -- ^ the draw wand+  -> Double       -- ^ x ordinate to left of text+  -> Double       -- ^ y ordinate to text baseline+  -> Double       -- ^ rotate text relative to this angle+  -> Text         -- ^ text to draw+  -> m ()+annotateImage w dw x y angle text =+  withException_ w $! useAsCString (encodeUtf8 text)+                                   (F.magickAnnotateImage w dw (realToFrac x) (realToFrac y) (realToFrac angle))++-- | Composes all the image layers from the current given image onward to+-- produce a single image of the merged layers. The inital canvas's size+-- depends on the given ImageLayerMethod, and is initialized using the first+-- images background color. The images are then compositied onto that image+-- in sequence using the given composition that has been assigned to each+-- individual image.+mergeImageLayers :: (MonadResource m) => PMagickWand -> ImageLayerMethod -> m (ReleaseKey, PMagickWand)+mergeImageLayers w method = wandResource (F.magickMergeImageLayers w method)++-- | MagickOptimizeImageLayers() compares each image the GIF disposed+-- forms of the previous image in the sequence. From this it attempts+-- to select the smallest cropped image to replace each frame, while+-- preserving the results of the animation.+optimizeImageLayers :: (MonadResource m) => PMagickWand+  -> m (ReleaseKey, PMagickWand)+optimizeImageLayers = wandResource . F.magickOptimizeImageLayers++-- | OptimizeImageTransparency() takes a frame optimized GIF animation, and+-- | compares the overlayed pixels against the disposal image resulting from all+-- | the previous frames in the animation. Any pixel that does not change the+-- | disposal image (and thus does not effect the outcome of an overlay) is made+-- | transparent.+-- |+-- | WARNING: This modifies the current images directly, rather than generate+-- | a new image sequence.+optimizeImageTransparency :: (MonadResource m) => PMagickWand+  -> m ()+optimizeImageTransparency w = withException_ w $! F.magickOptimizeImageTransparency w++-- | Applies a color vector to each pixel in the image. The length of the+-- vector is 0 for black and white and at its maximum for the midtones.+-- The vector weighting function is f(x)=(1-(4.0*((x-0.5)*(x-0.5)))).+--+-- The format of the MagickTintImage method is:+tintImage :: (MonadResource m) => PMagickWand+          -> PPixelWand    -- ^ tint pixel+          -> PPixelWand    -- ^ opacity pixel+          -> m ()+tintImage w t o = withException_ w $ F.magickTintImage w t o+++-- |  MagickGaussianBlurImage() blurs an image. We convolve the image with a Gaussian operator+-- of the given radius and standard deviation (sigma). For reasonable results, the radius should+-- be larger than sigma. Use a radius of 0 and MagickGaussianBlurImage() selects a suitable radius for you.+gaussianBlurImage :: (MonadResource m) => PMagickWand+                  -> Double+                  -> Double+                  -> m ()+gaussianBlurImage w r s = withException_ w $ F.magickGaussianBlurImage w (realToFrac r) (realToFrac s)++gaussianBlurImageChannel :: (MonadResource m) => PMagickWand+                  -> ChannelType+                  -> Double+                  -> Double+                  -> m ()+gaussianBlurImageChannel w c r s = withException_ w $ F.magickGaussianBlurImageChannel w c (realToFrac r) (realToFrac s)++setImageMatte :: (MonadResource m) => PMagickWand+              -> Bool+              -> m ()+setImageMatte w b = withException_ w $ F.magickSetImageMatte w (toMBool b)++-- | Extracts a region of the image.+cropImage :: (MonadResource m) => PMagickWand+  -> Int         -- ^ the region width+  -> Int         -- ^ the region height+  -> Int         -- ^ the region x-offset+  -> Int         -- ^ the region y-offset+  -> m ()+cropImage w width height x y = withException_ w $ F.magickCropImage w (fromIntegral width) (fromIntegral height)+                                                                      (fromIntegral x) (fromIntegral y)++-- | Slides one edge of an image along the X or Y axis, creating+-- a parallelogram. An X direction shear slides an edge along+-- the X axis, while a Y direction shear slides an edge along+-- the Y axis. The amount of the shear is controlled by a shear+-- angle. For X direction shears, x_shear is measured relative+-- to the Y axis, and similarly, for Y direction shears y_shear is+-- measured relative to the X axis. Empty triangles left over from+-- shearing the image are filled with the background color.+shearImage :: (MonadResource m) => PMagickWand+  -> PPixelWand -- ^ the background pixel wand+  -> Double     -- ^ the number of degrees to shear the image+  -> Double     -- ^ the number of degrees to shear the image+  -> m ()+shearImage w pw x_shear y_shear =+  withException_ w $ F.magickShearImage w pw (realToFrac x_shear) (realToFrac y_shear)++-- | Scales the size of an image to the given dimensions.+scaleImage :: (MonadResource m) => PMagickWand+  -> Int        -- ^ the number of degrees to shear the image+  -> Int        -- ^ the number of degrees to shear the image+  -> m ()+scaleImage w columns rows =+  withException_ w $ F.magickScaleImage w (fromIntegral columns) (fromIntegral rows)+++-- | MagickSparseColorImage(), given a set of coordinates, interpolates the+-- colors found at those coordinates, across the whole image, using various methods.+--+-- The format of the MagickSparseColorImage method is:+--   ArcSparseColorion will always ignore source image offset, and always 'bestfit'+-- the destination image with the top left corner offset relative to the polar mapping center.+--+-- Bilinear has no simple inverse mapping so will not allow 'bestfit' style of image sparseion.+--+-- Affine, Perspective, and Bilinear, will do least squares fitting of the distrotion when more+-- than the minimum number of control point pairs are provided.+--+-- Perspective, and Bilinear, will fall back to a Affine sparseion when less than 4 control+-- point pairs are provided. While Affine sparseions will let you use any number of control+-- point pairs, that is Zero pairs is a No-Op (viewport only) distrotion, one pair is a+-- translation and two pairs of control points will do a scale-rotate-translate, without any+-- shearing.+sparseColorImage :: (MonadResource m) => PMagickWand+                 -> ChannelType+                 -> SparseColorMethod+                 -> Vector Double+                 -> m()+sparseColorImage w c m v =+  withException_ w $ V.unsafeWith v $ \v' -> F.magickSparseColorImage w c m (fromIntegral $ V.length v) v'++-- | MagickFunctionImage() applys an arithmetic, relational, or logical expression to an image.+-- Use these operators to lighten or darken an image, to increase or decrease contrast in an+-- image, or to produce the "negative" of an image.+functionImage :: (MonadResource m) => PMagickWand -> MagickFunction -> Vector Double -> m ()+functionImage w f v =+  withException_ w $ V.unsafeWith v $ \v' -> F.magickFunctionImage w f (fromIntegral $ V.length v) v'++functionImageChannel :: (MonadResource m) => PMagickWand -> ChannelType -> MagickFunction -> Vector Double -> m ()+functionImageChannel w c f v =+  withException_ w $ V.unsafeWith v $ \v' -> F.magickFunctionImageChannel w c f (fromIntegral $ V.length v) v'+++-- | MagickCoalesceImages() composites a set of images while respecting any page offsets and disposal methods. GIF, MIFF, and MNG animation sequences typically start with an image background and each subsequent image varies in size and offset. MagickCoalesceImages() returns a new sequence where each image in the sequence is the same size as the first and composited with the next image in the sequence.+coalesceImages :: (MonadResource m) => PMagickWand+  -> m (ReleaseKey, PMagickWand)+coalesceImages = wandResource . F.magickCoalesceImages++-- | returns the number of images associated with a magick wand.+getNumberImages :: (MonadResource m) => PMagickWand -> m Int+getNumberImages w = liftIO $ fromIntegral <$> F.magickGetNumberImages w++-- | Gets the image at the current image index.+getImage :: (MonadResource m) => PMagickWand -> m (ReleaseKey, PMagickWand)+getImage = wandResource . F.magickGetImage++-- | Compares each image with the next in a sequence and returns+-- the maximum bounding region of any pixel differences it discovers.+compareImageLayers :: (MonadResource m) => PMagickWand -> ImageLayerMethod -> m (ReleaseKey, PMagickWand)+compareImageLayers = (wandResource .). F.magickCompareImageLayers++-- | Gets the image scene+getImageScene :: (MonadResource m) => PMagickWand -> m Int+getImageScene w = liftIO $ fromIntegral <$> F.magickGetImageScene w++-- | MagickRemoveImage() removes an image from the image list.+removeImage :: (MonadResource m) => PMagickWand -> m ()+removeImage w = withException_ w $ F.magickRemoveImage w++-- | Replaces the last image returned by `setImageIndex` and+-- iteration methods with the images from the specified wand.+setImage :: (MonadResource m) => PMagickWand -> PMagickWand -> m ()+setImage w sw = withException_ w $ F.magickSetImage w sw++-- | Accepts pixel data. The pixel data can be in any `Pixels` format+-- in the order specified by map.+importImagePixels :: (MonadResource m, Pixel a) => PMagickWand+                     -> Int      -- ^ x+                     -> Int      -- ^ y+                     -> Int      -- ^ columns+                     -> Int      -- ^ rows+                     -- TODO migrate to typesafe parameter+                     -> Text     -- ^ map+                     -> [a]      -- ^ imported pixels+                     -> m ()+importImagePixels w x y width height cmap pixels =+  withException_ w $ useAsCString (encodeUtf8 cmap) $ \cstr ->+    withPixels pixels $ (F.magickImportImagePixels w x' y' width' height' cstr stype) . castPtr+    where+      x' = fromIntegral x+      y' = fromIntegral y+      width' = fromIntegral width+      height' = fromIntegral height+      stype   = pixelStorageType pixels++-- | Extracts pixel data from an image and returns it to you. The data is+-- returned as `Pixels` in the order specified by cmap.+exportImagePixels :: (MonadResource m, Pixel a) => PMagickWand+                     -> Int     -- ^ x+                     -> Int     -- ^ y+                     -> Int     -- ^ columns+                     -> Int     -- ^ rows+                     -- TODO migrate to typesafe parameter+                     -> Text    -- ^ map+                     -> m [a]+exportImagePixels w x y width height cmap = liftIO $ useAsCString (encodeUtf8 cmap) $  \cstr ->+  exportArray arrLength (F.magickExportImagePixels w x' y' width' height' cstr) undefined+  where+    exportArray :: (Pixel a) => Int -> (StorageType -> Ptr () -> IO b) -> [a] -> IO [a]+    exportArray s f hack = allocaArray s (\q -> f storage (castPtr q) >> peekArray s q)+      where storage = pixelStorageType hack+    x' = fromIntegral x+    y' = fromIntegral y+    width' = fromIntegral width+    height' = fromIntegral height+    arrLength = width * height * (T.length cmap)++-- | Rotates an image the specified number of degrees. Empty triangles left over+-- from rotating the image are filled with the background color.+rotateImage :: (MonadResource m) => PMagickWand -> PPixelWand -> Double -> m ()+rotateImage w background degrees = withException_ w $ F.magickRotateImage w background (realToFrac degrees)++-- | Gets the image depth.+getImageDepth :: (MonadResource m) => PMagickWand -> m Int+getImageDepth w = liftIO $ fromIntegral <$> F.magickGetImageDepth w++-- | Sets the image depth.+setImageDepth :: (MonadResource m) => PMagickWand -> Int -> m ()+setImageDepth w depth = withException_ w $ F.magickSetImageDepth w (fromIntegral depth)++-- | Sets the image compression.+setImageCompression:: (MonadResource m) => PMagickWand -> CompressionType -> m ()+setImageCompression w compressionType = withException_ w $ F.magickSetImageCompression w compressionType++-- | Gets the image delay.+getImageDelay :: (MonadResource m) => PMagickWand -> m Int+getImageDelay w = liftIO $ fromIntegral <$> F.magickGetImageDelay w++-- | Sets the image delay.+setImageDelay :: (MonadResource m) => PMagickWand -> Int -> m ()+setImageDelay w delay = withException_ w $ F.magickSetImageDelay w (fromIntegral delay)++-- | MagickGetImageBlob() implements direct to memory image formats.+-- It returns the image as a blob (a formatted "file" in memory) and+-- its length, starting from the current position in the image sequence.+-- Use 'setImageFormat' to set the format to write to the blob (GIF, JPEG, PNG, etc.).+-- ImageMagick blob is automatically freed in this function, returned bytestring+-- is on haskell heap.+getImageBlob :: (MonadResource m) => PMagickWand -> m ByteString+getImageBlob w = liftIO $ do+  F.magickResetIterator w+  cl <- alloca $ \x -> do+          c <- F.magickGetImageBlob w x+          x' <- fmap fromIntegral (peek x)+          return (c,x')+  out <- packCStringLen cl+  F.magickRelinquishMemory $ castPtr $ fst cl+  return out++-- | MagickGetImageBlob() implements direct to memory image formats. It+-- returns the image sequence as a blob and its length. The format of the image+-- determines the format of the returned blob (GIF, JPEG, PNG, etc.). To+-- return a different image format, use MagickSetImageFormat().+--+-- Note, some image formats do not permit multiple images to the same image+-- stream (e.g. JPEG). in this instance, just the first image of the+-- sequence is returned as a blob.- Returns the image [sequence] as a blob and the total length+getImagesBlob :: (MonadResource m) => PMagickWand -> m ByteString+getImagesBlob w = liftIO $ do+  F.magickResetIterator w+  cl <- alloca $ \x -> do+          c <- F.magickGetImagesBlob w x+          x' <- fmap fromIntegral (peek x)+          return (c,x')+  out <- packCStringLen cl+  F.magickRelinquishMemory $ castPtr $ fst cl+  return out++-- | Reads an image or image sequence. The images are inserted at+-- the current image pointer position+readImage :: (MonadResource m) => Ptr MagickWand -> Text -> m ()+readImage w fn = withException_ w $ useAsCString (encodeUtf8 fn) (F.magickReadImage w)++-- | Reads an image or image sequence from a blob+readImageBlob :: (MonadResource m) => PMagickWand -> ByteString -> m ()+readImageBlob w bs = withException_ w $ useAsCStringLen bs $+                     \(cstr, len) -> F.magickReadImageBlob w (castPtr cstr) (fromIntegral len)++-- | Returns the format of a particular image in a sequence.+getImageFormat :: (MonadResource m) => PMagickWand -> m Text+getImageFormat w = liftIO $ do+                   cstr <- F.magickGetImageFormat w+                   -- TODO: check if we need to release string memory+                   decodeUtf8 <$> packCString cstr++setImageFormat :: (MonadResource m) => PMagickWand -> Text -> m ()+setImageFormat w format = withException_ w $ useAsCString (encodeUtf8 format) (F.magickSetImageFormat w)++-- | Strips an image of all profiles and comments.+stripImage :: (MonadResource m) => PMagickWand -> m ()+stripImage w = withException_ w $ (F.magickStripImage w)++-- | Generates an SHA-256 message digest for the image pixel stream+getImageSignature :: (MonadResource m) => PMagickWand -> m ByteString+getImageSignature w = liftIO $ F.magickGetImageSignature w >>= packCString++-- | Returns `False` if the image alpha channel is not activated.+-- That is, the image is RGB rather than RGBA or CMYK rather than CMYKA.+getImageAlphaChannel :: (MonadResource m) => PMagickWand -> m Bool+getImageAlphaChannel = fromMBool . F.magickGetImageAlphaChannel++-- | Sets image Type+setImageType :: (MonadResource m) => PMagickWand -> ImageType -> m ()+setImageType w imageType = withException_ w $ F.magickSetImageType w imageType+++-- | Convert system specific filepath to bytestring+_toBS = +#if defined(CABAL_OS_WINDOWS) || defined(CABAL_OS_DARWIN)+    encodeUtf8+#else+    id+#endif
test/ImageTest.hs view
@@ -12,17 +12,15 @@ import qualified Data.ByteString                 as BS import           Data.Maybe import qualified Data.Vector.Storable            as V+import qualified Data.Text as T import           Data.Word-import           Filesystem.Path-import           Filesystem.Path.CurrentOS       (decodeString, encodeString)-import           Prelude                         hiding (FilePath, catch)+import           Prelude import           System.Directory                (getTemporaryDirectory,                                                   removeFile) import           System.IO                       (hClose, openTempFile) -import           Test.Framework                  (Test, defaultMain, testGroup)-import           Test.Framework.Providers.HUnit-import           Test.HUnit                      hiding (Test)+import           Test.Tasty+import           Test.Tasty.HUnit  import           Graphics.ImageMagick.MagickWand @@ -31,44 +29,29 @@ main = defaultMain tests  -- tests mostly taken from wand(http://dahlia.kr/wand/) source code-tests :: [Test]-tests =-    [-      testGroup "Behaves to spec"-      [-        testCase "reading file" test_readImage-        , testCase "getting & reading blob" test_getReadImageBlob-        , testCase "reading blob" test_readImageBlob-        , testCase "magick wand cloning" test_cloneWand-        , testCase "writing image" test_writeImage-        , testCase "width/height getters" test_size-        , testCase "image depth getter" test_getDepth-        , testCase "image depth setter" test_setDepth-        , testCase "jpeg format" test_formatJpeg-        , testCase "png format" test_formatPng-        , testCase "set format" test_setFormat-        , testCase "set bad format" test_setBadFormat-        , testCase "getting jpeg compression quality" test_getCompressionQuality-        , testCase "setting jpeg compression quality" test_setCompressionQuality-        , testCase "stripping" test_strip-        , testCase "trimming" test_trim-        , testCase "format to MIME conversion" test_mime-        , testCase "iterate" test_iterate-        , testCase "getitng pixel" test_pixel-        , testCase "cropping image" test_crop-        , testCase "resizing image" test_resize-        , testCase "rotating image" test_rotate-        , testCase "image signature" test_signature-        , testCase "getting alpha channel" test_getImageAlphaChannel-        , testCase "setting alpha channel" test_setImageAlphaChannel-        , testCase "getting background color" test_getImageBackgroundColor-        , testCase "setting background color" test_setImageBackgroundColor-        , testCase "watermark" test_watermark-        , testCase "reset" test_reset-        , testCase "getting an imageS blob for an animated GIF" test_getImagesBlobForSequence-        , testCase "getting an imageS blob for a single image" test_getImagesBlobForSingle-      ]-    ]+tests :: TestTree+tests = localOption (mkTimeout 1000000) $ testGroup "Behaves to spec"+  [ testCase "reading file" test_readImage+  -- , testCase "stripping" test_strip+  -- , testCase "trimming" test_trim+  -- , testCase "format to MIME conversion" test_mime+  -- , testCase "iterate" test_iterate+  -- , testCase "getitng pixel" test_pixel+  -- , testCase "cropping image" test_crop+  -- , testCase "resizing image" test_resize+  -- , testCase "rotating image" test_rotate+  -- , testCase "image signature" test_signature+  -- , testCase "getting alpha channel" test_getImageAlphaChannel+  -- , testCase "setting alpha channel" test_setImageAlphaChannel+  -- , testCase "unsetting alpha channel" test_unsetImageAlphaChannel+  -- , testCase "getting background color" test_getImageBackgroundColor+  -- , testCase "setting background color" test_setImageBackgroundColor+  -- , testCase "watermark" test_watermark+  -- -- Creates black background instead of transparent+  -- -- , testCase "reset" test_reset+  -- , testCase "getting an imageS blob for an animated GIF" test_getImagesBlobForSequence+  -- , testCase "getting an imageS blob for a single image" test_getImagesBlobForSingle+  ]   test_readImage :: IO ()@@ -78,7 +61,7 @@  test_readImageBlob :: IO () test_readImageBlob = withWand $ \w -> do-  blob <- liftIO $ BS.readFile (encodeString (dataFile "mona-lisa.jpg"))+  blob <- liftIO $ BS.readFile (dataFile "mona-lisa.jpg")   readImageBlob w blob   width <- getImageWidth w   liftIO $ width @?= 402@@ -96,9 +79,9 @@   d <- liftIO $ getTemporaryDirectory   (tmpName, hTemp) <- liftIO $ openTempFile d ""   liftIO $ hClose  hTemp-  writeImage w (Just (decodeString tmpName))+  writeImage w (Just $ T.pack tmpName)   (_,w') <- magickWand-  readImage w' (decodeString tmpName)+  readImage w' (T.pack tmpName)   size' <- getImageSize w'   liftIO $ removeFile tmpName   liftIO $ size' @?= size@@ -311,11 +294,20 @@     liftIO $ alphaCh @?= False  test_setImageAlphaChannel :: IO ()-test_setImageAlphaChannel = withImage "watermark.png" $ \w -> do+test_setImageAlphaChannel = withImage "mona-lisa.jpg" $ \w -> do+  setImageAlphaChannel w deactivateAlphaChannel   alphaCh <- getImageAlphaChannel w-  liftIO $ alphaCh @?= True+  liftIO $ alphaCh @?= False   setImageAlphaChannel w activateAlphaChannel   alphaCh' <- getImageAlphaChannel w+  liftIO $ alphaCh' @?= True++test_unsetImageAlphaChannel :: IO ()+test_unsetImageAlphaChannel = withImage "watermark.png" $ \w -> do+  alphaCh <- getImageAlphaChannel w+  liftIO $ alphaCh @?= True+  setImageAlphaChannel w deactivateAlphaChannel+  alphaCh' <- getImageAlphaChannel w   liftIO $ alphaCh' @?= False  test_getImageBackgroundColor :: IO ()@@ -334,13 +326,13 @@ test_watermark :: IO () test_watermark = withImage "beach.jpg" $ \w -> do   (_,watermark) <- magickWand-  readImage watermark (dataFile "watermark.png")+  readImage watermark (T.pack $ dataFile "watermark.png")   setIteratorIndex watermark 0   setImageType watermark trueColorMatteType   evaluateImageChannel watermark opacityChannel subtractEvaluateOperator (0.3 * quantumRange)   compositeImage w watermark overCompositeOp 0 0   (_,marked) <- magickWand-  readImage marked (dataFile "marked.png")+  readImage marked (T.pack $ dataFile "marked.png")   sig1 <- getImageSignature marked   sig2 <- getImageSignature w   liftIO $ sig2 @?= sig1@@ -354,7 +346,7 @@   resetImagePage w Nothing   sig1 <- getImageSignature w   (_,control) <- magickWand-  readImage control (dataFile "resettest.png")+  readImage control (T.pack $ dataFile "resettest.png")   sig2 <- getImageSignature control   liftIO $ sig1 @?= sig2 @@ -364,14 +356,14 @@ fuzz = 10  dataFile :: String -> FilePath-dataFile name = decodeString ("data/" ++ name)+dataFile name = "data/" ++ name  withWand f =  withMagickWandGenesis $ do   (_,w) <- magickWand   f w  withImage name f = withWand $ \w -> do-  readImage w (dataFile name)+  readImage w (T.pack $ dataFile name)   f w  getImageSize :: (MonadResource m) => PMagickWand -> m (Int, Int)@@ -390,7 +382,7 @@ assertMagickWandException :: (MonadResource m, MonadBaseControl IO m) => m a -> m () assertMagickWandException action =   catch (action >> (liftIO $ assertFailure "Expected MagickWandException"))-    (\(_::MagickWandException) -> return ())+        (\(_::MagickWandException) -> return ())  assertEqualPW :: (MonadResource m) => PPixelWand -> PPixelWand -> m () assertEqualPW pw1 pw2 = do