This commit is contained in:
Belleve 2025-05-31 11:23:33 -10:00 committed by GitHub
parent 8f717b7e63
commit 7e39ab91ba
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -40,9 +40,9 @@ glyph-block Symbol-Arrow-Shared : begin
define compactHeadSize : mix arrowSw arrowHeadSize 0.75
define doubleBarSpan : arrowHeadSize * 1.1
define doubleHeadGap : Math.max
1.4 * fine
0.15 * Width
0.125 * MosaicWidth
1.5 * fine
0.175 * Width
0.15 * MosaicWidth
# Overlay spacing
define overlaySw : AdviceStroke 6
@ -171,6 +171,16 @@ glyph-block Symbol-Arrow-Shared : begin
corner (length - VERY-FAR) (-width + o)
corner length (-width + o)
export : define [outerMaskWithOffset delta x1 y1 x2 y2 width _length] : new-glyph : glyph-proc
local length : fallback _length width
include : PointingTo x1 y1 x2 y2 : lambda [mag] : begin
spiro-outline
corner (o + delta) 0
corner length (width - delta - o)
corner (length - VERY-FAR) (width - delta - o)
corner (length - VERY-FAR) (-width + delta + o)
corner length (-width + delta + o)
export : define [barShape x1 y1 x2 y2 size _sw] : begin
local sw : fallback _sw fine
return : PointingTo x1 y1 x2 y2 : lambda [mag] : begin
@ -280,7 +290,7 @@ glyph-block Symbol-Arrow-Shared : begin
include : Head.shape x2 y2 x3 y3 size
include : intersection
Bar.shape x1 y1 x2 y2 halfSw 0 0
Head.outerMask x2 y2 x3 y3 size
Head.outerMaskWithOffset TINY x2 y2 x3 y3 size
export : define [dblTailShape x1 y1 x2 y2 size _halfSw] : glyph-proc
local halfSw : fallback _halfSw halfArrowSw
@ -296,13 +306,13 @@ glyph-block Symbol-Arrow-Shared : begin
include : Head.shape x2 y2 x4 y4 size
include : intersection
Bar.shape x1 y1 x2 y2 halfSw 0 0
Head.outerMask x2 y2 x3 y3 size
Head.outerMaskWithOffset TINY x2 y2 x3 y3 size
export : define [multibarShapeT barFunc] : lambda [x1 y1 x2 y2 size _halfSw] : glyph-proc
include : Head.shape x1 y1 x2 y2 size
include : difference
barFunc x1 y1 x2 y2
Head.outerMask x1 y1 x2 y2 size
Head.outerMaskWithOffset TINY x1 y1 x2 y2 size
export : define [barTailShapeT barFunc] : lambda [x1 y1 x2 y2 size _halfSw] : glyph-proc
local halfSw : fallback _halfSw halfArrowSw