* Add characters:

- LIGHTNING (`U+2607`) (#2158).
  - SUBSET WITH DOT (`U+2ABD`).
  - SUPERSET WITH DOT (`U+2ABE`).
*  `APLF` feature will apply to all [Uiua](https://www.uiua.org/) operators.
This commit is contained in:
be5invis 2024-01-11 23:42:58 -08:00
parent 9874df9994
commit 21818c20a1
4 changed files with 43 additions and 0 deletions

View file

@ -1,4 +1,9 @@
* Add characters:
- LIGHTNING (`U+2607`) (#2158).
- SUBSET WITH DOT (`U+2ABD`).
- SUPERSET WITH DOT (`U+2ABE`).
* Add untagged variant selector for Cyrillic Capital Ef (`Ф`) for style-driven variation.
* Fix leaning marks of Turned/Reversed Sans-Serif Capital L.
* Fix leaning marks of Cyrillic Tall Te.
* Fix leaning marks of Greek Lower Mu/Rho.
* `APLF` feature will apply to all [Uiua](https://www.uiua.org/) operators.

View file

@ -1221,6 +1221,27 @@ glyph-block Symbol-Arrow : for-width-kinds WideWidth1
TriangleArrowHead x3ArrowHeadMock y3 x4 y4 arrowHeadSize
ZigZagArrowBar
do "Lightning"
define x1 : mix arrowMidX arrowRSB (0.875 / [Math.sqrt MosaicWidthScalar])
define x2 : mix arrowMidX arrowSB (0.875 / [Math.sqrt MosaicWidthScalar])
define x3 x1
define y1 arrowTop
define y3 arrowBot
define y2 : mix y1 y3 0.5
define magLastSeg : Math.hypot (x3 - x2) (y3 - y2)
define pLastSeg : (magLastSeg - o - 0.55 * arrowSw) / magLastSeg
create-glyph [MangleName 'lightning'] [MangleUnicode 0x2607] : glyph-proc
set-width MosaicWidth
include : dispiro
flat x1 y1 [widths.center arrowSw]
curl [mix x2 x1 0.2] [mix y2 y1 0.2]
flat [mix x2 x3 0.2] [mix y2 y3 0.2]
curl [mix x2 x3 pLastSeg] [mix y2 y3 pLastSeg]
include : ArrowHead x2 y2 x3 y3 arrowHeadSize
do "Legacy computing arrows"
define bodyWidth : Math.min arrowWidth (arrowHeight * 0.6)
create-glyph [MangleName 'arrowUpThenNW'] [MangleUnicode 0x1F8B0] : glyph-proc

View file

@ -271,6 +271,19 @@ glyph-block Symbol-Math-APL : begin
LinkAplFormForNwidWwid 'uni2687'
# Uiua symbols
LinkAplFormForNwidWwid 'whiteTriangleUp'
LinkAplFormForNwidWwid 'whiteTriangleRB'
LinkAplFormForNwidWwid 'arrowDownRight'
LinkAplFormForNwidWwid 'dashArrowUp'
LinkAplFormForNwidWwid 'barArrowUp'
LinkAplFormForNwidWwid 'barArrowDown'
LinkAplFormForNwidWwid 'cwOpenCircleArrow'
LinkAplFormForNwidWwid 'loopArrowLeft'
LinkAplFormForNwidWwid 'loopArrowRight'
LinkAplFormForNwidWwid 'uni21CC'
LinkAplFormForNwidWwid 'uni238B'
LinkAplFormForNwidWwid 'uni2335'
LinkAplFormForNwidWwid 'uni2682'
LinkAplFormForNwidWwid 'telephoneRecorder'
LinkAplFormForNwidWwid 'lightning'
LinkAplFormForNwidWwid 'zigZagArrow'

View file

@ -762,6 +762,10 @@ glyph-block Symbol-Math-Relation-Subset : begin
derive-composites 'supstBarNoRise' null 'supst' 'eqLower2'
derive-composites 'supstBarNegated' 0x228B 'supstBarUpper' 'eqBarNegatedLower'
define supstDotShift : SB + [Math.max (OperatorStroke * 1.5) dHSubstSimple] - Middle
derive-composites 'substDot' 0x2ABD 'mathCDot' [ApparentTranslate (+supstDotShift) 0] 'subst'
derive-composites 'supstDot' 0x2ABE 'mathCDot' [ApparentTranslate (-supstDotShift) 0] 'supst'
create-glyph 'element' 0x2208 : glyph-proc
include : SubsetShape (SymbolMid + dHElem) (SymbolMid - dHElem)
include : HBar.m (SB + HalfStroke) RightSB SymbolMid OperatorStroke