Refine glyph shape of Dash with Upturn (U+2E43).

This commit is contained in:
John McWilliams 2025-05-13 06:39:44 -04:00
parent 858497ded6
commit cfcf21e807
2 changed files with 8 additions and 8 deletions

View file

@ -2,6 +2,7 @@
- INFORMATION SOURCE (`U+2139`). - INFORMATION SOURCE (`U+2139`).
- TRIANGLE-HEADED RIGHTWARDS ARROW (`U+279D`). - TRIANGLE-HEADED RIGHTWARDS ARROW (`U+279D`).
- HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW (`U+279E`). - HEAVY TRIANGLE-HEADED RIGHTWARDS ARROW (`U+279E`).
- DASH WITH UPTURN (`U+2E43`).
- MATHEMATICAL DOUBLE-STRUCK CAPITAL B (`U+1D539`). - MATHEMATICAL DOUBLE-STRUCK CAPITAL B (`U+1D539`).
* Add Characters: * Add Characters:
- LEFTWARDS DOUBLE DASH ARROW (`U+290C`) ... RIGHTWARDS TRIPLE DASH ARROW (`U+290F`). - LEFTWARDS DOUBLE DASH ARROW (`U+290C`) ... RIGHTWARDS TRIPLE DASH ARROW (`U+290F`).

View file

@ -28,7 +28,7 @@ glyph-block Symbol-Punctuation-Dashes : begin
high { (-Stroke) } high { (-Stroke) }
low { Descender } low { Descender }
define joiningOverlap (-Width / 6) define joiningOverlap : (-Width) / 6
foreach { suffix { yBar } } [Object.entries UnderScoreConfig] : do foreach { suffix { yBar } } [Object.entries UnderScoreConfig] : do
create-glyph "underscore.\(suffix)" : HBar.b SB RightSB yBar create-glyph "underscore.\(suffix)" : HBar.b SB RightSB yBar
@ -84,15 +84,14 @@ glyph-block Symbol-Punctuation-Dashes : begin
create-glyph [MangleName 'spear'] [MangleUnicode 0x2E43] : glyph-proc create-glyph [MangleName 'spear'] [MangleUnicode 0x2E43] : glyph-proc
set-width emDashWidth set-width emDashWidth
local yExt : (RightSB - SB) * 0.55 local yExt : (RightSB - SB) * 0.55 + HalfStroke
local adb : SmallArchDepthB * ((yExt * 2) / XH)
include : dispiro include : dispiro
widths.center widths.lhs
flat (SB + [HSwToV HalfStroke] + OX) (SymbolMid + yExt) [heading Downward] flat (SB + OX) (SymbolMid - HalfStroke + yExt) [heading Downward]
curl (SB + [HSwToV HalfStroke] + OX) (SymbolMid + [Math.min adb : yExt - TINY]) curl (SB + OX) (SymbolMid - HalfStroke + [Math.min SmallArchDepthB : yExt - TINY])
arcvh arcvh
flat (Middle + [HSwToV HalfStroke]) SymbolMid flat Middle (SymbolMid - HalfStroke)
curl (emDashWidth - SB - OX) SymbolMid [heading Rightward] curl (emDashWidth - SB) (SymbolMid - HalfStroke) [heading Rightward]
derive-multi-part-glyphs 'hyphenDieresis' 0x2E1A { 'figureDash' 'dieresisAbove'} derive-multi-part-glyphs 'hyphenDieresis' 0x2E1A { 'figureDash' 'dieresisAbove'}
function [src sel] : composite-proc function [src sel] : composite-proc