modified examples

features-tree.scm

@@ -42,80 +42,43 @@
        (tree-to-dot-helper (cdr tree) 1 0)
        "}")))
 
-(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}"
+  '("[vowel]"
     ("[back]"
-      ("[tense]" ("ɔ"))
-      ("{tense}" ("u")))
+     ("[tense]"
+      ("[high]" ("ü"))
+      ("{high}" ("ö")))
+     ("{tense}"
+      ("[high]" ("u"))
+      ("{high}" ("o"))))
     ("{back}"
      ("[tense]"
-       ("[rnd]" ("ø"))
-       ("{rnd}" ("e")))
+      ("[high]" ("y"))
+      ("{high}" ("ë")))
      ("{tense}"
-       ("[rnd]" ("ɛ"))
-       ("{rnd}" ("œ")))))))
+      ("[high]" ("i"))
+      ("{high}" ("e"))))))
+
+(define syntax-tree
+  '("S"
+    ("Obl")
+    ("S'"
+     ("NPerg"
+      ("NP"))
+     ("VP"
+      ("NPdat"
+       ("NP"))
+      ("VP'"
+       ("NPabs"
+        ("NP"
+         ("S")
+         ("NP'"
+          ("Adj")
+          ("N"))))
+       ("V'"
+        ("Mood")
+        ("Tense")
+        ("V")
+        ("Neg")))))))
+
 (display (tree-to-dot vowels))