diff options
| author | Eugen Wissner <belka@caraus.de> | 2023-12-01 14:20:25 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2023-12-01 14:20:25 +0100 |
| commit | 7eacf0a2c4e90f7c6c612d9882ede75dab468743 (patch) | |
| tree | 0ea2287ba5660bc2606043bff6d226e126881afc /src/Graphics/Fountainhead/Dumper.hs | |
| parent | b0950899cc17fa3de20cd003d85f8c2a7994133e (diff) | |
| download | fountainhead-7eacf0a2c4e90f7c6c612d9882ede75dab468743.tar.gz | |
Rename StrokeVariatoon to StrokeVariation
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 |