diff options
Diffstat (limited to 'src/lib/sounds/sounds.ml')
| -rw-r--r-- | src/lib/sounds/sounds.ml | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/lib/sounds/sounds.ml b/src/lib/sounds/sounds.ml index a8c9ce9..afaf110 100644 --- a/src/lib/sounds/sounds.ml +++ b/src/lib/sounds/sounds.ml @@ -17,7 +17,8 @@ type code = | Voyel_U (* OU like in Ouvrir *) | Voyel_Y (* U like in Unique *) | Voyel_AI - | Voyel_EU + | Voyel_EU_Closed + | Voyel_EU_Opened | SemiVoyel_W | SemiVoyel_Y | Consonant_P @@ -82,13 +83,12 @@ let e = function | `Closed -> { voyel with code = E_Closed } | `Opened -> { voyel with code = E_Opened } -let eu = - { voyel with - code = Voyel_EU - } +let eu = function + | `Closed -> { voyel with code = Voyel_EU_Closed } + | `Opened -> { voyel with code = Voyel_EU_Opened } -let schwa () = +let schwa = { voyel with code = Voyel_E } @@ -264,7 +264,8 @@ let repr | Voyel_U, _ -> Repr.u | Voyel_Y, false -> Repr.y | Voyel_Y, true -> Repr.y_nasal - | Voyel_EU, _ -> Repr.eu + | Voyel_EU_Closed, _ -> Repr.eu_closed + | Voyel_EU_Opened, _ -> Repr.eu_opened | SemiVoyel_W, _ -> Repr.semi_voyel_w | SemiVoyel_Y, _ -> Repr.semi_voyel_y |