From 344467b8508b86838ba652f719a017f3415c9a96 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 17 Nov 2023 09:54:26 +0100 Subject: Dump the hhea table --- src/Graphics/Fountainhead/Type.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/Graphics/Fountainhead/Type.hs') diff --git a/src/Graphics/Fountainhead/Type.hs b/src/Graphics/Fountainhead/Type.hs index 118df6b..06274dc 100644 --- a/src/Graphics/Fountainhead/Type.hs +++ b/src/Graphics/Fountainhead/Type.hs @@ -6,11 +6,13 @@ module Graphics.Fountainhead.Type ( F2Dot14(..) , Fixed32(..) + , FWord + , UFWord , ttfEpoch ) where import Data.Int (Int16) -import Data.Word (Word32) +import Data.Word (Word16, Word32) import Data.Time (Day(..)) import Data.Time.Calendar.OrdinalDate (fromOrdinalDate) @@ -20,5 +22,8 @@ newtype Fixed32 = Fixed32 Word32 newtype F2Dot14 = F2Dot14 Int16 deriving (Eq, Show) +type FWord = Int16 +type UFWord = Word16 + ttfEpoch :: Day ttfEpoch = fromOrdinalDate 1904 1 -- cgit v1.2.3