From c0307751756fd1386d2c82c7a46ff1e2030813f9 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 17 Sep 2021 02:16:47 +0200 Subject: Correction with tehta below consonants --- src/lib/repr/tengwar.ml | 5 +++++ 1 file changed, 5 insertions(+) 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 -- cgit v1.2.3