{-# LINE 1 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} {-# LANGUAGE CPP #-} {-# LINE 2 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE NoMonomorphismRestriction #-} module Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket where import Foreign {-# LINE 9 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} data PixelPacket instance Storable PixelPacket where sizeOf = const (8) {-# LINE 14 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} alignment _ = 1 peek = error "not yet implemented" poke = error "not yet implemented" pixelPacketGetRed, pixelPacketGetGreen, pixelPacketGetBlue , pixelPacketGetOpacity :: Storable a => Ptr b -> IO a pixelPacketGetRed = (\hsc_ptr -> peekByteOff hsc_ptr 4) {-# LINE 22 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketGetGreen = (\hsc_ptr -> peekByteOff hsc_ptr 2) {-# LINE 23 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketGetBlue = (\hsc_ptr -> peekByteOff hsc_ptr 0) {-# LINE 24 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketGetOpacity = (\hsc_ptr -> peekByteOff hsc_ptr 6) {-# LINE 25 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetRed, pixelPacketSetGreen, pixelPacketSetBlue , pixelPacketSetOpacity :: Storable a => Ptr b -> a -> IO () pixelPacketSetRed = (\hsc_ptr -> pokeByteOff hsc_ptr 4) {-# LINE 31 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetGreen = (\hsc_ptr -> pokeByteOff hsc_ptr 2) {-# LINE 32 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetBlue = (\hsc_ptr -> pokeByteOff hsc_ptr 0) {-# LINE 33 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetOpacity = (\hsc_ptr -> pokeByteOff hsc_ptr 6) {-# LINE 34 "src/Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-}