From 41b5c14e2f5d7140d7d5a1bd7201e70a8a137dcd Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Sun, 11 Feb 2024 18:50:25 +0100 Subject: Add Fixed32 numeric instances --- lib/Graphics/Fountainhead/Dumper.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Graphics/Fountainhead/Dumper.hs') diff --git a/lib/Graphics/Fountainhead/Dumper.hs b/lib/Graphics/Fountainhead/Dumper.hs index 2a90db5..1e1491c 100644 --- a/lib/Graphics/Fountainhead/Dumper.hs +++ b/lib/Graphics/Fountainhead/Dumper.hs @@ -198,7 +198,7 @@ dumpFixed32 :: Fixed32 -> Text.Builder.Builder dumpFixed32 (Fixed32 word) = Text.Builder.decimal (shiftR word 16) <> Text.Builder.singleton '.' - <> Text.Builder.decimal (word .&. 0xff00) + <> Text.Builder.decimal (word .&. 0xffff) dumpHmtx :: HmtxTable -> Text.Builder.Builder dumpHmtx HmtxTable{..} = @@ -435,7 +435,7 @@ dumpPost :: PostTable -> Text.Builder.Builder dumpPost PostTable{ postHeader = PostHeader{..}, postSubtable } = dumpCaption "'post' Table - PostScript" <> newlineBuilder <> " 'post' format: " <> dumpFixed32 format <> newlineBuilder - <> " italicAngle: " <> dumpFixed32 format <> newlineBuilder + <> " italicAngle: " <> dumpFixed32 italicAngle <> newlineBuilder <> " underlinePosition: " <> Text.Builder.decimal underlinePosition <> newlineBuilder <> " underlineThichness: " <> Text.Builder.decimal underlineThickness <> newlineBuilder <> " isFixedPitch: " <> dNumber isFixedPitch <> newlineBuilder -- cgit v1.2.3