summaryrefslogtreecommitdiff
path: root/src/Graphics/Fountainhead/TrueType.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Graphics/Fountainhead/TrueType.hs')
-rw-r--r--src/Graphics/Fountainhead/TrueType.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/src/Graphics/Fountainhead/TrueType.hs b/src/Graphics/Fountainhead/TrueType.hs
index 0a0bde9..4043098 100644
--- a/src/Graphics/Fountainhead/TrueType.hs
+++ b/src/Graphics/Fountainhead/TrueType.hs
@@ -49,6 +49,7 @@ module Graphics.Fountainhead.TrueType
, HeadTable(..)
, HheaTable(..)
, HmtxTable(..)
+ , IndexToLocFormat(..)
, LocaTable(..)
, LongHorMetric(..)
, MaxpTable(..)
@@ -180,6 +181,11 @@ data HheaTable = HheaTable
-- * Font header table
+data IndexToLocFormat
+ = ShortOffsetIndexToLocFormat
+ | LongOffsetIndexToLocFormat
+ deriving (Eq, Show)
+
data HeadTable = HeadTable
{ version :: Fixed32 -- ^ 0x00010000 if (version 1.0).
, fontRevision :: Fixed32 -- ^ Set by font manufacturer.
@@ -196,7 +202,7 @@ data HeadTable = HeadTable
, macStyle :: FontStyle
, lowestRecPPEM :: Word16 -- ^ Smallest readable size in pixels.
, fontDirectionHint :: FontDirectionHint -- ^ 0 Mixed directional glyphs.
- , indexToLocFormat :: Word16 -- ^ 0 for short offsets, 1 for long.
+ , indexToLocFormat :: IndexToLocFormat -- ^ 0 for short offsets, 1 for long.
, glyphDataFormat :: Word16 -- ^ 0 for current format.
} deriving (Eq, Show)