Add three directional variants of existing arrows (#1615)

This commit is contained in:
John McWilliams 2023-03-18 19:33:47 -04:00 committed by GitHub
parent 50bdf16d96
commit 66e18e6525
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -373,6 +373,7 @@ glyph-block Symbol-Arrow : for-width-kinds WideWidth1
MkArrow ArrowShape [MangleName 'arrowDownLeft'] [MangleUnicode 0x2199] arrowDiagRSB arrowDiagTop arrowDiagSB arrowDiagBot
MkArrow ArrowShape [MangleName 'arrowRightCompact'] null arrowSB SymbolMid arrowRSB SymbolMid nothing bendArrowHeadSize
MkArrow ArrowShape [MangleName 'arrowLeftCompact'] null arrowRSB SymbolMid arrowSB SymbolMid nothing bendArrowHeadSize
# These arrows are always wide. In force-monospace variants they will be deleted
if (MosaicWidthScalar > 1 && !para.forceMonospace) : do
@ -663,6 +664,8 @@ glyph-block Symbol-Arrow : for-width-kinds WideWidth1
define dasw doubleArrowStemWidth
MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowLeft'] [MangleUnicode 0x21DA] arrowRSB SymbolMid arrowSB SymbolMid
MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowRight'] [MangleUnicode 0x21DB] arrowSB SymbolMid arrowRSB SymbolMid
MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowUp'] [MangleUnicode 0x290A] arrowMidX arrowBot arrowMidX arrowTop
MkArrow [TripleArrowShape dasw] [MangleName 'tripleArrowDown'] [MangleUnicode 0x290B] arrowMidX arrowTop arrowMidX arrowBot
do "Barred Arrows"
MkArrow ArrowShape [MangleName 'arrowLeftK'] null arrowRSB SymbolMid (arrowSB + fine) SymbolMid
@ -809,6 +812,12 @@ glyph-block Symbol-Arrow : for-width-kinds WideWidth1
include : WithTransform [ApparentTranslate 0 (+distance)] : refer-glyph : MangleName 'arrowRightCompact'
include : refer-glyph : MangleName 'arrowRightCompact'
include : WithTransform [ApparentTranslate 0 (-distance)] : refer-glyph : MangleName 'arrowRightCompact'
create-glyph [MangleName 'uni2B31'] [MangleUnicode 0x2B31] : glyph-proc
set-width MosaicWidth
local distance : bendArrowHeadSize * 2 - arrowSw
include : WithTransform [ApparentTranslate 0 (+distance)] : refer-glyph : MangleName 'arrowLeftCompact'
include : refer-glyph : MangleName 'arrowLeftCompact'
include : WithTransform [ApparentTranslate 0 (-distance)] : refer-glyph : MangleName 'arrowLeftCompact'
do "Zig zag"
create-glyph [MangleName 'zigZagArrow'] [MangleUnicode 0x21AF] : glyph-proc