diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-11-16 09:09:59 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-11-16 09:09:59 +0100 |
| commit | ac03d3236deececd13660295d8528e2d0de639ed (patch) | |
| tree | 2cdc8c45779417294264588b40ea910f9224cb85 /src/Graphics/Fountainhead/Type.hs | |
| parent | 3414b4cab689cbb8197cb645f5c64acf93aa11d2 (diff) | |
| download | fountainhead-ac03d3236deececd13660295d8528e2d0de639ed.tar.gz | |
Dump font style
Diffstat (limited to 'src/Graphics/Fountainhead/Type.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/Type.hs | 6 |
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 |