summaryrefslogtreecommitdiff
path: root/src/lib/repr/tengwar.mli
blob: e80279a9351ef403b28f60f67fc3bd20fe1096ed (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
type tehta

val three_dots : tehta
val two_dots   : tehta
val dot        : tehta
val acute      : tehta
val agrave     : tehta
val right_curl : tehta 
val left_curl  : tehta 
val double_right_curl: tehta 
val double_left_curl:  tehta 
val double_acute: tehta
val bar: tehta

type tengwa =
  | Tinco
  | Parma
  | Calma
  | Quesse

  | Ando
  | Umbar
  | Anga
  | Ungwe

  | Sule
  | Formen
  | Harma
  | Hwesta

  | Anto
  | Ampa
  | Anca
  | Unque

  | Numen
  | Malta
  | Noldo
  | Nwame

  | Ore
  | Vala
  | Anna
  | Vilya

  | Romen
  | Arda
  | Lambe
  | Alda

  | Silme
  | Silme_nuquerna
  | Esse
  | Esse_nuquerna

  | Hyarmen
  | Hwesta_sindarinwa
  | Yanta
  | Ure

  | Halla
  | Osse
  | Telco
  | Ara

type t =
  { tengwa : tengwa
  ; tehta_above : tehta option
  ; tehta_below : tehta option
  }

val build
  : tengwa -> tehta option -> tehta option -> t