{-# LINE 1 "Graphics/Rendering/FreeType/Internal/BitmapGlyph.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LINE 2 "Graphics/Rendering/FreeType/Internal/BitmapGlyph.hsc" #-}
module Graphics.Rendering.FreeType.Internal.BitmapGlyph
( FT_BitmapGlyph
, root
, left
, top
, bitmap
, cast
) where

import Foreign


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

{-# LINE 15 "Graphics/Rendering/FreeType/Internal/BitmapGlyph.hsc" #-}

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

import Graphics.Rendering.FreeType.Internal.PrimitiveTypes
import Graphics.Rendering.FreeType.Internal.Bitmap
import Graphics.Rendering.FreeType.Internal.Glyph

newtype FT_BitmapGlyph = FT_BitmapGlyph FT_Glyph

root :: FT_BitmapGlyph -> FT_Glyph
root (FT_BitmapGlyph ptr) = ptr

left :: FT_BitmapGlyph -> Ptr FT_Int
left (FT_BitmapGlyph ptr) = ((\hsc_ptr -> hsc_ptr `plusPtr` 20)) ptr
{-# LINE 28 "Graphics/Rendering/FreeType/Internal/BitmapGlyph.hsc" #-}

top :: FT_BitmapGlyph -> Ptr FT_Int
top (FT_BitmapGlyph ptr) = ((\hsc_ptr -> hsc_ptr `plusPtr` 24)) ptr
{-# LINE 31 "Graphics/Rendering/FreeType/Internal/BitmapGlyph.hsc" #-}

bitmap :: FT_BitmapGlyph -> Ptr FT_Bitmap
bitmap (FT_BitmapGlyph ptr) = ((\hsc_ptr -> hsc_ptr `plusPtr` 28)) ptr
{-# LINE 34 "Graphics/Rendering/FreeType/Internal/BitmapGlyph.hsc" #-}

cast :: FT_Glyph -> FT_BitmapGlyph
cast = FT_BitmapGlyph