From ac03d3236deececd13660295d8528e2d0de639ed Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 16 Nov 2023 09:09:59 +0100 Subject: Dump font style --- src/Graphics/Fountainhead/Type.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Graphics/Fountainhead/Type.hs') diff --git a/src/Graphics/Fountainhead/Type.hs b/src/Graphics/Fountainhead/Type.hs index 2493157..118df6b 100644 --- a/src/Graphics/Fountainhead/Type.hs +++ b/src/Graphics/Fountainhead/Type.hs @@ -6,13 +6,19 @@ module Graphics.Fountainhead.Type ( F2Dot14(..) , Fixed32(..) + , ttfEpoch ) where import Data.Int (Int16) import Data.Word (Word32) +import Data.Time (Day(..)) +import Data.Time.Calendar.OrdinalDate (fromOrdinalDate) newtype Fixed32 = Fixed32 Word32 deriving (Eq, Show) newtype F2Dot14 = F2Dot14 Int16 deriving (Eq, Show) + +ttfEpoch :: Day +ttfEpoch = fromOrdinalDate 1904 1 -- cgit v1.2.3