Enlarged U+02BE and U+02BF to match the dimensions of other quotes (#1346).

This commit is contained in:
be5invis 2022-05-06 21:42:52 -07:00
parent ac8e5b38ba
commit 70b050b477
3 changed files with 16 additions and 2 deletions

1
changes/15.2.1.md Normal file
View file

@ -0,0 +1 @@
* Enlarged `U+02BE` and `U+02BF` to match the dimensions of other quotes (#1346).

View file

@ -899,8 +899,9 @@ glyph-block Mark-Above : begin
set-width 0
set-mark-anchor 'above' markMiddle XH markMiddle aboveMarkStack
set-base-anchor 'aboveBrace' markMiddle aboveMarkMid
local [object radiusIn radiusOut] : RingDims
include : dispiro
g4.left.start markMiddle aboveMarkTop [widths.heading markFine markFine Leftward]
g4.left.start markMiddle aboveMarkTop [widths.center.heading (radiusOut - radiusIn) Leftward]
archv
g4.down.mid (markMiddle - (aboveMarkTop - aboveMarkBot) / 2) [mix aboveMarkTop aboveMarkBot 0.5] [heading Downward]
arcvh
@ -911,8 +912,9 @@ glyph-block Mark-Above : begin
set-width 0
set-mark-anchor 'above' markMiddle XH markMiddle aboveMarkStack
set-base-anchor 'aboveBrace' markMiddle aboveMarkMid
local [object radiusIn radiusOut] : RingDims
include : dispiro
g4.right.start markMiddle aboveMarkTop [widths.heading markFine markFine Rightward]
g4.right.start markMiddle aboveMarkTop [widths.center.heading (radiusOut - radiusIn) Rightward]
archv
g4.down.mid (markMiddle + (aboveMarkTop - aboveMarkBot) / 2) [mix aboveMarkTop aboveMarkBot 0.5] [heading Downward]
arcvh

View file

@ -174,3 +174,14 @@ glyph-block Symbol-Punctuation-Quotes-And-Primes : begin
include : Translate (-dist * 2) 0
include : refer-glyph "asciiSingleQuote.straight"
include : Translate (dist + Middle - dfSingle.middle) 0
# Half-circle modifiers, use quote dimensions
create-glyph 'modifierLetterLeftHalfRing' 0x2BF : glyph-proc
local height : quoteTop - quoteBottom
include : dispiro
g4.left.start (Middle + height / 4) (quoteTop - O) [widths.lhs.heading [AdviceStroke 3] Leftward]
archv
g4.down.mid (Middle - height / 4 + O) [mix quoteBottom quoteTop 0.5] [widths.lhs.heading [AdviceStroke 3.5] Downward]
arcvh
g4.right.end (Middle + height / 4) (quoteBottom + O) [widths.lhs.heading [AdviceStroke 3] Rightward]
turned 'modifierLetterRightHalfRing' 0x2BE 'modifierLetterLeftHalfRing' Middle [mix quoteBottom quoteTop 0.5]