From 77cd3005a7129fa1ba52966fa0f8e68362d5427f Mon Sep 17 00:00:00 2001
From: Phuntsok Drak-pa <phundrak@phundrak.fr>
Date: Wed, 17 Jul 2019 13:28:08 +0200
Subject: [PATCH] added back example

---
 phonetics-feature-tree.scm | 78 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 77 insertions(+), 1 deletion(-)

diff --git a/phonetics-feature-tree.scm b/phonetics-feature-tree.scm
index 8bffeed..7c183d8 100644
--- a/phonetics-feature-tree.scm
+++ b/phonetics-feature-tree.scm
@@ -42,4 +42,80 @@
        (tree-to-dot-helper (cdr tree) 1 0)
        "}")))
 
-; (display (tree-to-dot vowel-tree))
+(define consonants
+  '("consonants"
+    ("[stop]"
+     ("[fricative]"
+      ("[voice]" ("g͡ʒ"))
+      ("{voice}" ("k͡ʃ")))
+     ("{fricative}"
+      ("[nasal]"
+       ("[clic]" ("ᵑ‖"))
+       ("{clic}"
+        ("[voice]"
+         ("[SG]" ("n̪͡d̪ʰ"))
+         ("{SG}" ("n̪͡d̪")))
+        ("{voice}"
+         ("[SG]" ("n̪͡t̪ʰ"))
+         ("{SG}" ("n̪͡t̪")))))
+      ("{nasal}"
+       ("[voice]"
+        ("[dorsal]"
+         ("[implosive]" ("ɠ"))
+         ("{implosive}"
+          ("[SG]" ("gʰ"))
+          ("{SG}" ("g"))))
+        ("{dorsal}"
+         ("[implosive]" ("ɗ̪"))
+         ("{implosive}"
+          ("[SG]" ("d̪ʰ"))
+          ("{SG}" ("d̪")))))
+       ("{voice}"
+        ("[dorsal]"
+         ("[implosive]" ("ƙ"))
+         ("{implosive}"
+          ("[SG]" ("kʰ"))
+          ("{SG}" ("k"))))
+        ("{dorsal}"
+         ("[implosive]" ("ƭ̪"))
+         ("{implosive}"
+          ("[SG]" ("t̪ʰ"))
+          ("{SG}" ("t̪"))))))))
+    ("{stop}"
+     ("[fricative]"
+      ("[nasal]"
+       ("[voice]" ("n͡ʒ"))
+       ("{voice}" ("n͡ʃ")))
+      ("{nasal}"
+       ("[coronal]"
+        ("[voice]" ("ʒ"))
+        ("{voice}" ("ʃ")))
+       ("{coronal}"
+        ("[dorsal]" ("xʷ"))
+        ("{dorsal}" ("ɸʷ")))))
+     ("{fricative}"
+      ("[cons]"
+       ("[cont]" ("l̪"))
+       ("{cont}"
+        ("[labial]" ("m"))
+        ("{labial}" ("n̪"))))
+      ("{cons}"
+       ("[round]" ("w"))
+       ("{round}" ("j")))))))
+(define vowels
+  '("vowels"
+    ("[low]"
+     ("[nasal]" ("ɑ̃"))
+     ("{nasal}" ("a")))
+    ("{low}"
+     ("[back]"
+      ("[tense]" ("ɔ"))
+      ("{tense}" ("u")))
+     ("{back}"
+      ("[tense]"
+       ("[rnd]" ("ø"))
+       ("{rnd}" ("e")))
+      ("{tense}"
+       ("[rnd]" ("ɛ"))
+       ("{rnd}" ("œ")))))))
+(display (tree-to-dot vowels))