diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-02-11 18:50:25 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-02-11 18:50:25 +0100 |
| commit | 41b5c14e2f5d7140d7d5a1bd7201e70a8a137dcd (patch) | |
| tree | bf43eea1e72b09f5f227763c0dc8d3bb0435a183 /lib/Graphics/Fountainhead/Dumper.hs | |
| parent | c5f715ac7cdfb663fc84cb9fe841903b5aed99c5 (diff) | |
| download | fountainhead-41b5c14e2f5d7140d7d5a1bd7201e70a8a137dcd.tar.gz | |
Add Fixed32 numeric instances
Diffstat (limited to 'lib/Graphics/Fountainhead/Dumper.hs')
| -rw-r--r-- | lib/Graphics/Fountainhead/Dumper.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |