{-# LINE 1 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} {-# LANGUAGE ForeignFunctionInterface, EmptyDataDecls #-} {-# LINE 2 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} module Graphics.Rendering.FreeType.Internal.Glyph ( FT_GlyphRec_ , FT_Glyph , library , format , advance ) where import Foreign import Graphics.Rendering.FreeType.Internal.PrimitiveTypes import qualified Graphics.Rendering.FreeType.Internal.Library as L import qualified Graphics.Rendering.FreeType.Internal.Vector as V {-# LINE 17 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} {-# LINE 18 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} {-# LINE 20 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} {-# LINE 21 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} {-# LINE 23 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} data FT_GlyphRec_ type FT_Glyph = Ptr FT_GlyphRec_ library :: FT_Glyph -> Ptr L.FT_Library library = (\hsc_ptr -> hsc_ptr `plusPtr` 0) {-# LINE 29 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} format :: FT_Glyph -> Ptr FT_Glyph_Format format = (\hsc_ptr -> hsc_ptr `plusPtr` 8) {-# LINE 32 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-} advance :: FT_Glyph -> Ptr V.FT_Vector advance = (\hsc_ptr -> hsc_ptr `plusPtr` 12) {-# LINE 35 "Graphics/Rendering/FreeType/Internal/Glyph.hsc" #-}