Optimize width of Sheqel sign under QP.

This commit is contained in:
John McWilliams 2025-03-22 07:13:00 -04:00
parent e262282fa8
commit 2fe8816a5f

View file

@ -83,7 +83,7 @@ glyph-block Symbol-Currency : begin
select-variant 'currency/turkishLiraSign' 0x20BA
create-glyph 'currency/sheqelSign' 0x20AA : glyph-proc
local df : include : DivFrame para.advanceScaleM 4
local df : include : DivFrame [mix 1 para.advanceScaleMM 0.5] 4
include : df.markSet.e
define pX 0.7
@ -203,11 +203,10 @@ glyph-block Symbol-Letter : begin
glyph-block-import Letter-Shared-Shapes : FlatHookDepth
alias 'eulerConst' 0x2107 'latn/Epsilon'
alias 'scruple' 0x2108 'cyrl/E'
alias 'scruple' 0x2108 'cyrl/E'
alias 'Ohm' 0x2126 'grek/Omega'
turned 'Mho' 0x2127 'Ohm' Middle (CAP / 2)
alias 'Mho' 0x2127 'latn/Upsilon'
alias 'letterLike/kelvinSign' 0x212A 'K'
@ -235,7 +234,7 @@ glyph-block Symbol-Letter : begin
# Center of inner round corner, as well as the limit X for the inner circle edge
local xLargeRc : sw + r2
local yLargeRc : cy - [Math.sqrt ((r1 - r2) * (r1 - r2) - (cx - sw - r2) * (cx - sw - r2))]
local yLargeRc : cy - [Math.sqrt : (r1 - r2) * (r1 - r2) - (cx - sw - r2) * (cx - sw - r2)]
local xInnerCircleLimit : cx - (cx - xLargeRc) * (r1 / (r1 - r2))
include : ForceUpright
@ -265,7 +264,7 @@ glyph-block Symbol-Letter : begin
Rect cy (cy - r3 - 1) (sw + r3) cx
# Bottom-right opening
Rect cy (cy - yGapSize) (cx - 1) (2 * cx)
Rect cy (cy - yGapSize) (cx - 1) (2 * cx)
include tfm