1
2
3
4
5
6
7
8
9
10
11
12
{-# LANGUAGE CApiFFI #-}
module Graphics.Text.Font.Choose.Weight(weightFromOpenTypeDouble,
weightToOpenTypeDouble, weightFromOpenType, weightToOpenType) where
foreign import capi "fontconfig/fontconfig.h FcWeightFromOpenTypeDouble"
weightFromOpenTypeDouble :: Double -> Double
foreign import capi "fontconfig/fontconfig.h FcWeightToOpenTypeDouble"
weightToOpenTypeDouble :: Double -> Double
foreign import capi "fontconfig/fontconfig.h FcWeightFromOpenType"
weightFromOpenType :: Int -> Int
foreign import capi "fontconfig/fontconfig.h FcWeightToOpenType"
weightToOpenType :: Int -> Int