Fix placement of above marks over Cyrillic Small Ge, Te, and Ya (#1157).

This commit is contained in:
be5invis 2021-07-18 17:02:08 -07:00
parent b35dc36869
commit 227ebac506
5 changed files with 13 additions and 5 deletions

1
changes/7.3.1.md Normal file
View file

@ -0,0 +1 @@
* Fix placement of above marks over Cyrillic Small Ge, Te, and Ya (#1157).

View file

@ -35,6 +35,10 @@ glyph-block Letter-Greek-Upper-Gamma: begin
topRightSerifed { SLAB-TR false }
serifed { SLAB-ALL true }
define CyrlGeMarks : object
capital : MarkSet.OfZone { .top (CAP + Accent / 2) .bot 0 }
e : MarkSet.OfZone { .top (XH + Accent / 2) .bot 0 }
foreach { suffix { slabType doSB } } [Object.entries GammaConfig] : do
create-glyph "grek/Gamma.\(suffix)" : glyph-proc
include : MarkSet.capital
@ -70,13 +74,13 @@ glyph-block Letter-Greek-Upper-Gamma: begin
include : CyrHookDescender (GammaBarLeft + Stroke * HVContrast) (overflow -- (MidJutCenter - HalfStroke * HVContrast))
create-glyph "cyrl/Ge.\(suffix)" : glyph-proc
include : MarkSet.capital
include : CyrlGeMarks.capital
include : GammaShape CAP slabType
eject-contour 'serifRT'
include : VBarRight (RightSB - OX) CAP (CAP + Accent)
create-glyph "cyrl/ge.upright.\(suffix)" : glyph-proc
include : MarkSet.e
include : CyrlGeMarks.e
include : GammaShape XH slabType
eject-contour 'serifRT'
include : VBarRight (RightSB - OX) XH (XH + Accent)

View file

@ -209,6 +209,9 @@ glyph-block Letter-Latin-S : begin
[Just SLAB-INWARD] : ArcEndInwardSerifR RightSB bot sw hook
__ : glyph-proc
define CyrlGeMarks : object
e : MarkSet.OfZone { .top (XH + Accent / 2) .bot 0 }
define SConfig : object
serifless { SLAB-NONE SLAB-NONE }
unilateralSerifed { SLAB-CLASSICAL SLAB-NONE }
@ -272,7 +275,7 @@ glyph-block Letter-Latin-S : begin
include : RevSAutoSlabEnd doBS 0 [AdviceStroke2 2 3 XH] Hook
create-glyph "cyrl/ge.italic.\(suffix)" : glyph-proc
include : MarkSet.e
include : CyrlGeMarks.e
include : RevSmallSStroke SLAB-CLASSICAL doBS [AdviceStroke2 2 3 XH] Ess
include : ArcStartSerifL SB XH [AdviceStroke2 2 3 XH] Hook Accent
include : RevSAutoSlabEnd doBS 0 [AdviceStroke2 2 3 XH] Hook

View file

@ -206,7 +206,7 @@ glyph-block Letter-Latin-Upper-R : begin
if fOpen [RevPShape.OpenGap CAP (mul -- 1) (bp -- bpCap)] [glyph-proc]
create-glyph "cyrl/ya.\(suffix)" : glyph-proc
include : MarkSet.capital
include : MarkSet.e
include : ROverlayAnchor
include : difference
RevRShape legShape XH (slab -- revSlabs) (bp -- bpXH) (tailedShape -- fTailed)

View file

@ -56,7 +56,7 @@ glyph-block Letter-Latin-Upper-T : begin
include : LeftHook (SB + LeftHook.extension) CAP Middle
create-glyph "smcpT.\(suffix)" : glyph-proc
include : MarkSet.capital
include : MarkSet.e
set-base-anchor 'bottomright' (Middle + HalfStroke * HVContrast) 0
include : TShape XH doST doSB