module Graphics.Rendering.FreeType.Internal.OutlineGlyph
( FT_OutlineGlyph
, root
, outline
, cast
) where
import Foreign
import Graphics.Rendering.FreeType.Internal.Glyph
import Graphics.Rendering.FreeType.Internal.Outline
newtype FT_OutlineGlyph = FT_OutlineGlyph FT_Glyph
root :: FT_OutlineGlyph -> FT_Glyph
root (FT_OutlineGlyph ptr) = ptr
outline :: FT_OutlineGlyph -> Ptr FT_Outline
outline (FT_OutlineGlyph ptr) = ((\hsc_ptr -> hsc_ptr `plusPtr` 20)) ptr
cast :: FT_Glyph -> FT_OutlineGlyph
cast = FT_OutlineGlyph