diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-02-02 01:44:49 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-02-02 01:44:49 +0100 |
| commit | 34d3ece99e438e5e81f4df6ca7a36de307e41b3e (patch) | |
| tree | 27bbf00b10d8cc9fb43cf7462e46c4482505ee89 /src/Graphics/Fountainhead/Parser.hs | |
| parent | 1bcff4c5191cc6c016b8dce77e27ffa8ad46f40c (diff) | |
| download | fountainhead-34d3ece99e438e5e81f4df6ca7a36de307e41b3e.tar.gz | |
Dump compound glyph info
Diffstat (limited to 'src/Graphics/Fountainhead/Parser.hs')
| -rw-r--r-- | src/Graphics/Fountainhead/Parser.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Graphics/Fountainhead/Parser.hs b/src/Graphics/Fountainhead/Parser.hs index 72ea36d..31dcd0e 100644 --- a/src/Graphics/Fountainhead/Parser.hs +++ b/src/Graphics/Fountainhead/Parser.hs @@ -524,6 +524,8 @@ componentGlyphPartDescriptionP accumulator = do -- MORE_COMPONENTS. if testBit flags' 5 then componentGlyphPartDescriptionP updated else pure updated +-- | Arguments are: WE_HAVE_A_SCALE, WE_HAVE_AN_X_AND_Y_SCALE and +-- WE_HAVE_A_TWO_BY_TWO. transformationOptionP :: Bool -> Bool -> Bool -> Parser GlyphTransformationOption transformationOptionP True _ _ = GlyphScale <$> f2Dot14P <?> "scale" transformationOptionP _ True _ = GlyphXyScale @@ -538,6 +540,7 @@ transformationOptionP _ _ True = Glyph2By2Scale <?> "2 by 2 transformation" transformationOptionP _ _ _ = pure GlyphNoScale +-- | Arguments are: ARG_1_AND_2_ARE_WORDS and ARGS_ARE_XY_VALUES. glyphArgumentP :: Bool -> Bool -> Parser GlyphArgument glyphArgumentP True True = GlyphInt16Argument <$> Megaparsec.Binary.int16be |