{-# LINE 1 "FreeType/Core/Size.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
module FreeType.Core.Size
(
ft_New_Size
, ft_With_Size
, ft_Done_Size
, ft_Activate_Size
) where
import FreeType.Core.Base.Types
import FreeType.Core.Size.Internal
import FreeType.Exception.Internal
import Control.Exception
ft_New_Size
:: FT_Face
-> IO FT_Size
ft_New_Size =
autoAllocaError "ft_New_Size" ft_New_Size'
ft_With_Size
:: FT_Face
-> (FT_Size -> IO a)
-> IO a
ft_With_Size face = bracket (ft_New_Size face) ft_Done_Size
ft_Done_Size
:: FT_Size
-> IO ()
ft_Done_Size =
autoError "ft_Done_Size" ft_Done_Size'
ft_Activate_Size
:: FT_Size
-> IO ()
ft_Activate_Size =
autoError "ft_Activate_Size" ft_Activate_Size'