module Data.Text.Glyphize.Font where

import Data.ByteString
import Data.Text.Short

data Face = Face -- TODO Define

-- countFace :: ByteString -> Int
-- createFace :: ByteString -> Int -> 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
-- 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?