 import Foreign.Ptr
 import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
 import Foreign.Storable
+import Foreign.Storable.Tuple
 import System.IO.Unsafe
 import Data.Word
 import qualified Data.Complex as C

                                         r <- peek (castPtr (d`plusPtr` (y*cs +(x*3+2)*fs)))
                                         return (r,g,b)

instance GetPixel (Image LAB D32) where
    type P (Image LAB D32) = (D32,D32,D32)
    {-#INLINE getPixel#-}

, getAllPixels
, getAllPixelsRowMajor
, mapImageInplace
, mapColourImageInplace
-- * Image information
, ImageDepth
, Sized(..)
