Add Plimsoll symbol (U+29B5
). (#2134)
This commit is contained in:
parent
4fe08a32ab
commit
9bc1f33ac0
2 changed files with 6 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue