From 7eacf0a2c4e90f7c6c612d9882ede75dab468743 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 1 Dec 2023 14:20:25 +0100 Subject: Rename StrokeVariatoon to StrokeVariation --- src/Graphics/Fountainhead/Dumper.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'src/Graphics/Fountainhead/Dumper.hs') 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 -- cgit v1.2.3