{-# LINE 1 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LINE 2 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
module Graphics.Rendering.FreeType.Internal.Span
( FT_Span(..)
) where

import Foreign
import Foreign.C.Types


{-# LINE 10 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}

{-# LINE 11 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}


{-# LINE 13 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}

{-# LINE 14 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}


{-# LINE 16 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}

data FT_Span = FT_Span
  { x        :: CShort
  , len      :: CUShort
  , coverage :: CUChar
  }
  deriving (Read, Show, Eq)

instance Storable FT_Span where
  sizeOf    _ = (6)
{-# LINE 26 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
  alignment _ = 2
{-# LINE 27 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
  peek ptr = do
    x'        <- ((\hsc_ptr -> peekByteOff hsc_ptr 0)) ptr
{-# LINE 29 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
    len'      <- ((\hsc_ptr -> peekByteOff hsc_ptr 2)) ptr
{-# LINE 30 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
    coverage' <- ((\hsc_ptr -> peekByteOff hsc_ptr 4)) ptr
{-# LINE 31 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
    return $ FT_Span
      { x = x'
      , len = len'
      , coverage = coverage'
      }
  poke ptr val = do
    ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) ptr (x val)
{-# LINE 38 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 2)) ptr (len val)
{-# LINE 39 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 4)) ptr (coverage val)
{-# LINE 40 "Graphics/Rendering/FreeType/Internal/Span.hsc" #-}