mirror of
https://github.com/qnikst/imagemagick.git
synced 2024-10-04 00:47:11 +03:00
Merge branch '17dec-unsharp'
This commit is contained in:
commit
32fdbf822a
@ -270,6 +270,10 @@ foreign import ccall "MagickShadowImage" magickShadowImage
|
||||
foreign import ccall "MagickTrimImage" magickTrimImage
|
||||
:: Ptr MagickWand -> CDouble -> IO MagickBooleanType
|
||||
|
||||
-- | MagickUnsharpMaskImage() sharpens an image.
|
||||
foreign import ccall "MagickUnsharpMaskImage" magickUnsharpMaskImage
|
||||
:: Ptr MagickWand -> CDouble -> CDouble -> CDouble -> CDouble -> IO MagickBooleanType
|
||||
|
||||
-- | MagickSetImageOrientation() sets the image orientation.
|
||||
foreign import ccall "MagickSetImageOrientation" magickSetImageOrientation
|
||||
:: Ptr MagickWand -> OrientationType -> IO MagickBooleanType
|
||||
|
@ -315,7 +315,7 @@ module Graphics.ImageMagick.MagickWand.WandImage
|
||||
-- , transverseImage
|
||||
-- , trimImage
|
||||
-- , uniqueImageColors
|
||||
-- , unsharpMaskImage
|
||||
, unsharpMaskImage
|
||||
-- , vignetteImage
|
||||
-- , waveImage
|
||||
-- , whiteThresholdImage
|
||||
@ -547,6 +547,11 @@ setVirtualPixelMethod = (liftIO .). F.magickSetVirtualPixelMethod
|
||||
trimImage :: (MonadResource m) => PMagickWand -> Double -> m ()
|
||||
trimImage w fuzz = withException_ w $ F.magickTrimImage w (realToFrac fuzz)
|
||||
|
||||
-- | Sharpen the image with an unsharp mask operator.
|
||||
unsharpMaskImage :: (MonadResource m) => PMagickWand -> Double -> Double -> Double -> Double -> m ()
|
||||
unsharpMaskImage w rad sig gain thres = withException_ w $ F.magickUnsharpMaskImage w (realToFrac rad) (realToFrac sig)
|
||||
(realToFrac gain) (realToFrac thres)
|
||||
|
||||
-- | sets the image orientation.
|
||||
setImageOrientation :: (MonadResource m) => PMagickWand -> OrientationType -> m ()
|
||||
setImageOrientation w o = withException_ w $! F.magickSetImageOrientation w o
|
||||
|
Loading…
Reference in New Issue
Block a user