{-# LINE 1 "src/SDL/Raw/Font.hsc" #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE TemplateHaskell #-}
module SDL.Raw.Font
(
init
, wasInit
, quit
, getVersion
, Font
, FontPath
, PointSize
, openFont
, Free
, openFont_RW
, Index
, openFontIndex
, openFontIndex_RW
, closeFont
, getFontStyle
, setFontStyle
, pattern TTF_STYLE_NORMAL
, pattern TTF_STYLE_BOLD
, pattern TTF_STYLE_ITALIC
, pattern TTF_STYLE_UNDERLINE
, pattern TTF_STYLE_STRIKETHROUGH
, getFontOutline
, setFontOutline
, getFontHinting
, setFontHinting
, pattern TTF_HINTING_NORMAL
, pattern TTF_HINTING_LIGHT
, pattern TTF_HINTING_MONO
, pattern TTF_HINTING_NONE
, getFontKerning
, setFontKerning
, fontHeight
, fontAscent
, fontDescent
, fontLineSkip
, fontFaces
, fontFaceIsFixedWidth
, fontFaceFamilyName
, fontFaceStyleName
, glyphIsProvided
, glyphMetrics
, getFontKerningSize
, sizeText
, sizeUTF8
, sizeUNICODE
, renderText_Solid
, renderText_Shaded
, renderText_Blended
, renderText_Blended_Wrapped
, renderUTF8_Solid
, renderUTF8_Shaded
, renderUTF8_Blended
, renderUTF8_Blended_Wrapped
, renderUNICODE_Solid
, renderUNICODE_Shaded
, renderUNICODE_Blended
, renderUNICODE_Blended_Wrapped
, renderGlyph_Solid
, renderGlyph_Shaded
, renderGlyph_Blended
, byteSwappedUNICODE
, pattern UNICODE_BOM_NATIVE
, pattern UNICODE_BOM_SWAPPED
) where
import Foreign.C.String (CString)
import Foreign.C.Types (CInt(..), CLong(..), CUShort(..), CUInt(..))
import Foreign.Ptr (Ptr)
import Prelude hiding (init)
import SDL.Raw.Types (Version, Surface, RWops, Color)
import SDL.Raw.Helper (liftF)
pattern UNICODE_BOM_NATIVE = 65279
{-# LINE 106 "src/SDL/Raw/Font.hsc" #-}
pattern UNICODE_BOM_SWAPPED = 65534
{-# LINE 107 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_STYLE_NORMAL = 0
{-# LINE 108 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_STYLE_BOLD = 1
{-# LINE 109 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_STYLE_ITALIC = 2
{-# LINE 110 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_STYLE_UNDERLINE = 4
{-# LINE 111 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_STYLE_STRIKETHROUGH = 8
{-# LINE 112 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_HINTING_LIGHT = 1
{-# LINE 113 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_HINTING_MONO = 2
{-# LINE 114 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_HINTING_NONE = 3
{-# LINE 115 "src/SDL/Raw/Font.hsc" #-}
pattern TTF_HINTING_NORMAL = 0
{-# LINE 116 "src/SDL/Raw/Font.hsc" #-}
liftF "getVersion" "TTF_Linked_Version"
[t|IO (Ptr Version)|]
liftF "init" "TTF_Init"
[t|IO CInt|]
liftF "wasInit" "TTF_WasInit"
[t|IO CInt|]
liftF "quit" "TTF_Quit"
[t|IO ()|]
type FontPath = CString
type PointSize = CInt
data Font
type Free = CInt
type Index = CLong
liftF "openFont" "TTF_OpenFont"
[t|FontPath -> PointSize -> IO (Ptr Font)|]
liftF "openFont_RW" "TTF_OpenFontRW"
[t|Ptr RWops -> Free -> PointSize -> IO (Ptr Font)|]
liftF "openFontIndex" "TTF_OpenFontIndex"
[t|FontPath -> PointSize -> Index -> IO (Ptr Font)|]
liftF "openFontIndex_RW" "TTF_OpenFontIndexRW"
[t|Ptr RWops -> Free -> PointSize -> Index -> IO (Ptr Font)|]
liftF "closeFont" "TTF_CloseFont"
[t|Ptr Font -> IO ()|]
liftF "byteSwappedUNICODE" "TTF_ByteSwappedUNICODE"
[t|CInt -> IO ()|]
liftF "getFontStyle" "TTF_GetFontStyle"
[t|Ptr Font -> IO CInt|]
liftF "setFontStyle" "TTF_SetFontStyle"
[t|Ptr Font -> CInt -> IO ()|]
liftF "getFontOutline" "TTF_GetFontOutline"
[t|Ptr Font -> IO CInt|]
liftF "setFontOutline" "TTF_SetFontOutline"
[t|Ptr Font -> CInt -> IO ()|]
liftF "getFontHinting" "TTF_GetFontHinting"
[t|Ptr Font -> IO CInt|]
liftF "setFontHinting" "TTF_SetFontHinting"
[t|Ptr Font -> CInt -> IO ()|]
liftF "getFontKerning" "TTF_GetFontKerning"
[t|Ptr Font -> IO CInt|]
liftF "setFontKerning" "TTF_SetFontKerning"
[t|Ptr Font -> CInt -> IO ()|]
liftF "fontHeight" "TTF_FontHeight"
[t|Ptr Font -> IO CInt|]
liftF "fontAscent" "TTF_FontAscent"
[t|Ptr Font -> IO CInt|]
liftF "fontDescent" "TTF_FontDescent"
[t|Ptr Font -> IO CInt|]
liftF "fontLineSkip" "TTF_FontLineSkip"
[t|Ptr Font -> IO CInt|]
liftF "fontFaces" "TTF_FontFaces"
[t|Ptr Font -> IO CLong|]
liftF "fontFaceIsFixedWidth" "TTF_FontFaceIsFixedWidth"
[t|Ptr Font -> IO CInt|]
liftF "fontFaceFamilyName" "TTF_FontFaceFamilyName"
[t|Ptr Font -> IO CString|]
liftF "fontFaceStyleName" "TTF_FontFaceStyleName"
[t|Ptr Font -> IO CString|]
liftF "glyphIsProvided" "TTF_GlyphIsProvided"
[t|Ptr Font -> CUShort -> IO CInt|]
liftF "glyphMetrics" "TTF_GlyphMetrics"
[t|Ptr Font -> CUShort ->
Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt -> Ptr CInt ->
IO CInt|]
liftF "sizeText" "TTF_SizeText"
[t|Ptr Font -> CString -> Ptr CInt -> Ptr CInt -> IO CInt|]
liftF "sizeUTF8" "TTF_SizeUTF8"
[t|Ptr Font -> CString -> Ptr CInt -> Ptr CInt -> IO CInt|]
liftF "sizeUNICODE" "TTF_SizeUNICODE"
[t|Ptr Font -> Ptr CUShort -> Ptr CInt -> Ptr CInt -> IO CInt|]
liftF "renderText_Solid" "TTF_RenderText_Solid_p"
[t|Ptr Font -> CString -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderUTF8_Solid" "TTF_RenderUTF8_Solid_p"
[t|Ptr Font -> CString -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderUNICODE_Solid" "TTF_RenderUNICODE_Solid_p"
[t|Ptr Font -> Ptr CUShort -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderGlyph_Solid" "TTF_RenderGlyph_Solid_p"
[t|Ptr Font -> CUShort -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderText_Shaded" "TTF_RenderText_Shaded_p"
[t|Ptr Font -> CString -> Ptr Color -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderUTF8_Shaded" "TTF_RenderUTF8_Shaded_p"
[t|Ptr Font -> CString -> Ptr Color -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderUNICODE_Shaded" "TTF_RenderUNICODE_Shaded_p"
[t|Ptr Font -> Ptr CUShort -> Ptr Color -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderGlyph_Shaded" "TTF_RenderGlyph_Shaded_p"
[t|Ptr Font -> CUShort -> Ptr Color -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderText_Blended" "TTF_RenderText_Blended_p"
[t|Ptr Font -> CString -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderUTF8_Blended" "TTF_RenderUTF8_Blended_p"
[t|Ptr Font -> CString -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderUNICODE_Blended" "TTF_RenderUNICODE_Blended_p"
[t|Ptr Font -> Ptr CUShort -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderGlyph_Blended" "TTF_RenderGlyph_Blended_p"
[t|Ptr Font -> CUShort -> Ptr Color -> IO (Ptr Surface)|]
liftF "renderText_Blended_Wrapped" "TTF_RenderText_Blended_Wrapped_p"
[t|Ptr Font -> CString -> Ptr Color -> CUInt -> IO (Ptr Surface)|]
liftF "renderUTF8_Blended_Wrapped" "TTF_RenderUTF8_Blended_Wrapped_p"
[t|Ptr Font -> CString -> Ptr Color -> CUInt -> IO (Ptr Surface)|]
liftF "renderUNICODE_Blended_Wrapped" "TTF_RenderUNICODE_Blended_Wrapped_p"
[t|Ptr Font -> Ptr CUShort -> Ptr Color -> CUInt -> IO (Ptr Surface)|]
liftF "getFontKerningSize" "TTF_GetFontKerningSize"
[t|Ptr Font -> CInt -> CInt -> IO CInt|]