{-# LINE 1 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} {-# LANGUAGE CPP #-} {-# LINE 2 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE NoMonomorphismRestriction #-} module Graphics.ImageMagick.MagickCore.Types.FFI.PixelPacket where import Data.Int import Data.Word import Foreign import Foreign.C.Types {-# LINE 12 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} data PixelPacket instance Storable PixelPacket where sizeOf = const (8) {-# LINE 17 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} alignment _ = 1 pixelPacketGetRed = (\hsc_ptr -> peekByteOff hsc_ptr 4) {-# LINE 20 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketGetGreen = (\hsc_ptr -> peekByteOff hsc_ptr 2) {-# LINE 21 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketGetBlue = (\hsc_ptr -> peekByteOff hsc_ptr 0) {-# LINE 22 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketGetOpacity = (\hsc_ptr -> peekByteOff hsc_ptr 6) {-# LINE 23 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetRed = (\hsc_ptr -> pokeByteOff hsc_ptr 4) {-# LINE 24 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetGreen = (\hsc_ptr -> pokeByteOff hsc_ptr 2) {-# LINE 25 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetBlue = (\hsc_ptr -> pokeByteOff hsc_ptr 0) {-# LINE 26 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-} pixelPacketSetOpacity = (\hsc_ptr -> pokeByteOff hsc_ptr 6) {-# LINE 27 "Graphics/ImageMagick/MagickCore/Types/FFI/PixelPacket.hsc" #-}