Optimize glyph for dblSharpTone.

This commit is contained in:
John McWilliams 2025-04-14 07:16:44 -04:00
parent 7964d765a3
commit 6375ad9930
2 changed files with 40 additions and 39 deletions

View file

@ -1,2 +1,3 @@
* Refine shape of the following characters:
- THERE DOES NOT EXIST (`U+2204`).
- MUSICAL SYMBOL DOUBLE SHARP (`U+1D12A`).

View file

@ -18,12 +18,12 @@ glyph-block Symbol-Pictograph-Musical : begin
local yl : z1.y + (l - z1.x) * slope
local yr : z1.y + (r - z1.x) * slope
return : spiro-outline
corner l yl
corner r yr
corner l (yl + 0)
corner r (yr + 0)
corner r (yr + h)
corner l (yl + h)
define [MusicalNoteAt size x y] : glyph-proc
include : Ring (- noteCompress / 2 * size) (noteCompress / 2 * size) (-size) 0
include : Ring (noteCompress / 2 * (-size)) (noteCompress / 2 * (+size)) (-size) 0
include : Ungizmo
include : new Transform 1 0 0.15 1 0 0
include : Translate x y
@ -209,11 +209,11 @@ glyph-block Symbol-Pictograph-Musical : begin
create-glyph 'dblSharpTone' 0x1D12A : glyph-proc
local w : rAcc - lAcc
local t : nsTop - fine * 0
local b : t - w
local cx : mix lAcc rAcc 0.5
local cy : mix t b 0.5
local cofine : Math.min (w / 3) (w / 2 - Stroke)
local cy : [mix [mix nsBot nsTop 0.5] CAP 0.3] + AccentStackOffset / 2
local t : cy + w / 2 - fine * 0
local b : cy - w / 2 + fine * 0
local cofine : Math.max (w / 9) : Math.min (w / 3) : VSwToH (w * (2 / 3) - [HSwToV Stroke])
local p 0.5
local size : w * (5 / 12)
include : union
@ -224,17 +224,17 @@ glyph-block Symbol-Pictograph-Musical : begin
corner rAcc b
corner lAcc b
union
VBar.m cx t b cofine
VBar.m cx b t [VSwToH cofine]
HBar.m lAcc rAcc cy cofine
spiro-outline
corner (cx - size) (cy + size)
g4 cx (cy + p * size)
g4 cx (cy + size * p)
corner (cx + size) (cy + size)
g4 (cx + p * size) cy
g4 (cx + size * p) cy
corner (cx + size) (cy - size)
g4 cx (cy - p * size)
g4 cx (cy - size * p)
corner (cx - size) (cy - size)
g4 (cx - p * size) cy
g4 (cx - size * p) cy
close
create-glyph 'dblFlatTone' 0x1D12B : glyph-proc
@ -256,7 +256,7 @@ glyph-block Symbol-Pictograph-Musical : begin
create-glyph 'qtrFlatTone' 0x1D133 : glyph-proc
include : FlatToneShape
include : FlipAround Middle SymbolMid (-1) 1
include : FlipAround Middle SymbolMid (-1) (+1)
create-glyph 'flatToneUp' 0x1D12C : composite-proc
refer-glyph 'flatTone' AS_BASE ALSO_METRICS