1 files changed, 6 insertions, 0 deletions
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