Add combining & spacing arrowheads

This commit is contained in:
Belleve Invis 2020-06-09 01:40:15 -07:00
parent 5ac4519ba3
commit 0a619f4a95
2 changed files with 54 additions and 18 deletions

View file

@ -242,6 +242,14 @@ define customDecompositions : object
."\u02F7" "\uE09D\u0330"
."\u02BE" "\uE09D\u0357"
."\u02BF" "\uE09D\u0351"
."\u02C2" "\uE09D\u1DFE"
."\u02C3" "\uE09D\u0350"
."\u02C4" "\uE09D\uE092"
."\u02C5" "\uE09D\uE093"
."\u02EF" "\uE09D\uE095"
."\u02F0" "\uE09D\uE094"
."\u02F1" "\uE09D\u0354"
."\u02F2" "\uE09D\u0355"
."\u1FED" "\uE09D\u0308\u0300"
."\u1FEE" "\uE09D\u0308\u0301"

View file

@ -608,22 +608,44 @@ glyph-block Overmarks : begin
set-anchor 'above' MARK markMiddle XH markMiddle aboveMarkTop
local top aboveMarkTop
local bot aboveMarkBot
local exp : Math.sqrt : 1 + (top - bot) / (markExtend) * (top - bot) / (markExtend)
local exp : Math.sqrt : 1 + [Math.pow ((top - bot) / markExtend) 2]
include : dispiro
widths.center : markFine * 2
flat (markMiddle + markExtend) top
curl (markMiddle - markExtend) [mix top bot 0.5] [widths.heading (markFine / 2 * exp) (markFine / 2 * exp) Leftward]
curl (markMiddle - markExtend) [mix top bot 0.5] [widths.center.heading (markFine * exp) Leftward]
include : dispiro
widths.center : markFine * 2
flat (markMiddle + markExtend) bot
curl (markMiddle - markExtend) [mix top bot 0.5] [widths.heading (markFine / 2 * exp) (markFine / 2 * exp) Leftward]
curl (markMiddle - markExtend) [mix top bot 0.5] [widths.center.heading (markFine * exp) Leftward]
save 'lessAbove' 0x1DFE
include : FlipAround markMiddle [mix top bot 0.5]
save 'greaterAbove' 0x350
sketch # upArrowAbove
set-width 0
set-anchor 'above' MARK markMiddle XH markMiddle aboveMarkTop
local top aboveMarkTop
local bot aboveMarkBot
local exp : Math.sqrt : 1 + [Math.pow (3 * markExtend / (top - bot)) 2]
include : dispiro
widths.center : markFine * 2
flat (markMiddle - markExtend) bot
curl markMiddle top [widths.center.heading (markFine * exp) Upward]
include : dispiro
widths.center : markFine * 2
flat (markMiddle + markExtend) bot
curl markMiddle top [widths.center.heading (markFine * exp) Upward]
save 'upArrowHeadAbove' 0xE092
include : FlipAround markMiddle [mix top bot 0.5]
save 'downArrowHeadAbove' 0xE093
### Below marks
sketch # cedillaBelow
set-width 0
@ -992,7 +1014,6 @@ glyph-block Overmarks : begin
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "barAbove"
include : FlipAround markMiddle (XH / 2)
save 'barBelow' 0x329
sketch # dblBarBelow
@ -1000,43 +1021,50 @@ glyph-block Overmarks : begin
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "dblBarAbove"
include : FlipAround markMiddle (XH / 2)
save 'dblBarBelow' 0x348
sketch # crossBelow
set-width 0
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "crossAbove"
include : FlipAround markMiddle (XH / 2)
save 'crossBelow' 0x353
sketch # lessBelow
create-glyph 'lessBelow' 0x354 : glyph-construction
set-width 0
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "greaterAbove"
include : FlipAround markMiddle (XH / 2)
save 'lessBelow' 0x354
sketch # greaterBelow
create-glyph 'greaterBelow' 0x355 : glyph-construction
set-width 0
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "lessAbove"
include : FlipAround markMiddle (XH / 2)
save 'greaterBelow' 0x355
sketch # greaterBelow
create-glyph 'upArrowHeadBelow' 0xE094 : glyph-construction
set-width 0
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "dblRingAbove"
include : refer-glyph "downArrowHeadAbove"
include : FlipAround markMiddle (XH / 2)
save 'dblRingBelow' 0x35a
create-glyph 'downArrowHeadBelow' 0xE095 : glyph-construction
set-width 0
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "upArrowHeadAbove"
include : FlipAround markMiddle (XH / 2)
create-glyph 'greaterAndUpArrowheadBelow' 0x0356 : glyph-construction
set-width 0
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : WithTransform [Translate (-markExtend) 0] : refer-glyph 'greaterBelow'
include : WithTransform [Translate (+markExtend) 0] : refer-glyph 'upArrowHeadBelow'
create-glyph 'dblRingBelow' 0x35a : glyph-construction
set-width 0
set-anchor 'below' MARK markMiddle 0 markMiddle belowMarkBot
include : refer-glyph "dblRingAbove"
include : FlipAround markMiddle (XH / 2)
sketch # lrArrowBelow
set-width 0