Refine Greek Capital Sho (U+03F7) glyph (#2079).

This commit is contained in:
be5invis 2023-11-09 20:03:27 -08:00
parent 24bea90d16
commit d91cbeca6c
2 changed files with 15 additions and 9 deletions

View file

@ -2,3 +2,4 @@
* Add top-right serif to fully serifed form for CYRILLIC SMALL LETTER TALL TE (`U+1C84`). * Add top-right serif to fully serifed form for CYRILLIC SMALL LETTER TALL TE (`U+1C84`).
* Fix serifs of GREEK LETTER DIGAMMA (`U+03DC`) under `ss12`. * Fix serifs of GREEK LETTER DIGAMMA (`U+03DC`) under `ss12`.
* Improve crossbar position of GREEK SMALL LETTER DIGAMMA (`U+03DD`) and add a middle serif under slab. * Improve crossbar position of GREEK SMALL LETTER DIGAMMA (`U+03DD`) and add a middle serif under slab.
* Refine Greek Capital Sho (U+03F7) glyph (#2079).

View file

@ -14,8 +14,8 @@ glyph-block Letter-Latin-Thorn : begin
define xThornLeftStroke : SB * 1.25 define xThornLeftStroke : SB * 1.25
define yThornBowlBot : CAP * 0.25 + [if SLAB (Stroke * 0.125) 0] define yThornBowlBot : CAP * 0.25 + [if SLAB (Stroke * 0.125) 0]
define [ThornShape yBowlBot] : glyph-proc define yThornBowlTop : CAP - 0.7 * yThornBowlBot + [if SLAB (-0.125) 0.25] * Stroke
local yBowlTop : CAP - 0.7 * yBowlBot + [if SLAB (-0.125) 0.25] * Stroke define [ThornShape yBowlBot yBowlTop] : glyph-proc
local turn : mix yBowlTop yBowlBot (ArchDepthB / (ArchDepthA + ArchDepthB)) local turn : mix yBowlTop yBowlBot (ArchDepthB / (ArchDepthA + ArchDepthB))
local turnRadius : (yBowlTop - yBowlBot) / 2 local turnRadius : (yBowlTop - yBowlBot) / 2
@ -37,14 +37,21 @@ glyph-block Letter-Latin-Thorn : begin
create-glyph 'Thorn' 0xDE : glyph-proc create-glyph 'Thorn' 0xDE : glyph-proc
include : MarkSet.capital include : MarkSet.capital
include : ThornShape yThornBowlBot include : ThornShape yThornBowlBot yThornBowlTop
include : LeaningAnchor.Above.VBar.l xThornLeftStroke
include : LeaningAnchor.Below.VBar.l xThornLeftStroke
create-glyph 'grek/Sho' 0x3F7 : glyph-proc
include : MarkSet.capital
local d : mix yThornBowlBot (CAP - yThornBowlTop) 0.5
include : ThornShape d (CAP - d)
include : LeaningAnchor.Above.VBar.l xThornLeftStroke include : LeaningAnchor.Above.VBar.l xThornLeftStroke
include : LeaningAnchor.Below.VBar.l xThornLeftStroke include : LeaningAnchor.Below.VBar.l xThornLeftStroke
create-glyph 'ThornBarTop/Overlay' : LetterBarOverlay.l.in create-glyph 'ThornBarTop/Overlay' : LetterBarOverlay.l.in
x -- xThornLeftStroke x -- xThornLeftStroke
top -- (CAP - [if SLAB Stroke 0]) top -- (CAP - [if SLAB Stroke 0])
bot -- (CAP - yThornBowlBot) bot -- (CAP - [mix yThornBowlBot (CAP - yThornBowlTop) 0.5])
create-glyph 'thornBarTop/Overlay' : LetterBarOverlay.l.in create-glyph 'thornBarTop/Overlay' : LetterBarOverlay.l.in
x -- SB x -- SB
top -- (Ascender - [if SLAB Stroke 0]) top -- (Ascender - [if SLAB Stroke 0])
@ -52,15 +59,13 @@ glyph-block Letter-Latin-Thorn : begin
create-glyph 'ThornBarBot/Overlay' : LetterBarOverlay.l.in create-glyph 'ThornBarBot/Overlay' : LetterBarOverlay.l.in
x -- xThornLeftStroke x -- xThornLeftStroke
bot -- (0 + [if SLAB Stroke 0]) bot -- (0 + [if SLAB Stroke 0])
top -- yThornBowlBot top -- [mix yThornBowlBot (CAP - yThornBowlTop) 0.5]
create-glyph 'thornBarBot/Overlay' : LetterBarOverlay.l.in create-glyph 'thornBarBot/Overlay' : LetterBarOverlay.l.in
x -- SB x -- SB
bot -- (Descender + [if SLAB Stroke 0]) bot -- (Descender + [if SLAB Stroke 0])
top -- 0 top -- 0
derive-composites 'ThornBarTop' 0xA764 'Thorn' 'ThornBarTop/Overlay' derive-composites 'ThornBarTop' 0xA764 'grek/Sho' 'ThornBarTop/Overlay'
derive-composites 'thornBarTop' 0xA765 'thorn' 'thornBarTop/Overlay' derive-composites 'thornBarTop' 0xA765 'thorn' 'thornBarTop/Overlay'
derive-composites 'ThornBarBot' 0xA766 'Thorn' 'ThornBarBot/Overlay' derive-composites 'ThornBarBot' 0xA766 'grek/Sho' 'ThornBarBot/Overlay'
derive-composites 'thornBarBot' 0xA767 'thorn' 'thornBarBot/Overlay' derive-composites 'thornBarBot' 0xA767 'thorn' 'thornBarBot/Overlay'
alias 'grek/Sho' 0x3F7 'Thorn'