From 34d3ece99e438e5e81f4df6ca7a36de307e41b3e Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Fri, 2 Feb 2024 01:44:49 +0100 Subject: Dump compound glyph info --- src/Graphics/Fountainhead/Parser.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Graphics/Fountainhead/Parser.hs') 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 -- cgit v1.2.3