Compare commits
No commits in common. "0cda68e19bfbd2feebaccbaa76bbec7cefce0b78" and "271b69839aaaa5f61b70061d5a2353eb1d86db59" have entirely different histories.
0cda68e19b
...
271b69839a
@ -20,7 +20,6 @@ module Graphics.Fountainhead.Dumper
|
||||
, dumpLoca
|
||||
, dumpName
|
||||
, dumpMaxp
|
||||
, dumpOs2
|
||||
, dumpPost
|
||||
, dumpTrueType
|
||||
, dumpOffsetTable
|
||||
@ -29,7 +28,7 @@ module Graphics.Fountainhead.Dumper
|
||||
import Data.ByteString (ByteString)
|
||||
import qualified Data.ByteString as ByteString
|
||||
import qualified Data.ByteString.Char8 as Char8
|
||||
import Data.Int (Int64, Int16)
|
||||
import Data.Int (Int64)
|
||||
import Data.Word (Word8, Word16, Word32)
|
||||
import qualified Data.IntMap as IntMap
|
||||
import qualified Data.Text as Text
|
||||
@ -67,14 +66,6 @@ import Graphics.Fountainhead.TrueType
|
||||
, MaxpTable(..)
|
||||
, TrueMaxpTable(..)
|
||||
, nameStringOffset
|
||||
, Os2BaseFields(..)
|
||||
, Os2MicrosoftFields(..)
|
||||
, Os2Version1Fields(..)
|
||||
, Os2Version4Fields(..)
|
||||
, Os2Version5Fields(..)
|
||||
, Os2Table(..)
|
||||
, Panose(..)
|
||||
, CVTable(..)
|
||||
)
|
||||
import qualified Text.Megaparsec as Megaparsec
|
||||
import Graphics.Fountainhead.Parser
|
||||
@ -87,14 +78,13 @@ import Graphics.Fountainhead.Parser
|
||||
, locaTableP
|
||||
, maxpTableP
|
||||
, nameTableP
|
||||
, os2TableP
|
||||
, postTableP, cvTableP
|
||||
, postTableP
|
||||
)
|
||||
import Graphics.Fountainhead.Type (Fixed32(..), ttfEpoch)
|
||||
import Data.Foldable (Foldable(..), find)
|
||||
import Data.Maybe (fromMaybe)
|
||||
import Data.Time (LocalTime(..), NominalDiffTime, diffLocalTime, midnight)
|
||||
import Data.Bits (Bits(..), (.>>.))
|
||||
import Data.Bits (Bits(..))
|
||||
import Data.Bifunctor (Bifunctor(first))
|
||||
import Data.List (intersperse)
|
||||
|
||||
@ -251,149 +241,6 @@ longDateTime localTime = Text.Builder.fromLazyText
|
||||
$ (truncate :: NominalDiffTime -> Int)
|
||||
$ diffLocalTime localTime (LocalTime ttfEpoch midnight)
|
||||
|
||||
dumpCVTable :: CVTable -> Text.Builder.Builder
|
||||
dumpCVTable (CVTable cvTable) = dumpCaption "'cvt ' Table - Control Value Table"
|
||||
<> "Size = " <> Text.Builder.decimal (tableSize * 2)
|
||||
<> " bytes, " <> Text.Builder.decimal tableSize <> " entries\n"
|
||||
<> foldMap (uncurry go) (zip [0..] cvTable)
|
||||
where
|
||||
tableSize = Prelude.length cvTable
|
||||
go :: Int -> Int16 -> Text.Builder.Builder
|
||||
go index' entry = justifyNumber 13 index' <> ". "
|
||||
<> Text.Builder.decimal entry <> newlineBuilder
|
||||
|
||||
dumpOs2 :: Os2Table -> Text.Builder.Builder
|
||||
dumpOs2 = (dumpCaption "'OS/2' Table - OS/2 and Windows Metrics" <>) . go
|
||||
where
|
||||
go = \case
|
||||
Os2Version0 baseFields msFields -> dumpBaseFields baseFields
|
||||
<> maybe "" dumpMicrosoftFields msFields
|
||||
Os2Version1 baseFields msFields extraFields -> dumpBaseFields baseFields
|
||||
<> dumpMicrosoftFields msFields <> dumpVersion1Fields extraFields
|
||||
Os2Version2 baseFields msFields extraFields -> dumpBaseFields baseFields
|
||||
<> dumpMicrosoftFields msFields <> dumpVersion4Fields extraFields
|
||||
Os2Version3 baseFields msFields extraFields -> dumpBaseFields baseFields
|
||||
<> dumpMicrosoftFields msFields <> dumpVersion4Fields extraFields
|
||||
Os2Version4 baseFields msFields extraFields -> dumpBaseFields baseFields
|
||||
<> dumpMicrosoftFields msFields <> dumpVersion4Fields extraFields
|
||||
Os2Version5 baseFields msFields extraFields -> dumpBaseFields baseFields
|
||||
<> dumpMicrosoftFields msFields <> dumpVersion5Fields extraFields
|
||||
dumpVersion1Fields Os2Version1Fields{..}
|
||||
= " CodePage Range 1( Bits 0 - 31 ): " <> paddedHexadecimal ulCodePageRange1 <> newlineBuilder
|
||||
<> " CodePage Range 2( Bits 32- 63 ): " <> paddedHexadecimal ulCodePageRange2 <> newlineBuilder
|
||||
dumpVersion4Fields Os2Version4Fields{..}
|
||||
= dumpVersion1Fields (Os2Version1Fields ulCodePageRange1 ulCodePageRange2)
|
||||
<> " sxHeight: " <> Text.Builder.decimal sxHeight <> newlineBuilder
|
||||
<> " sCapHeight: " <> Text.Builder.decimal sCapHeight <> newlineBuilder
|
||||
<> " usDefaultChar: 0x" <> halfPaddedHexadecimal usDefaultChar <> newlineBuilder
|
||||
<> " usBreakChar: 0x" <> halfPaddedHexadecimal usBreakChar <> newlineBuilder
|
||||
<> " usMaxContext: " <> Text.Builder.decimal usMaxContext <> newlineBuilder
|
||||
dumpVersion5Fields Os2Version5Fields{..}
|
||||
= dumpVersion1Fields (Os2Version1Fields ulCodePageRange1 ulCodePageRange2)
|
||||
<> " sxHeight: " <> Text.Builder.decimal sxHeight <> newlineBuilder
|
||||
<> " sCapHeight: " <> Text.Builder.decimal sCapHeight <> newlineBuilder
|
||||
<> " usDefaultChar: 0x" <> halfPaddedHexadecimal usDefaultChar <> newlineBuilder
|
||||
<> " usBreakChar: 0x" <> halfPaddedHexadecimal usBreakChar <> newlineBuilder
|
||||
<> " usMaxContext: " <> Text.Builder.decimal usMaxContext <> newlineBuilder
|
||||
<> " usLowerOpticalPointSize: "
|
||||
<> Text.Builder.decimal usLowerOpticalPointSize <> newlineBuilder
|
||||
<> " usUpperOpticalPointSize: "
|
||||
<> Text.Builder.decimal usUpperOpticalPointSize <> newlineBuilder
|
||||
dumpMicrosoftFields Os2MicrosoftFields{..}
|
||||
= " sTypoAscender: " <> Text.Builder.decimal sTypoAscender <> newlineBuilder
|
||||
<> " sTypoDescender: " <> Text.Builder.decimal sTypoDescender <> newlineBuilder
|
||||
<> " sTypoLineGap: " <> Text.Builder.decimal sTypoLineGap <> newlineBuilder
|
||||
<> " usWinAscent: " <> Text.Builder.decimal usWinAscent <> newlineBuilder
|
||||
<> " usWinDescent: " <> Text.Builder.decimal usWinDescent <> newlineBuilder
|
||||
dumpBaseFields Os2BaseFields{..}
|
||||
= " 'OS/2' version: " <> Text.Builder.decimal version <> newlineBuilder
|
||||
<> " xAvgCharWidth: " <> Text.Builder.decimal xAvgCharWidth <> newlineBuilder
|
||||
<> " usWeightClass: " <> weightClass usWeightClass <> newlineBuilder
|
||||
<> " usWidthClass: " <> widthClass usWidthClass <> newlineBuilder
|
||||
<> " fsType: " <> Text.Builder.decimal fsType <> newlineBuilder
|
||||
<> " ySubscriptXSize: " <> Text.Builder.decimal ySubscriptXSize <> newlineBuilder
|
||||
<> " ySubscriptYSize: " <> Text.Builder.decimal ySubscriptYSize <> newlineBuilder
|
||||
<> " ySubscriptXOffset: " <> Text.Builder.decimal ySubscriptXOffset <> newlineBuilder
|
||||
<> " ySubscriptYOffset: " <> Text.Builder.decimal ySubscriptYOffset <> newlineBuilder
|
||||
<> " ySuperscriptXSize: " <> Text.Builder.decimal ySuperscriptXSize <> newlineBuilder
|
||||
<> " ySuperscriptYSize: " <> Text.Builder.decimal ySuperscriptYSize <> newlineBuilder
|
||||
<> " ySuperscriptXOffset: " <> Text.Builder.decimal ySuperscriptXOffset <> newlineBuilder
|
||||
<> " ySuperscriptYOffset: " <> Text.Builder.decimal ySuperscriptYOffset <> newlineBuilder
|
||||
<> " yStrikeoutSize: " <> Text.Builder.decimal yStrikeoutSize <> newlineBuilder
|
||||
<> " yStrikeoutPosition: " <> Text.Builder.decimal yStrikeoutPosition <> newlineBuilder
|
||||
<> " sFamilyClass:" <> familyClass sFamilyClass <> newlineBuilder
|
||||
<> " PANOSE:" <> newlineBuilder <> dumpPanose panose
|
||||
<> fold (Vector.imap dumpUnicodeRange ulUnicodeRange)
|
||||
<> " achVendID: '" <> achVendID' achVendID <> "'\n"
|
||||
<> " fsSelection: 0x" <> fsSelection' fsSelection <> newlineBuilder
|
||||
<> " usFirstCharIndex: 0x" <> halfPaddedHexadecimal fsFirstCharIndex <> newlineBuilder
|
||||
<> " usLastCharIndex: 0x" <> halfPaddedHexadecimal fsLastCharIndex <> newlineBuilder
|
||||
fsSelection' value =
|
||||
let description = fold
|
||||
[ if testBit value 0 then "Italic " else ""
|
||||
, if testBit value 5 then "Bold " else ""
|
||||
]
|
||||
in halfPaddedHexadecimal value <> " '" <> description <> "'"
|
||||
achVendID' = Text.Builder.fromText . Text.decodeLatin1 . ByteString.pack . fmap fromIntegral . toList
|
||||
dumpUnicodeRange index value =
|
||||
let bits = index * 32
|
||||
parens = "( Bits " <> Text.Builder.decimal bits <> " - "
|
||||
<> Text.Builder.decimal (bits + 31) <> " ):"
|
||||
in " Unicode Range: " <> Text.Builder.decimal (index + 1)
|
||||
<> Text.Builder.fromLazyText (Text.Lazy.justifyLeft 25 ' ' (Text.Builder.toLazyText parens))
|
||||
<> paddedHexadecimal value
|
||||
<> newlineBuilder
|
||||
dumpPanose Panose{..}
|
||||
= " Family Kind: " <> dumpPanoseField bFamilyType
|
||||
<> " Serif Style: " <> dumpPanoseField bSerifStyle
|
||||
<> " Weight: " <> dumpPanoseField bWeight
|
||||
<> " Proportion: " <> dumpPanoseField bProportion
|
||||
<> " Contrast: " <> dumpPanoseField bContrast
|
||||
<> " Stroke: " <> dumpPanoseField bStrokeVariation
|
||||
<> " Arm Style: " <> dumpPanoseField bArmStyle
|
||||
<> " Lettreform: " <> dumpPanoseField bLetterform
|
||||
<> " Midline: " <> dumpPanoseField bMidline
|
||||
<> " X-height: " <> dumpPanoseField bXHeight
|
||||
dumpPanoseField field' =
|
||||
let numericField = Text.Builder.fromLazyText
|
||||
$ Text.Lazy.justifyLeft 8 ' '
|
||||
$ Text.Builder.toLazyText
|
||||
$ Text.Builder.decimal
|
||||
$ fromEnum field'
|
||||
in numericField
|
||||
<> Text.Builder.singleton '\''
|
||||
<> Text.Builder.fromString (show field')
|
||||
<> Text.Builder.singleton '\''
|
||||
<> newlineBuilder
|
||||
familyClass value =
|
||||
" " <> Text.Builder.decimal (value .>>. 8) <> " subclass = " <> Text.Builder.decimal (value .&. 0x00ff)
|
||||
weightClass classValue
|
||||
| Just wordValue <- fWeight classValue = Text.Builder.decimal classValue <> " '" <> wordValue <> "'"
|
||||
| otherwise = Text.Builder.decimal classValue
|
||||
widthClass classValue
|
||||
| Just wordValue <- fWidth classValue = Text.Builder.decimal classValue <> " '" <> wordValue <> "'"
|
||||
| otherwise = Text.Builder.decimal classValue
|
||||
fWeight 100 = Just "Thin"
|
||||
fWeight 200 = Just "Extra-light"
|
||||
fWeight 300 = Just "Light"
|
||||
fWeight 400 = Just "Normal"
|
||||
fWeight 500 = Just "Medium"
|
||||
fWeight 600 = Just "Semi-bold"
|
||||
fWeight 700 = Just "Bold"
|
||||
fWeight 800 = Just "Extra-bold"
|
||||
fWeight 900 = Just "Black"
|
||||
fWeight _ = Nothing
|
||||
fWidth 1 = Just "Ultra-condensed"
|
||||
fWidth 2 = Just "Extra-condensed"
|
||||
fWidth 3 = Just "Condensed"
|
||||
fWidth 4 = Just "Semi-condensed"
|
||||
fWidth 5 = Just "Medium"
|
||||
fWidth 6 = Just "Semi-expanded"
|
||||
fWidth 7 = Just "Expanded"
|
||||
fWidth 8 = Just "Extra-expanded"
|
||||
fWidth 9 = Just "Ultra-expanded"
|
||||
fWidth _ = Nothing
|
||||
|
||||
dumpPost :: PostTable -> Text.Builder.Builder
|
||||
dumpPost PostTable{ postHeader = PostHeader{..}, postSubtable }
|
||||
= dumpCaption "'post' Table - PostScript" <> newlineBuilder
|
||||
@ -653,8 +500,6 @@ dumpTables processedState directory@FontDirectory{..}
|
||||
"maxp" -> Just $ dumpMaxp <$> parseTable tableEntry maxpTableP processedState
|
||||
"name" -> Just $ dumpName <$> parseTable tableEntry nameTableP processedState
|
||||
"post" -> Just $ dumpPost <$> parseTable tableEntry postTableP processedState
|
||||
"OS/2" -> Just $ dumpOs2 <$> parseTable tableEntry os2TableP processedState
|
||||
"cvt " -> Just $ dumpCVTable <$> parseTable tableEntry cvTableP processedState
|
||||
_ -> Nothing
|
||||
|
||||
dumpTrueType :: ByteString -> FilePath -> Either DumpError Text.Builder.Builder
|
||||
|
||||
@ -720,7 +720,7 @@ cmapFormat14TableP = do
|
||||
currentOffset <- Megaparsec.getOffset
|
||||
let emptyBytes = tableOffset + fromIntegral relativeOffset - currentOffset
|
||||
relativeOffset' = fromIntegral relativeOffset
|
||||
void $ Megaparsec.takeP Nothing emptyBytes
|
||||
Megaparsec.takeP Nothing emptyBytes
|
||||
entryCount <- fromIntegral <$> Megaparsec.Binary.word32be
|
||||
valueRanges <- vectorNP entryCount unicodeValueRangeP
|
||||
pure $ IntMap.insert relativeOffset' (DefaultUVSOffset varSelector' valueRanges :| []) accumulator
|
||||
@ -734,7 +734,7 @@ cmapFormat14TableP = do
|
||||
| otherwise = do
|
||||
currentOffset <- Megaparsec.getOffset
|
||||
let emptyBytes = tableOffset + fromIntegral relativeOffset - currentOffset
|
||||
void $ Megaparsec.takeP Nothing emptyBytes
|
||||
Megaparsec.takeP Nothing emptyBytes
|
||||
entryCount <- fromIntegral <$> Megaparsec.Binary.word32be
|
||||
flip (IntMap.insert $ fromIntegral relativeOffset) accumulator
|
||||
. pure
|
||||
@ -1135,15 +1135,15 @@ bContrastP
|
||||
|
||||
bStrokeVariationP :: Parser BStrokeVariation
|
||||
bStrokeVariationP
|
||||
= (Megaparsec.single 0 $> AnyStrokeVariation)
|
||||
<|> (Megaparsec.single 1 $> NoFitStrokeVariation)
|
||||
<|> (Megaparsec.single 2 $> GradualDiagonalStrokeVariation)
|
||||
<|> (Megaparsec.single 3 $> GradualTransitionalStrokeVariation)
|
||||
<|> (Megaparsec.single 4 $> GradualVerticalStrokeVariation)
|
||||
<|> (Megaparsec.single 5 $> GradualHorizontalStrokeVariation)
|
||||
<|> (Megaparsec.single 6 $> RapidVerticalStrokeVariation)
|
||||
<|> (Megaparsec.single 7 $> RapidHorizontalStrokeVariation)
|
||||
<|> (Megaparsec.single 8 $> InstantVerticalStrokeVariation)
|
||||
= (Megaparsec.single 0 $> AnyStrokeVariatoon)
|
||||
<|> (Megaparsec.single 1 $> NoFitStrokeVariatoon)
|
||||
<|> (Megaparsec.single 2 $> GradualDiagonalStrokeVariatoon)
|
||||
<|> (Megaparsec.single 3 $> GradualTransitionalStrokeVariatoon)
|
||||
<|> (Megaparsec.single 4 $> GradualVerticalStrokeVariatoon)
|
||||
<|> (Megaparsec.single 5 $> GradualHorizontalStrokeVariatoon)
|
||||
<|> (Megaparsec.single 6 $> RapidVerticalStrokeVariatoon)
|
||||
<|> (Megaparsec.single 7 $> RapidHorizontalStrokeVariatoon)
|
||||
<|> (Megaparsec.single 8 $> InstantVerticalStrokeVariatoon)
|
||||
<?> "bStrokeVariation"
|
||||
|
||||
bArmStyleP :: Parser BArmStyle
|
||||
|
||||
@ -627,32 +627,7 @@ data BFamilyType
|
||||
| ScriptFamilyType
|
||||
| DecorativeFamilyType
|
||||
| PictorialFamilyType
|
||||
deriving Eq
|
||||
|
||||
instance Show BFamilyType
|
||||
where
|
||||
show AnyFamilyType = "Any"
|
||||
show NoFitFamilyType = "No Fit"
|
||||
show TextAndDisplayFamilyType = "Text and Display"
|
||||
show ScriptFamilyType = "Script"
|
||||
show DecorativeFamilyType = "Decorative"
|
||||
show PictorialFamilyType = "Pictorial"
|
||||
|
||||
instance Enum BFamilyType
|
||||
where
|
||||
toEnum 0 = AnyFamilyType
|
||||
toEnum 1 = NoFitFamilyType
|
||||
toEnum 2 = TextAndDisplayFamilyType
|
||||
toEnum 3 = ScriptFamilyType
|
||||
toEnum 4 = DecorativeFamilyType
|
||||
toEnum 5 = PictorialFamilyType
|
||||
toEnum _ = error "Unknown family type"
|
||||
fromEnum AnyFamilyType = 0
|
||||
fromEnum NoFitFamilyType = 1
|
||||
fromEnum TextAndDisplayFamilyType = 2
|
||||
fromEnum ScriptFamilyType = 3
|
||||
fromEnum DecorativeFamilyType = 4
|
||||
fromEnum PictorialFamilyType = 5
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BSerifStyle
|
||||
= AnySerifStyle
|
||||
@ -671,62 +646,7 @@ data BSerifStyle
|
||||
| PerpSansSerifStyle
|
||||
| FlaredSerifStyle
|
||||
| RoundedSerifStyle
|
||||
deriving Eq
|
||||
|
||||
instance Show BSerifStyle
|
||||
where
|
||||
show AnySerifStyle = "Any"
|
||||
show NoFitSerifStyle = "No Fit"
|
||||
show CoveSerifStyle = "Cove"
|
||||
show ObtuseCoveSerifStyle = "Obtuse Cove"
|
||||
show SquareCoveSerifStyle = "Square Cove"
|
||||
show ObtuseSquareCoveSerifStyle = "Obtuse Square Cove"
|
||||
show SquareSerifStyle = "Square"
|
||||
show ThinSerifStyle = "Thin"
|
||||
show BoneSerifStyle = "Bone"
|
||||
show ExaggeratedSerifStyle = "Exaggerated"
|
||||
show TriangleSerifStyle = "Triangle"
|
||||
show NormalSansSerifStyle = "Normal Sans"
|
||||
show ObtuseSansSerifStyle = "Obtuse Sans"
|
||||
show PerpSansSerifStyle = "Perp Sans"
|
||||
show FlaredSerifStyle = "Flared"
|
||||
show RoundedSerifStyle = "Rounded"
|
||||
|
||||
instance Enum BSerifStyle
|
||||
where
|
||||
toEnum 0 = AnySerifStyle
|
||||
toEnum 1 = NoFitSerifStyle
|
||||
toEnum 2 = CoveSerifStyle
|
||||
toEnum 3 = ObtuseCoveSerifStyle
|
||||
toEnum 4 = SquareCoveSerifStyle
|
||||
toEnum 5 = ObtuseSquareCoveSerifStyle
|
||||
toEnum 6 = SquareSerifStyle
|
||||
toEnum 7 = ThinSerifStyle
|
||||
toEnum 8 = BoneSerifStyle
|
||||
toEnum 9 = ExaggeratedSerifStyle
|
||||
toEnum 10 = TriangleSerifStyle
|
||||
toEnum 11 = NormalSansSerifStyle
|
||||
toEnum 12 = ObtuseSansSerifStyle
|
||||
toEnum 13 = PerpSansSerifStyle
|
||||
toEnum 14 = FlaredSerifStyle
|
||||
toEnum 15 = RoundedSerifStyle
|
||||
toEnum _ = error "Unknown serif type"
|
||||
fromEnum AnySerifStyle = 0
|
||||
fromEnum NoFitSerifStyle = 1
|
||||
fromEnum CoveSerifStyle = 2
|
||||
fromEnum ObtuseCoveSerifStyle = 3
|
||||
fromEnum SquareCoveSerifStyle = 4
|
||||
fromEnum ObtuseSquareCoveSerifStyle = 5
|
||||
fromEnum SquareSerifStyle = 6
|
||||
fromEnum ThinSerifStyle = 7
|
||||
fromEnum BoneSerifStyle = 8
|
||||
fromEnum ExaggeratedSerifStyle = 9
|
||||
fromEnum TriangleSerifStyle = 10
|
||||
fromEnum NormalSansSerifStyle = 11
|
||||
fromEnum ObtuseSansSerifStyle = 12
|
||||
fromEnum PerpSansSerifStyle = 13
|
||||
fromEnum FlaredSerifStyle = 14
|
||||
fromEnum RoundedSerifStyle = 15
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BWeight
|
||||
= AnyWeight
|
||||
@ -741,50 +661,7 @@ data BWeight
|
||||
| HeavyWeight
|
||||
| BlackWeight
|
||||
| NordWeight
|
||||
deriving Eq
|
||||
|
||||
instance Show BWeight
|
||||
where
|
||||
show AnyWeight = "Any"
|
||||
show NoFitWeight = "No Fit"
|
||||
show VeryLightWeight = "Very Light"
|
||||
show LightWeight = "Light"
|
||||
show ThinWeight = "Thin"
|
||||
show BookWeight = "Book"
|
||||
show MediumWeight = "Medium"
|
||||
show DemiWeight = "Demi"
|
||||
show BoldWeight = "Bold"
|
||||
show HeavyWeight = "Heavy"
|
||||
show BlackWeight = "Black"
|
||||
show NordWeight = "Nord"
|
||||
|
||||
instance Enum BWeight
|
||||
where
|
||||
fromEnum AnyWeight = 0
|
||||
fromEnum NoFitWeight = 1
|
||||
fromEnum VeryLightWeight = 2
|
||||
fromEnum LightWeight = 3
|
||||
fromEnum ThinWeight = 4
|
||||
fromEnum BookWeight = 5
|
||||
fromEnum MediumWeight = 6
|
||||
fromEnum DemiWeight = 7
|
||||
fromEnum BoldWeight = 8
|
||||
fromEnum HeavyWeight = 9
|
||||
fromEnum BlackWeight = 10
|
||||
fromEnum NordWeight = 11
|
||||
toEnum 0 = AnyWeight
|
||||
toEnum 1 = NoFitWeight
|
||||
toEnum 2 = VeryLightWeight
|
||||
toEnum 3 = LightWeight
|
||||
toEnum 4 = ThinWeight
|
||||
toEnum 5 = BookWeight
|
||||
toEnum 6 = MediumWeight
|
||||
toEnum 7 = DemiWeight
|
||||
toEnum 8 = BoldWeight
|
||||
toEnum 9 = HeavyWeight
|
||||
toEnum 10 = BlackWeight
|
||||
toEnum 11 = NordWeight
|
||||
toEnum _ = error "Unknown weight"
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BProportion
|
||||
= AnyProportion
|
||||
@ -797,44 +674,7 @@ data BProportion
|
||||
| VeryExpandedProportion
|
||||
| VeryCondensedProportion
|
||||
| MonospacedProportion
|
||||
deriving Eq
|
||||
|
||||
instance Show BProportion
|
||||
where
|
||||
show AnyProportion = "Any"
|
||||
show NoFitProportion = "No Fit"
|
||||
show OldStyleProportion = "Old Style"
|
||||
show ModernProportion = "Modern"
|
||||
show EvenWidthProportion = "Even Width"
|
||||
show ExpandedProportion = "Expanded"
|
||||
show CondensedProportion = "Condensed"
|
||||
show VeryExpandedProportion = "Very Expanded"
|
||||
show VeryCondensedProportion = "Very Condensed"
|
||||
show MonospacedProportion = "Monospaced"
|
||||
|
||||
instance Enum BProportion
|
||||
where
|
||||
fromEnum AnyProportion = 0
|
||||
fromEnum NoFitProportion = 1
|
||||
fromEnum OldStyleProportion = 2
|
||||
fromEnum ModernProportion = 3
|
||||
fromEnum EvenWidthProportion = 4
|
||||
fromEnum ExpandedProportion = 5
|
||||
fromEnum CondensedProportion = 6
|
||||
fromEnum VeryExpandedProportion = 7
|
||||
fromEnum VeryCondensedProportion = 8
|
||||
fromEnum MonospacedProportion = 9
|
||||
toEnum 0 = AnyProportion
|
||||
toEnum 1 = NoFitProportion
|
||||
toEnum 2 = OldStyleProportion
|
||||
toEnum 3 = ModernProportion
|
||||
toEnum 4 = EvenWidthProportion
|
||||
toEnum 5 = ExpandedProportion
|
||||
toEnum 6 = CondensedProportion
|
||||
toEnum 7 = VeryExpandedProportion
|
||||
toEnum 8 = VeryCondensedProportion
|
||||
toEnum 9 = MonospacedProportion
|
||||
toEnum _ = error "Unknown proportion"
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BContrast
|
||||
= AnyContrast
|
||||
@ -847,90 +687,19 @@ data BContrast
|
||||
| MediumHighContrast
|
||||
| HighContrast
|
||||
| VeryHighContrast
|
||||
deriving Eq
|
||||
|
||||
instance Show BContrast
|
||||
where
|
||||
show AnyContrast = "Any"
|
||||
show NoFitContrast = "No Fit"
|
||||
show NoneContrast = "None"
|
||||
show VeryLowContrast = "Very Low"
|
||||
show LowContrast = "Low"
|
||||
show MediumLowContrast = "Medium Low"
|
||||
show MediumContrast = "Medium"
|
||||
show MediumHighContrast = "Medium High"
|
||||
show HighContrast = "High"
|
||||
show VeryHighContrast = "Very High"
|
||||
|
||||
instance Enum BContrast
|
||||
where
|
||||
fromEnum AnyContrast = 0
|
||||
fromEnum NoFitContrast = 1
|
||||
fromEnum NoneContrast = 2
|
||||
fromEnum VeryLowContrast = 3
|
||||
fromEnum LowContrast = 4
|
||||
fromEnum MediumLowContrast = 5
|
||||
fromEnum MediumContrast = 6
|
||||
fromEnum MediumHighContrast = 7
|
||||
fromEnum HighContrast = 8
|
||||
fromEnum VeryHighContrast = 9
|
||||
toEnum 0 = AnyContrast
|
||||
toEnum 1 = NoFitContrast
|
||||
toEnum 2 = NoneContrast
|
||||
toEnum 3 = VeryLowContrast
|
||||
toEnum 4 = LowContrast
|
||||
toEnum 5 = MediumLowContrast
|
||||
toEnum 6 = MediumContrast
|
||||
toEnum 7 = MediumHighContrast
|
||||
toEnum 8 = HighContrast
|
||||
toEnum 9 = VeryHighContrast
|
||||
toEnum _ = error "Unknown contrast"
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BStrokeVariation
|
||||
= AnyStrokeVariation
|
||||
| NoFitStrokeVariation
|
||||
| GradualDiagonalStrokeVariation
|
||||
| GradualTransitionalStrokeVariation
|
||||
| GradualVerticalStrokeVariation
|
||||
| GradualHorizontalStrokeVariation
|
||||
| RapidVerticalStrokeVariation
|
||||
| RapidHorizontalStrokeVariation
|
||||
| InstantVerticalStrokeVariation
|
||||
deriving Eq
|
||||
|
||||
instance Show BStrokeVariation
|
||||
where
|
||||
show AnyStrokeVariation = "Any"
|
||||
show NoFitStrokeVariation = "No Fit"
|
||||
show GradualDiagonalStrokeVariation = "Gradual/Diagonal"
|
||||
show GradualTransitionalStrokeVariation = "Gradual/Transitional"
|
||||
show GradualVerticalStrokeVariation = "Gradual/Vertical"
|
||||
show GradualHorizontalStrokeVariation = "Gradual/Horizontal"
|
||||
show RapidVerticalStrokeVariation = "Rapid/Vertical"
|
||||
show RapidHorizontalStrokeVariation = "Rapid/Horizontal"
|
||||
show InstantVerticalStrokeVariation = "Instant/Vertical"
|
||||
|
||||
instance Enum BStrokeVariation
|
||||
where
|
||||
fromEnum AnyStrokeVariation = 0
|
||||
fromEnum NoFitStrokeVariation = 1
|
||||
fromEnum GradualDiagonalStrokeVariation = 2
|
||||
fromEnum GradualTransitionalStrokeVariation = 3
|
||||
fromEnum GradualVerticalStrokeVariation = 4
|
||||
fromEnum GradualHorizontalStrokeVariation = 5
|
||||
fromEnum RapidVerticalStrokeVariation = 6
|
||||
fromEnum RapidHorizontalStrokeVariation = 7
|
||||
fromEnum InstantVerticalStrokeVariation = 8
|
||||
toEnum 0 = AnyStrokeVariation
|
||||
toEnum 1 = NoFitStrokeVariation
|
||||
toEnum 2 = GradualDiagonalStrokeVariation
|
||||
toEnum 3 = GradualTransitionalStrokeVariation
|
||||
toEnum 4 = GradualVerticalStrokeVariation
|
||||
toEnum 5 = GradualHorizontalStrokeVariation
|
||||
toEnum 6 = RapidVerticalStrokeVariation
|
||||
toEnum 7 = RapidHorizontalStrokeVariation
|
||||
toEnum 8 = InstantVerticalStrokeVariation
|
||||
toEnum _ = error "Unknown stroke variation"
|
||||
= AnyStrokeVariatoon
|
||||
| NoFitStrokeVariatoon
|
||||
| GradualDiagonalStrokeVariatoon
|
||||
| GradualTransitionalStrokeVariatoon
|
||||
| GradualVerticalStrokeVariatoon
|
||||
| GradualHorizontalStrokeVariatoon
|
||||
| RapidVerticalStrokeVariatoon
|
||||
| RapidHorizontalStrokeVariatoon
|
||||
| InstantVerticalStrokeVariatoon
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BArmStyle
|
||||
= AnyArmStyle
|
||||
@ -945,50 +714,7 @@ data BArmStyle
|
||||
| NonStraightArmsVerticalArmStyle
|
||||
| NonStraightArmsSingleSerifArmStyle
|
||||
| NonStraightArmsDoubleSerifArmStyle
|
||||
deriving Eq
|
||||
|
||||
instance Show BArmStyle
|
||||
where
|
||||
show AnyArmStyle = "Any"
|
||||
show NoFitArmStyle = "No Fit"
|
||||
show StraightArmsHorizontalArmStyle = "Straight Arms/Horizontal"
|
||||
show StraightArmsWedgeArmStyle = "Straight Arms/Wedge"
|
||||
show StraightArmsVerticalArmStyle = "Straight Arms/Vertical"
|
||||
show StraightArmsSingleSerifArmStyle = "Straight Arms/Single Serif"
|
||||
show StraightArmsDoubleSerifArmStyle = "Straight Arms/Double Serif"
|
||||
show NonStraightArmsHorizontalArmStyle = "Non-Straight Arms/Horizontal"
|
||||
show NonStraightArmsWedgeArmStyle = "Non-Straight Arms/Wedge"
|
||||
show NonStraightArmsVerticalArmStyle = "Non-Straight Arms/Vertical"
|
||||
show NonStraightArmsSingleSerifArmStyle = "Non-Straight Arms/Single Serif"
|
||||
show NonStraightArmsDoubleSerifArmStyle = "Non-Straight Arms/Double Serif"
|
||||
|
||||
instance Enum BArmStyle
|
||||
where
|
||||
fromEnum AnyArmStyle = 0
|
||||
fromEnum NoFitArmStyle = 1
|
||||
fromEnum StraightArmsHorizontalArmStyle = 2
|
||||
fromEnum StraightArmsWedgeArmStyle = 3
|
||||
fromEnum StraightArmsVerticalArmStyle = 4
|
||||
fromEnum StraightArmsSingleSerifArmStyle = 5
|
||||
fromEnum StraightArmsDoubleSerifArmStyle = 6
|
||||
fromEnum NonStraightArmsHorizontalArmStyle = 7
|
||||
fromEnum NonStraightArmsWedgeArmStyle = 8
|
||||
fromEnum NonStraightArmsVerticalArmStyle = 9
|
||||
fromEnum NonStraightArmsSingleSerifArmStyle = 10
|
||||
fromEnum NonStraightArmsDoubleSerifArmStyle = 11
|
||||
toEnum 0 = AnyArmStyle
|
||||
toEnum 1 = NoFitArmStyle
|
||||
toEnum 2 = StraightArmsHorizontalArmStyle
|
||||
toEnum 3 = StraightArmsWedgeArmStyle
|
||||
toEnum 4 = StraightArmsVerticalArmStyle
|
||||
toEnum 5 = StraightArmsSingleSerifArmStyle
|
||||
toEnum 6 = StraightArmsDoubleSerifArmStyle
|
||||
toEnum 7 = NonStraightArmsHorizontalArmStyle
|
||||
toEnum 8 = NonStraightArmsWedgeArmStyle
|
||||
toEnum 9 = NonStraightArmsVerticalArmStyle
|
||||
toEnum 10 = NonStraightArmsSingleSerifArmStyle
|
||||
toEnum 11 = NonStraightArmsDoubleSerifArmStyle
|
||||
toEnum _ = error "Unknown arm style"
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BLetterform
|
||||
= AnyLetterform
|
||||
@ -1007,62 +733,7 @@ data BLetterform
|
||||
| ObliqueRoundedLetterform
|
||||
| ObliqueOffCenterLetterform
|
||||
| ObliqueSquareLetterform
|
||||
deriving Eq
|
||||
|
||||
instance Show BLetterform
|
||||
where
|
||||
show AnyLetterform = "Any"
|
||||
show NoFitLetterform = "No Fit"
|
||||
show NormalContactLetterform = "Normal/Contact"
|
||||
show NormalWeightedLetterform = "Normal/Weighted"
|
||||
show NormalBoxedLetterform = "Normal/Boxed"
|
||||
show NormalFlattenedLetterform = "Normal/Flattened"
|
||||
show NormalRoundedLetterform = "Normal/Rounded"
|
||||
show NormalOffCenterLetterform = "Normal/Off Center"
|
||||
show NormalSquareLetterform = "Normal/Square"
|
||||
show ObliqueContactLetterform = "Oblique/Contact"
|
||||
show ObliqueWeightedLetterform = "Oblique/Weighted"
|
||||
show ObliqueBoxedLetterform = "Oblique/Boxed"
|
||||
show ObliqueFlattenedLetterform = "Oblique/Flattened"
|
||||
show ObliqueRoundedLetterform = "Oblique/Rounded"
|
||||
show ObliqueOffCenterLetterform = "Oblique/Off Center"
|
||||
show ObliqueSquareLetterform = "Oblique/Square"
|
||||
|
||||
instance Enum BLetterform
|
||||
where
|
||||
fromEnum AnyLetterform = 0
|
||||
fromEnum NoFitLetterform = 1
|
||||
fromEnum NormalContactLetterform = 2
|
||||
fromEnum NormalWeightedLetterform = 3
|
||||
fromEnum NormalBoxedLetterform = 4
|
||||
fromEnum NormalFlattenedLetterform = 5
|
||||
fromEnum NormalRoundedLetterform = 6
|
||||
fromEnum NormalOffCenterLetterform = 7
|
||||
fromEnum NormalSquareLetterform = 8
|
||||
fromEnum ObliqueContactLetterform = 9
|
||||
fromEnum ObliqueWeightedLetterform = 10
|
||||
fromEnum ObliqueBoxedLetterform = 11
|
||||
fromEnum ObliqueFlattenedLetterform = 12
|
||||
fromEnum ObliqueRoundedLetterform = 13
|
||||
fromEnum ObliqueOffCenterLetterform = 14
|
||||
fromEnum ObliqueSquareLetterform = 15
|
||||
toEnum 0 = AnyLetterform
|
||||
toEnum 1 = NoFitLetterform
|
||||
toEnum 2 = NormalContactLetterform
|
||||
toEnum 3 = NormalWeightedLetterform
|
||||
toEnum 4 = NormalBoxedLetterform
|
||||
toEnum 5 = NormalFlattenedLetterform
|
||||
toEnum 6 = NormalRoundedLetterform
|
||||
toEnum 7 = NormalOffCenterLetterform
|
||||
toEnum 8 = NormalSquareLetterform
|
||||
toEnum 9 = ObliqueContactLetterform
|
||||
toEnum 10 = ObliqueWeightedLetterform
|
||||
toEnum 11 = ObliqueBoxedLetterform
|
||||
toEnum 12 = ObliqueFlattenedLetterform
|
||||
toEnum 13 = ObliqueRoundedLetterform
|
||||
toEnum 14 = ObliqueOffCenterLetterform
|
||||
toEnum 15 = ObliqueSquareLetterform
|
||||
toEnum _ = error "Unknown letterform"
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BMidline
|
||||
= AnyMidline
|
||||
@ -1079,56 +750,7 @@ data BMidline
|
||||
| LowTrimmedMidline
|
||||
| LowPointedMidline
|
||||
| LowSerifedMidline
|
||||
deriving Eq
|
||||
|
||||
instance Show BMidline
|
||||
where
|
||||
show AnyMidline = "Any"
|
||||
show NoFitMidline = "No Fit"
|
||||
show StandardTrimmedMidline = "Standard/Trimmed"
|
||||
show StandardPointedMidline = "Standard/Pointed"
|
||||
show StandardSerifedMidline = "Standard/Serifed"
|
||||
show HighTrimmedMidline = "High/Trimmed"
|
||||
show HighPointedMidline = "High/Pointed"
|
||||
show HighSerifedMidline = "High/Serifed"
|
||||
show ConstantTrimmedMidline = "Constant/Trimmed"
|
||||
show ConstantPointedMidline = "Constant/Pointed"
|
||||
show ConstantSerifedMidline = "Constant/Serifed"
|
||||
show LowTrimmedMidline = "Low/Trimmed"
|
||||
show LowPointedMidline = "Low/Pointed"
|
||||
show LowSerifedMidline = "Low/Serifed"
|
||||
|
||||
instance Enum BMidline
|
||||
where
|
||||
fromEnum AnyMidline = 0
|
||||
fromEnum NoFitMidline = 1
|
||||
fromEnum StandardTrimmedMidline = 2
|
||||
fromEnum StandardPointedMidline = 3
|
||||
fromEnum StandardSerifedMidline = 4
|
||||
fromEnum HighTrimmedMidline = 5
|
||||
fromEnum HighPointedMidline = 6
|
||||
fromEnum HighSerifedMidline = 7
|
||||
fromEnum ConstantTrimmedMidline = 8
|
||||
fromEnum ConstantPointedMidline = 9
|
||||
fromEnum ConstantSerifedMidline = 10
|
||||
fromEnum LowTrimmedMidline = 11
|
||||
fromEnum LowPointedMidline = 12
|
||||
fromEnum LowSerifedMidline = 13
|
||||
toEnum 0 = AnyMidline
|
||||
toEnum 1 = NoFitMidline
|
||||
toEnum 2 = StandardTrimmedMidline
|
||||
toEnum 3 = StandardPointedMidline
|
||||
toEnum 4 = StandardSerifedMidline
|
||||
toEnum 5 = HighTrimmedMidline
|
||||
toEnum 6 = HighPointedMidline
|
||||
toEnum 7 = HighSerifedMidline
|
||||
toEnum 8 = ConstantTrimmedMidline
|
||||
toEnum 9 = ConstantPointedMidline
|
||||
toEnum 10 = ConstantSerifedMidline
|
||||
toEnum 11 = LowTrimmedMidline
|
||||
toEnum 12 = LowPointedMidline
|
||||
toEnum 13 = LowSerifedMidline
|
||||
toEnum _ = error "Unknown midline"
|
||||
deriving (Eq, Show)
|
||||
|
||||
data BXHeight
|
||||
= AnyXHeight
|
||||
@ -1139,38 +761,7 @@ data BXHeight
|
||||
| DuckingSmallXHeight
|
||||
| DuckingStandardXHeight
|
||||
| DuckingLargeXHeight
|
||||
deriving Eq
|
||||
|
||||
instance Show BXHeight
|
||||
where
|
||||
show AnyXHeight = "Any"
|
||||
show NoFitXHeight = "No Fit"
|
||||
show ConstantSmallXHeight = "Constant/Small"
|
||||
show ConstantStandardXHeight = "Constant/Standard"
|
||||
show ConstantLargeXHeight = "Constant/Large"
|
||||
show DuckingSmallXHeight = "Ducking/Small"
|
||||
show DuckingStandardXHeight = "Ducking/Standard"
|
||||
show DuckingLargeXHeight = "Ducking/Large"
|
||||
|
||||
instance Enum BXHeight
|
||||
where
|
||||
fromEnum AnyXHeight = 0
|
||||
fromEnum NoFitXHeight = 1
|
||||
fromEnum ConstantSmallXHeight = 2
|
||||
fromEnum ConstantStandardXHeight = 3
|
||||
fromEnum ConstantLargeXHeight = 4
|
||||
fromEnum DuckingSmallXHeight = 5
|
||||
fromEnum DuckingStandardXHeight = 6
|
||||
fromEnum DuckingLargeXHeight = 7
|
||||
toEnum 0 = AnyXHeight
|
||||
toEnum 1 = NoFitXHeight
|
||||
toEnum 2 = ConstantSmallXHeight
|
||||
toEnum 3 = ConstantStandardXHeight
|
||||
toEnum 4 = ConstantLargeXHeight
|
||||
toEnum 5 = DuckingSmallXHeight
|
||||
toEnum 6 = DuckingStandardXHeight
|
||||
toEnum 7 = DuckingLargeXHeight
|
||||
toEnum _ = error "Unknown X height"
|
||||
deriving (Eq, Show)
|
||||
|
||||
-- * Kern table
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user