Fix alignment in various APL characters (#1771).

This commit is contained in:
be5invis 2023-06-04 15:04:30 -07:00
parent 279ca144bc
commit 35ffbc11de
4 changed files with 27 additions and 16 deletions

View file

@ -1,2 +1,3 @@
* Fix broken geometry of CYRILLIC CAPITAL LETTER ZHWE (`U+A684`) and CYRILLIC SMALL LETTER ZHWE (`U+A685`) under some settings of `cv63` and `cv64` (#1769).
* Improve glyphs of PITCHFORK WITH TEE TOP (`U+2ADA`) ... NONFORKING (`U+2ADD`) such that their terminals are of consistent height with each other.
* Fix alignment in various APL characters (#1771).

View file

@ -174,7 +174,9 @@ glyph-block Symbol-Math-APL : begin
create-glyph 0x2366 : composite-proc [refer-glyph 'cup'] [refer-glyph 'apl/bar']
create-glyph 0x236D : composite-proc [refer-glyph 'overlayTildeOperator'] [refer-glyph 'bar']
derive-composites 'apl/barComma' 0x236A 'comma' 'minus'
define CenterSmallPunctuations : ApparentTranslate (Middle - [DivFrame para.diversityF].middle) 0
derive-composites 'apl/barComma' 0x236A 'markDemoBaseSpace' 'comma' CenterSmallPunctuations 'minus'
derive-composites 'apl/zeroTilde' 0x236C 'zero.lnum/forceUnslashed' 'overlayTildeOperator'
# Dieresis & underscore
@ -185,19 +187,19 @@ glyph-block Symbol-Math-APL : begin
refer-glyph srcs.1
clear-anchors
AplAccented 0x2362 'nabla.aplForm' 'dieresisAbove' [MarkSet.tack]
AplAccented 0x2361 'top' 'dieresisAbove' [MarkSet.tack]
AplAccented 0x2363 'asterisk.pentaSMid' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2364 'mathSmallCircle' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2365 'whiteCircle.NWID' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2368 'asciiTilde.low' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2369 'greater.narrow' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x234A 'bot' 'underlineBelow' [MarkSet.tack]
AplAccented 0x2358 'asciiSingleQuote/body/straight' 'underlineBelow' [MarkSet.plus]
AplAccented 0x235A 'whiteDiamondOperator' 'underlineBelow' [MarkSet.plus]
AplAccented 0x235B 'mathSmallCircle' 'underlineBelow' [MarkSet.plus]
AplAccented 0x235C 'whiteCircle.NWID' 'underlineBelow' [MarkSet.plus]
AplAccented 0x2377 'aplElement' 'underlineBelow' [MarkSet.plus]
AplAccented 0x2362 'nabla.aplForm' 'dieresisAbove' [MarkSet.tack]
AplAccented 0x2361 'top' 'dieresisAbove' [MarkSet.tack]
AplAccented 0x2363 'asterisk.pentaSMid' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2364 'mathSmallCircle' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2365 'whiteCircle.NWID' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2368 'asciiTilde.low' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x2369 'greater.narrow' 'dieresisAbove' [MarkSet.plus]
AplAccented 0x234A 'bot' 'underlineBelow' [MarkSet.tack]
AplAccented 0x2358 'asciiSingleQuote/body/straight/HW' 'underlineBelow' [MarkSet.plus]
AplAccented 0x235A 'whiteDiamondOperator' 'underlineBelow' [MarkSet.plus]
AplAccented 0x235B 'mathSmallCircle' 'underlineBelow' [MarkSet.plus]
AplAccented 0x235C 'whiteCircle.NWID' 'underlineBelow' [MarkSet.plus]
AplAccented 0x2377 'aplElement' 'underlineBelow' [MarkSet.plus]
derive-composites 'apl/alphaBar' 0x2376 'grek/alpha' [refer-glyph 'underlineBelow'] [clear-anchors]
derive-composites 'apl/iotaBar' 0x2378 'grek/iota' [refer-glyph 'underlineBelow'] [clear-anchors]
@ -211,7 +213,9 @@ glyph-block Symbol-Math-APL : begin
create-glyph 0x2346 : composite-proc : Overlay [refer-glyph 'arrowRight.NWID'] [refer-glyph 'apl/bar']
create-glyph 0x235F : composite-proc [intersection [refer-glyph 'mathOOutline'] [refer-glyph 'opAsterisk.low']] [refer-glyph 'mathO']
derive-glyphs 'apl/barSemicolon' 0x236E 'semicolon' : function [src gr] : Overlay [refer-glyph src] [refer-glyph 'underscore.high']
derive-glyphs 'apl/barSemicolon' 0x236E 'semicolon' : function [src gr] : Overlay
WithTransform CenterSmallPunctuations [refer-glyph src]
refer-glyph 'underscore.high'
# Complex Composition
create-glyph 0x2367 : composite-proc [refer-glyph 'apl/bar'] : union

View file

@ -56,6 +56,9 @@ glyph-block Symbol-Punctuation-Dashes : begin
alias 'nbHyphen' 0x2011 'hyphen'
alias 'hyphenBullet' 0x2043 'hyphen'
create-glyph 'hyphenHW' : glyph-proc
include : HBar.m SB RightSB SymbolMid
create-glyph 'figureDash' 0x2012 : HBar.m SB RightSB SymbolMid
create-glyph 'overline' 0x203E : HBar.t SB RightSB CAP
@ -71,7 +74,7 @@ glyph-block Symbol-Punctuation-Dashes : begin
alias [MangleName 'horizontalBar'] [MangleUnicode 0x2015] [MangleName 'emDash']
derive-multi-part-glyphs 'hyphenDieresis' 0x2E1A { 'hyphen' 'dieresisAbove'}
derive-multi-part-glyphs 'hyphenDieresis' 0x2E1A { 'hyphenHW' 'dieresisAbove'}
function [src sel] : composite-proc
refer-glyph src.0
MarkSet.plus

View file

@ -184,6 +184,9 @@ glyph-block Symbol-Punctuation-Quotes-And-Primes : begin
set-width df.width
include : StraightQuoteShape df quoteTop quoteBottom
create-glyph 'asciiSingleQuote/body/straight/HW' : glyph-proc
include : StraightQuoteShape [DivFrame 1] quoteTop quoteBottom
create-glyph 'Saltillo' 0xA78B : glyph-proc
local df : DivFrame para.diversityF
set-width df.width