From 1bcff4c5191cc6c016b8dce77e27ffa8ad46f40c Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 30 Jan 2024 09:38:03 +0100 Subject: Modify the parser to save less outline flags MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit … than coordinates if the repeated value is given. --- src/Graphics/Fountainhead/Type.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Graphics/Fountainhead/Type.hs') diff --git a/src/Graphics/Fountainhead/Type.hs b/src/Graphics/Fountainhead/Type.hs index 06274dc..07031e4 100644 --- a/src/Graphics/Fountainhead/Type.hs +++ b/src/Graphics/Fountainhead/Type.hs @@ -8,6 +8,7 @@ module Graphics.Fountainhead.Type , Fixed32(..) , FWord , UFWord + , succIntegral , ttfEpoch ) where @@ -27,3 +28,6 @@ type UFWord = Word16 ttfEpoch :: Day ttfEpoch = fromOrdinalDate 1904 1 + +succIntegral :: Integral a => a -> Int +succIntegral = succ . fromIntegral -- cgit v1.2.3