This commit is contained in:
be5invis 2021-04-14 20:57:42 -07:00
parent 109aaedad5
commit ffec3802a7

View file

@ -14,7 +14,7 @@ glyph-block Digits-Four : begin
define [FourStdShape] : params [top open crossing [fine : AdviceStroke 3] [sw Stroke] [bbd 0]] : glyph-proc
local yBar : top * 0.3 + 0.625 * sw
define xVertBar : [mix SB RightSB : if crossing 0.8 0.9125] - (bbd * 0.75) + [if crossing (0.225 * sw) 0]
define xVertBar : [mix SB RightSB : if crossing 0.75 0.9125] - (bbd * 0.75) + [if crossing (0.375 * sw * HVContrast) 0]
define yVertBarTop : [mix (yBar - sw) top : if open 0.5 1] - [if open (0.3 * sw) 0]
define xHBarTerminal : if crossing RightSB xVertBar
define xSlopeTop : xVertBar - sw * HVContrast - [if open 0.25 1] * fine * HVContrast * [if crossing 0.25 0.5]