1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
module Data.Text.Glyphize.Font where
import Data.ByteString
import Data.Text.Short
data Face = Face -- TODO Define
-- countFace :: ByteString -> Int
-- createFace :: ByteString -> Int -> IO Face
-- ftCreateFace :: FT_Face -> Face
-- emptyFace :: Face
-- faceGlyphCount :: Face -> Int
-- faceIndex :: Face -> Int
-- faceUpem :: Face -> Int
-- Defer implementation of other functions
data Font = Font -- TODO Define
data FontOptions = FontOptions {
x_ppem :: Int, y_ppem :: Int,
ptem :: Int,
x_scale :: Int, y_scale :: Int,
slant :: Float
-- Support variations? Variation coordinates?
}
-- createFont :: Face -> FontOptions -> Font
-- ftCreateFont ::FT_Face -> FontOptions -> IO Font
-- emptyFont :: Font
-- fontFace :: Font -> Face
-- fontGlyph :: Font -> Char -> Maybe Char -> Maybe Int
-- fontString2Glyph :: Font -> ShortText -> Maybe Int
-- fontGlyph2String :: Font -> Int -> ShortText
-- Defer implementation of other functions
-- Do we need FontFuncs?