{-# LINE 1 "Graphics/Rendering/FreeType/Internal/OutlineGlyph.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LINE 2 "Graphics/Rendering/FreeType/Internal/OutlineGlyph.hsc" #-}
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


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

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


{-# LINE 18 "Graphics/Rendering/FreeType/Internal/OutlineGlyph.hsc" #-}

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
{-# LINE 26 "Graphics/Rendering/FreeType/Internal/OutlineGlyph.hsc" #-}

cast :: FT_Glyph -> FT_OutlineGlyph
cast = FT_OutlineGlyph