add swung dash for ellipsis
This commit is contained in:
parent
bc3a3de705
commit
8661cea604
1 changed files with 8 additions and 3 deletions
|
@ -653,7 +653,8 @@ dŕ = da <> P [mR (-3,0), cR (1,0) (3,-1) (3,-2)]
|
|||
|
||||
punctuation :: Map Text Glyph
|
||||
punctuation = Map.fromList
|
||||
[(".", eos), ("?", eos), ("!", eos), (",", eop), (":", eop), (";", eop)]
|
||||
[(".", eos), ("?", eos), ("!", eos), (",", eop), (":", eop), (";", eop),
|
||||
("…", ellipsis)]
|
||||
|
||||
eos = G {path = eosPath, width = 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)]
|
||||
|
||||
wave :: Glyph
|
||||
wave = G {path = wavePath, width = 4} where
|
||||
wavePath = P [mA (0,2.5), cR (1.5,-2) (2.5,2) (4,0)]
|
||||
wave = G {path = wavePath, width = 4}
|
||||
|
||||
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}
|
||||
|
|
Loading…
Reference in a new issue