rhi/lang
1
0
Fork 0
Code Issues 2 Pull requests Releases Wiki Activity

add swung dash for ellipsis

Browse source
This commit is contained in:
Rhiannon Morris 2021-06-11 15:47:54 +02:00
parent bc3a3de705
commit 8661cea604
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
laantas-script/Glyphs.hs
View file

@ -653,7 +653,8 @@ dŕ = da <> P [mR (-3,0), cR (1,0) (3,-1) (3,-2)]
punctuation :: Map Text Glyph punctuation :: Map Text Glyph
punctuation = Map.fromList punctuation = Map.fromList
[(".", eos), ("?", eos), ("!", eos), (",", eop), (":", eop), (";", eop)] [(".", eos), ("?", eos), ("!", eos), (",", eop), (":", eop), (";", eop),
("…", ellipsis)]
eos = G {path = eosPath, width = 4} eos = G {path = eosPath, width = 4}
eosPath = P $ circA 1 (4,1) <> circA 1 (4,4) eosPath = P $ circA 1 (4,1) <> circA 1 (4,4)
@ -674,5 +675,9 @@ n5Path = P [mA (0,5), lR (0,-3.5), aR 1.5 1.5 0 Small CW (1.5,-1.5),
lR (1,0), aR 1.5 1.5 0 Small CW (1.5,1.5), lR (0,3.5)] lR (1,0), aR 1.5 1.5 0 Small CW (1.5,1.5), lR (0,3.5)]
wave :: Glyph wave :: Glyph
wave = G {path = wavePath, width = 4} where wave = G {path = wavePath, width = 4}
wavePath = P [mA (0,2.5), cR (1.5,-2) (2.5,2) (4,0)] wavePath = P [mA (0,2.5), cR (1.5,-2) (2.5,2) (4,0)]
ellipsis :: Glyph
ellipsis = G {path = shiftX 3.5 wavePath, width = 6}