diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-17 02:16:47 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-09-17 02:16:47 +0200 |
| commit | c0307751756fd1386d2c82c7a46ff1e2030813f9 (patch) | |
| tree | f8a7fbadc095122623e48061bce20fe19fa69fb2 | |
| parent | f68d06c6418e3d025e81e819183dfa049605bfa0 (diff) | |
Correction with tehta below consonants
| -rw-r--r-- | src/lib/repr/tengwar.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lib/repr/tengwar.ml b/src/lib/repr/tengwar.ml index e198964..d529016 100644 --- a/src/lib/repr/tengwar.ml +++ b/src/lib/repr/tengwar.ml @@ -463,6 +463,11 @@ let fold _fold (Some {empty_glyph with tehta_below = Some v}) tl + | Some ({ tehta_below = Some _ ; _} as t), Consonant c -> + repr_glyph t buff; + _fold + (Some {empty_glyph with tengwa = Some c}) + tl | Some t, Voyel ({position = `Above; _} as v) -> repr_glyph t buff; _fold |