mikeslab/Iosevka
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions 1

* Add Characters

Browse source 
- VERY MUCH LESS-THAN (`U+22D8`) (#1990).
  - VERY MUCH GREATER-THAN (`U+22D9`) (#1990).
This commit is contained in:
be5invis 2023-09-16 13:29:05 -07:00
parent 1ae8606e2e
commit 7dafab5316
2 changed files with 46 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

3
changes/27.0.1.md Normal file
View file

@ -0,0 +1,3 @@
* Add Characters
- VERY MUCH LESS-THAN (`U+22D8`) (#1990).
- VERY MUCH GREATER-THAN (`U+22D9`) (#1990).

80
font-src/glyphs/symbol/math/relation.ptl
View file

@ -216,8 +216,9 @@ glyph-block Symbol-Math-Relation-Addons : begin
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Math-Relation-Common : lessEqDist dH dSH glyph-block-import Symbol-Math-Relation-Common : lessEqDist dH dSH
glyph-block-export lesslessSW lesslessSWO llggHeight glyph-block-export lesslessSW muchLessSW lesslessSWO llggHeight
define lesslessSW : AdviceStroke 4 define lesslessSW : AdviceStroke 3.5
define muchLessSW : AdviceStroke 4.5 para.diversityM
define lesslessSWO : Math.max lesslessSW lessEqDist define lesslessSWO : Math.max lesslessSW lessEqDist
define llggHeight : dH * 2 + lessEqDist * 2 define llggHeight : dH * 2 + lessEqDist * 2
@ -378,7 +379,7 @@ glyph-block Symbol-Math-Relation-Inequality : begin
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Math-Relation-Common : dH dSH lessEqDist glyph-block-import Symbol-Math-Relation-Common : dH dSH lessEqDist
glyph-block-import Symbol-Math-Relation-Sym : symWave glyph-block-import Symbol-Math-Relation-Sym : symWave
glyph-block-import Symbol-Math-Relation-Addons : lesslessSW llggHeight glyph-block-import Symbol-Math-Relation-Addons : lesslessSW muchLessSW llggHeight
glyph-block-import Symbol-Math-Relation-Addon-Glyphs glyph-block-import Symbol-Math-Relation-Addon-Glyphs
define [LessGreaterExpansion top bot l r] define [LessGreaterExpansion top bot l r]
@ -392,47 +393,41 @@ glyph-block Symbol-Math-Relation-Inequality : begin
corner l top corner l top
corner l bot corner l bot
corner r [mix bot top 0.5] corner r [mix bot top 0.5]
define [LessShapeA top bot l r s p] : begin
define [LessShapeHalf sign top bot l r s p] : begin
define exp : LessGreaterExpansion top bot l r define exp : LessGreaterExpansion top bot l r
define expAmend : Math.min [Math.sqrt 2] exp
define endAdj : 0.5 * s * (exp - expAmend)
define pp : fallback p 1 define pp : fallback p 1
return : dispiro return : dispiro
widths.center s widths.center s
flat [mix l r pp] [mix [mix top bot 0.5] top pp] flat [mix l r pp] [mix [mix top bot 0.5] [mix bot top sign] pp]
curl l [mix top bot 0.5] [widths.heading (s / 2 * exp) (s / 2 * exp) Leftward] curl (l - endAdj) [mix top bot 0.5] [widths.center.heading (s * expAmend) Leftward]
define [LessShapeB top bot l r s p] : begin
define [GreaterShapeHalf sign top bot l r s p] : begin
define exp : LessGreaterExpansion top bot l r define exp : LessGreaterExpansion top bot l r
define expAmend : Math.min [Math.sqrt 2] exp
define endAdj : 0.5 * s * (exp - expAmend)
define pp : fallback p 1 define pp : fallback p 1
return : dispiro return : dispiro
widths.center s widths.center s
flat [mix l r pp] [mix [mix top bot 0.5] bot pp] flat [mix r l pp] [mix [mix top bot 0.5] [mix bot top sign] pp]
curl l [mix top bot 0.5] [widths.heading (s / 2 * exp) (s / 2 * exp) Leftward] curl (r + endAdj) [mix top bot 0.5] [widths.center.heading (s * expAmend) Rightward]
define [GreaterShapeA top bot l r s p] : begin
define exp : LessGreaterExpansion top bot l r
define pp : fallback p 1
return : dispiro
widths.center s
flat [mix r l pp] [mix [mix top bot 0.5] top pp]
curl r [mix top bot 0.5] [widths.heading (s / 2 * exp) (s / 2 * exp) Rightward]
define [GreaterShapeB top bot l r s p] : begin
define exp : LessGreaterExpansion top bot l r
define pp : fallback p 1
return : dispiro
widths.center s
flat [mix r l pp] [mix [mix top bot 0.5] bot pp]
curl r [mix top bot 0.5] [widths.heading (s / 2 * exp) (s / 2 * exp) Rightward]
glyph-block-export LessShape glyph-block-export LessShape
define [LessShape top bot l r s] : union define [LessShape top bot l r s] : union
LessShapeA top bot l r [fallback s OperatorStroke] LessShapeHalf 0 top bot l r [fallback s OperatorStroke]
LessShapeB top bot l r [fallback s OperatorStroke] LessShapeHalf 1 top bot l r [fallback s OperatorStroke]
glyph-block-export LigationLessShape glyph-block-export LigationLessShape
define [LigationLessShape top bot l r s t gap] : union define [LigationLessShape top bot l r s t gap] : union
intersection intersection
Rect [mix bot top 2] [mix top bot 2] [mix r l 2] r Rect [mix bot top 2] [mix top bot 2] [mix r l 2] r
union union
LessShapeA top bot l r [fallback s OperatorStroke] 2 LessShapeHalf 0 top bot l r [fallback s OperatorStroke] 2
LessShapeB top bot l r [fallback s OperatorStroke] 2 LessShapeHalf 1 top bot l r [fallback s OperatorStroke] 2
intersection intersection
LessMaskShape top bot l r LessMaskShape top bot l r
difference difference
@ -446,16 +441,16 @@ glyph-block Symbol-Math-Relation-Inequality : begin
glyph-block-export GreaterShape glyph-block-export GreaterShape
define [GreaterShape top bot l r s] : union define [GreaterShape top bot l r s] : union
GreaterShapeA top bot l r [fallback s OperatorStroke] GreaterShapeHalf 0 top bot l r [fallback s OperatorStroke]
GreaterShapeB top bot l r [fallback s OperatorStroke] GreaterShapeHalf 1 top bot l r [fallback s OperatorStroke]
glyph-block-export LigationGreaterShape glyph-block-export LigationGreaterShape
define [LigationGreaterShape top bot l r s t gap] : union define [LigationGreaterShape top bot l r s t gap] : union
intersection intersection
Rect [mix bot top 2] [mix top bot 2] [mix l r 2] l Rect [mix bot top 2] [mix top bot 2] [mix l r 2] l
union union
GreaterShapeA top bot l r [fallback s OperatorStroke] 2 GreaterShapeHalf 0 top bot l r [fallback s OperatorStroke] 2
GreaterShapeB top bot l r [fallback s OperatorStroke] 2 GreaterShapeHalf 1 top bot l r [fallback s OperatorStroke] 2
intersection intersection
GreaterMaskShape top bot l r GreaterMaskShape top bot l r
difference difference
@ -498,11 +493,11 @@ glyph-block Symbol-Math-Relation-Inequality : begin
derive-composites 'lessSym' 0x2272 'lessEqUpper' 'symLower' derive-composites 'lessSym' 0x2272 'lessEqUpper' 'symLower'
derive-composites 'lessSymBarNegated' 0x22E6 'lessEqUpper' 'symBarNegatedLower' derive-composites 'lessSymBarNegated' 0x22E6 'lessEqUpper' 'symBarNegatedLower'
derive-composites 'lessEqSlant' 0x2A7D 'lessEqUpper' derive-composites 'lessEqSlant' 0x2A7D 'lessEqUpper'
LessShapeB (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB OperatorStroke LessShapeHalf 0 (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB OperatorStroke
WithDotVariants 'lessEqSlantDot' 0x2A7F : function [DrawAt kr ov] : composite-proc WithDotVariants 'lessEqSlantDot' 0x2A7F : function [DrawAt kr ov] : composite-proc
LessShape (SymbolMid + dSH + lessEqDist) (SymbolMid - dSH + lessEqDist) SB RightSB [AdviceStroke 4] LessShape (SymbolMid + dSH + lessEqDist) (SymbolMid - dSH + lessEqDist) SB RightSB [AdviceStroke 4]
LessShapeB (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB [AdviceStroke 4] LessShapeHalf 0 (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB [AdviceStroke 4]
DrawAt (RightSB - DotRadius) (SymbolMid + lessEqDist) (DotRadius * kr * [AdviceStroke 4] / Stroke - ov) DrawAt (RightSB - DotRadius) (SymbolMid + lessEqDist) (DotRadius * kr * [AdviceStroke 4] / Stroke - ov)
derive-composites 'greater.narrow' null 'greaterEqUpper' [ApparentTranslate 0 (-lessEqDist)] derive-composites 'greater.narrow' null 'greaterEqUpper' [ApparentTranslate 0 (-lessEqDist)]
@ -511,11 +506,11 @@ glyph-block Symbol-Math-Relation-Inequality : begin
derive-composites 'greaterSym' 0x2273 'greaterEqUpper' 'symLower' derive-composites 'greaterSym' 0x2273 'greaterEqUpper' 'symLower'
derive-composites 'greaterSymBarNegated' 0x22E7 'greaterEqUpper' 'symBarNegatedLower' derive-composites 'greaterSymBarNegated' 0x22E7 'greaterEqUpper' 'symBarNegatedLower'
derive-composites 'greaterEqSlant' 0x2A7E 'greaterEqUpper' derive-composites 'greaterEqSlant' 0x2A7E 'greaterEqUpper'
GreaterShapeB (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB OperatorStroke GreaterShapeHalf 0 (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB OperatorStroke
WithDotVariants 'greaterEqSlantDot' 0x2A80 : function [DrawAt kr ov] : composite-proc WithDotVariants 'greaterEqSlantDot' 0x2A80 : function [DrawAt kr ov] : composite-proc
GreaterShape (SymbolMid + dSH + lessEqDist) (SymbolMid - dSH + lessEqDist) SB RightSB [AdviceStroke 4] GreaterShape (SymbolMid + dSH + lessEqDist) (SymbolMid - dSH + lessEqDist) SB RightSB [AdviceStroke 4]
GreaterShapeB (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB [AdviceStroke 4] GreaterShapeHalf 0 (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) SB RightSB [AdviceStroke 4]
DrawAt (SB + DotRadius) (SymbolMid + lessEqDist) (DotRadius * kr * [AdviceStroke 4] / Stroke - ov) DrawAt (SB + DotRadius) (SymbolMid + lessEqDist) (DotRadius * kr * [AdviceStroke 4] / Stroke - ov)
derive-composites 'normalSubsetEq' 0x22B4 'normalSubsetUpper' 'eqLower' derive-composites 'normalSubsetEq' 0x22B4 'normalSubsetUpper' 'eqLower'
@ -541,10 +536,10 @@ glyph-block Symbol-Math-Relation-Inequality : begin
create-aliased-glyph 'eq.at-gteq.lig2.flat' create-aliased-glyph 'eq.at-gteq.lig2.flat'
create-glyph 'eq.at-lteq.lig2.slanted' : glyph-proc create-glyph 'eq.at-lteq.lig2.slanted' : glyph-proc
Joining.set currentGlyph Joining.Classes.Left Joining.set currentGlyph Joining.Classes.Left
include : LessShapeB (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) l2 r2 OperatorStroke include : LessShapeHalf 0 (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) l2 r2 OperatorStroke
create-glyph 'eq.at-gteq.lig2.slanted' : glyph-proc create-glyph 'eq.at-gteq.lig2.slanted' : glyph-proc
Joining.set currentGlyph Joining.Classes.Left Joining.set currentGlyph Joining.Classes.Left
include : GreaterShapeB (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) l2 r2 OperatorStroke include : GreaterShapeHalf 0 (SymbolMid + dH - lessEqDist) (SymbolMid - dH - lessEqDist) l2 r2 OperatorStroke
select-variant 'eq.at-lteq.lig2' select-variant 'eq.at-lteq.lig2'
select-variant 'eq.at-gteq.lig2' select-variant 'eq.at-gteq.lig2'
@ -592,6 +587,17 @@ glyph-block Symbol-Math-Relation-Inequality : begin
include : GreaterShape (SymbolMid + dH) (SymbolMid - dH) (SB - lessEqDist / 2) (RightSB - lessEqDist * 2) lesslessSW include : GreaterShape (SymbolMid + dH) (SymbolMid - dH) (SB - lessEqDist / 2) (RightSB - lessEqDist * 2) lesslessSW
include : GreaterShape (SymbolMid + dH) (SymbolMid - dH) (SB + lessEqDist * 2) (RightSB + lessEqDist / 2) lesslessSW include : GreaterShape (SymbolMid + dH) (SymbolMid - dH) (SB + lessEqDist * 2) (RightSB + lessEqDist / 2) lesslessSW
create-glyph 'muchLess' 0x22D8 : glyph-proc
local df : include : DivFrame para.diversityM 3
include : LessShape (SymbolMid + dH) (SymbolMid - dH) [mix df.leftSB df.rightSB (0/3)] [mix df.leftSB df.rightSB (1/3)] muchLessSW
include : LessShape (SymbolMid + dH) (SymbolMid - dH) [mix df.leftSB df.rightSB (1/3)] [mix df.leftSB df.rightSB (2/3)] muchLessSW
include : LessShape (SymbolMid + dH) (SymbolMid - dH) [mix df.leftSB df.rightSB (2/3)] [mix df.leftSB df.rightSB (3/3)] muchLessSW
create-glyph 'muchGreater' 0x22D9 : glyph-proc
local df : include : DivFrame para.diversityM
include : GreaterShape (SymbolMid + dH) (SymbolMid - dH) [mix df.leftSB df.rightSB (0/3)] [mix df.leftSB df.rightSB (1/3)] muchLessSW
include : GreaterShape (SymbolMid + dH) (SymbolMid - dH) [mix df.leftSB df.rightSB (1/3)] [mix df.leftSB df.rightSB (2/3)] muchLessSW
include : GreaterShape (SymbolMid + dH) (SymbolMid - dH) [mix df.leftSB df.rightSB (2/3)] [mix df.leftSB df.rightSB (3/3)] muchLessSW
glyph-block Symbol-Math-Relation-Precedes-Succeeds : begin glyph-block Symbol-Math-Relation-Precedes-Succeeds : begin
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives