Add missing characters for retro computing

This commit is contained in:
Belleve Invis 2020-02-24 23:49:53 -08:00
parent 5492ac33f0
commit 0150b80c53
2 changed files with 27 additions and 0 deletions

View file

@ -734,6 +734,14 @@ glyph-block Symbol-Mosaic : begin
glyph-construction : include glyphs.[BdGlyphName 0x1FBAE] glyph-construction : include glyphs.[BdGlyphName 0x1FBAE]
save [BdGlyphName 0x1FBBF] [MangleUnicode 0x1FBBF] save [BdGlyphName 0x1FBBF] [MangleUnicode 0x1FBBF]
sketch
set-width MosaicWidth
include : ForceUpright
include : intersection
glyph-construction : include glyphs.[BdGlyphName 0x253C]
Rect [mix bottom top 0.35] [mix bottom top 0.65] 0 MosaicWidth
save [BdGlyphName 0x1FBAF] [MangleUnicode 0x1FBAF]
glyph-block Symbol-Mosaic-Powerline : begin glyph-block Symbol-Mosaic-Powerline : begin
glyph-block-import CommonShapes : ForceUpright FlipAround HBarBottom HBarTop glyph-block-import CommonShapes : ForceUpright FlipAround HBarBottom HBarTop

View file

@ -865,6 +865,25 @@ glyph-block Symbol-Other-Powerline-And-GUI : begin
SegmentedDigit 0x1FBF8 1 1 1 1 1 1 1 SegmentedDigit 0x1FBF8 1 1 1 1 1 1 1
SegmentedDigit 0x1FBF9 1 1 1 1 0 1 1 SegmentedDigit 0x1FBF9 1 1 1 1 0 1 1
do "voidedGreekCross"
sketch
set-width MosaicWidth
local sw : adviceBlackness 4
local gap : [Math.max (WIDTH / 8) (WIDTH / 6 - sw / 2) ([adviceBlackness 3] - sw / 2)] / 2
local mid : MosaicWidth / 2
local size : [Math.min (MosaicWidth - SB * 2) (uiFigTop - uiFigBot)] / 2
include : union
VBarRight (mid - gap) (symbolMid + gap) (symbolMid + size) sw
VBarRight (mid - gap) (symbolMid - gap) (symbolMid - size) sw
VBarLeft (mid + gap) (symbolMid + gap) (symbolMid + size) sw
VBarLeft (mid + gap) (symbolMid - gap) (symbolMid - size) sw
HBarBottom (mid - size) (mid - gap) (symbolMid + gap) sw
HBarBottom (mid + size) (mid + gap) (symbolMid + gap) sw
HBarTop (mid - size) (mid - gap) (symbolMid - gap) sw
HBarTop (mid + size) (mid + gap) (symbolMid - gap) sw
save [MangleName "voidedGreekCross"] [MangleUnicode 0x1FBBB]
glyph-block Symbol-Other-Checking-Marks : begin glyph-block Symbol-Other-Checking-Marks : begin
glyph-block-import CommonShapes glyph-block-import CommonShapes