module Graphics.Rendering.FreeType.Internal.BitmapGlyph
( FT_BitmapGlyph
, root
, left
, top
, bitmap
, cast
) where
import Foreign
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` 40)) ptr
top :: FT_BitmapGlyph -> Ptr FT_Int
top (FT_BitmapGlyph ptr) = ((\hsc_ptr -> hsc_ptr `plusPtr` 44)) ptr
bitmap :: FT_BitmapGlyph -> Ptr FT_Bitmap
bitmap (FT_BitmapGlyph ptr) = ((\hsc_ptr -> hsc_ptr `plusPtr` 48)) ptr
cast :: FT_Glyph -> FT_BitmapGlyph
cast = FT_BitmapGlyph