Add Plimsoll symbol (U+29B5). (#2134)

This commit is contained in:
John McWilliams 2023-12-28 10:56:27 -05:00 committed by GitHub
parent 4fe08a32ab
commit 9bc1f33ac0
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 2 deletions

View file

@ -1,5 +1,6 @@
* Add characters:
- COMBINING SUSPENSION MARK (`U+1DC3`).
- CIRCLE WITH HORIZONTAL BAR (`U+29B5`).
- LATIN CAPITAL LETTER P WITH STROKE THROUGH DESCENDER (`U+A750`) (#1797).
- LATIN SMALL LETTER P WITH STROKE THROUGH DESCENDER (`U+A751`) (#1797).
* Remove tailless variants for Latin Iota (`U+0196`, `U+0269`) and Cyrillic Iota (`U+A646`, `U+A647`).

View file

@ -7,6 +7,7 @@ glyph-module
glyph-block Symbol-Math-Circled : begin
glyph-block-import CommonShapes
glyph-block-import Common-Derivatives
glyph-block-import Symbol-Math-Frame : MathEnclosureSw
define [MakeMathCircled u inner] : begin
derive-glyphs "mathCircled{\(inner)}" u inner : function [src gr]
@ -69,9 +70,9 @@ glyph-block Symbol-Math-Circled : begin
create-glyph 0x229D : composite-proc [refer-glyph 'mathO'] : intersection
refer-glyph 'mathOOutline'
HBar.m (SB + GeometryStroke) (RightSB - GeometryStroke) SymbolMid GeometryStroke
HBar.m (SB + MathEnclosureSw) (RightSB - MathEnclosureSw) SymbolMid MathEnclosureSw
local eqS : Math.min GeometryStroke ((RightSB - SB) / 8)
local eqS : Math.min MathEnclosureSw ((RightSB - SB) / 8)
local eqD : Math.max eqS ((RightSB - SB) / 6)
create-glyph 0x229C : composite-proc [refer-glyph 'mathO'] : intersection
refer-glyph 'mathOOutline'
@ -79,6 +80,8 @@ glyph-block Symbol-Math-Circled : begin
HBar.m (SB + eqS) (RightSB - eqS) (SymbolMid + eqD) eqS
HBar.m (SB + eqS) (RightSB - eqS) (SymbolMid - eqD) eqS
create-glyph 0x29B5 : composite-proc [refer-glyph 'mathO'] : HBar.m [mix SB 0 0.9] [mix RightSB Width 0.9] SymbolMid MathEnclosureSw
create-glyph 0x29B7 : composite-proc [refer-glyph 'mathO'] : intersection
refer-glyph 'mathOOutline'
union