|
1 | 1 | $$include '../../meta/macros.ptl' |
2 | 2 |
|
3 | 3 | import [mix linreg clamp fallback] from "@iosevka/util" |
| 4 | +import [Box] from "@iosevka/geometry/box" |
4 | 5 |
|
5 | 6 | glyph-module |
6 | 7 |
|
@@ -108,3 +109,43 @@ glyph-block Symbol-Pictograph-Keyboard : begin |
108 | 109 | set-width Geom.Width |
109 | 110 | local sw : AdviceStroke 8 : Math.sqrt MosaicWidthScalar |
110 | 111 | include : KeyboardShape (Geom.MidY + Geom.Size / 1.5) (Geom.MidY - Geom.Size / 1.5) Geom.Left Geom.Right sw |
| 112 | + |
| 113 | + create-glyph 'insertSignBase' : glyph-proc |
| 114 | + local box : new Box XH 0 SB RightSB |
| 115 | + local sw : AdviceStroke 4 |
| 116 | + include : intersection |
| 117 | + spiro-outline |
| 118 | + corner box.l [box.yp 0.5] |
| 119 | + corner [box.xp 0.5] box.t |
| 120 | + corner box.r [box.yp 0.5] |
| 121 | + corner [box.xp 0.5] box.b |
| 122 | + close |
| 123 | + union |
| 124 | + ExtLineLhs 8 sw box.l [box.yp 0.5] [box.xp 0.5] box.b |
| 125 | + ExtLineRhs 8 sw box.r [box.yp 0.5] [box.xp 0.5] box.b |
| 126 | + |
| 127 | + create-glyph 'underscoreSignBase' : glyph-proc |
| 128 | + local sb : 0.5 * SB |
| 129 | + local sw : AdviceStroke 4 |
| 130 | + local yc : SymbolMid - (XH / 2) |
| 131 | + include : HBar.b sb (Width - sb) yc sw |
| 132 | + create-glyph 'BrokenUnderscoreSignBase' : glyph-proc |
| 133 | + local sb : 0.5 * SB |
| 134 | + local sw : AdviceStroke 4 |
| 135 | + local yc : SymbolMid - (XH / 2) |
| 136 | + local gap : Math.max (Width / 12) [AdviceStroke 4] |
| 137 | + include : HBar.b sb (Middle - gap / 2) yc sw |
| 138 | + include : HBar.b (Middle + gap / 2) (Width - sb) yc sw |
| 139 | + create-glyph 'correctionSignBase' : glyph-proc |
| 140 | + local sb : 0.5 * SB |
| 141 | + local box : new Box (SymbolMid + XH / 4) (SymbolMid - XH / 4) sb (Width - sb) |
| 142 | + local sw : AdviceStroke 5 |
| 143 | + # Left half |
| 144 | + include : ExtLineCenter 0 sw box.l box.t [box.xp 0.2] [box.yp 0.9] |
| 145 | + include : ExtLineCenter 0 sw (box.l + OX) [box.yp 0.5] [box.xp 0.2] [box.yp 0.5] |
| 146 | + include : ExtLineCenter 0 sw box.l box.b [box.xp 0.2] [box.yp 0.1] |
| 147 | + # Right half |
| 148 | + include : ExtLineCenter 0 sw box.r box.t [box.xp 0.8] [box.yp 0.9] |
| 149 | + include : ExtLineCenter 0 sw (box.r - OX) [box.yp 0.5] [box.xp 0.8] [box.yp 0.5] |
| 150 | + include : ExtLineCenter 0 sw box.r box.b [box.xp 0.8] [box.yp 0.1] |
| 151 | + |
0 commit comments