diff options
Diffstat (limited to 'src/Graphics/Fountainhead/Dumper.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/Dumper.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Graphics/Fountainhead/Dumper.hs b/src/Graphics/Fountainhead/Dumper.hs index ff2f203..1a7da2b 100644 --- a/src/Graphics/Fountainhead/Dumper.hs +++ b/src/Graphics/Fountainhead/Dumper.hs @@ -69,6 +69,7 @@ import Graphics.Fountainhead.TrueType , nameStringOffset , Os2BaseFields(..) , Os2Table(..) + , Panose(..) ) import qualified Text.Megaparsec as Megaparsec import Graphics.Fountainhead.Parser @@ -272,6 +273,18 @@ dumpOs2 = (dumpCaption "'OS/2' Table - OS/2 and Windows Metrics" <>) . go <> " yStrikeoutSize: " <> Text.Builder.decimal yStrikeoutSize <> newlineBuilder <> " yStrikeoutPosition: " <> Text.Builder.decimal yStrikeoutPosition <> newlineBuilder <> " sFamilyClass:" <> familyClass sFamilyClass + <> " PANOSE:" <> newlineBuilder <> dumpPanose panose + dumpPanose Panose{..} + = " Family Kind: 0 'Any'" + <> " Serif Style: 0 'Any'" + <> " Weight: 0 'Any'" + <> " Proportion: 0 'Any'" + <> " Contrast: 0 'Any'" + <> " Stroke: 0 'Any'" + <> " Arm Style: 0 'Any'" + <> " Lettreform: 0 'Any'" + <> " Midline: 0 'Any'" + <> " X-height: 0 'Any'" familyClass value = " " <> Text.Builder.decimal (value .>>. 8) <> " subclass = " <> Text.Builder.decimal (value .&. 0x00ff) weightClass classValue |