Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (setf (gethash :vowel *phonemes*) (make-phoneme-list '("ɑ" ("a" "a" "a") 160)
- '("ɛ" ("e" "e" "e") 90)
- '("i" ("i" "i" "i") 160)
- '("ɔ" ("o" "o" "o") 150)
- '("ʊ" ("u" "u" "u") 140)
- '("ɑː" ("ae" "ā" "-a") 50)
- '("ɛː" ("ee" "ē" "-e") 70)
- '("iː" ("ii" "ī" "-i") 50)
- '("ɔː" ("ou" "ō" "-o") 100)
- '("ʊː" ("vu" "ō" "-u") 30))
- (gethash :vowel-for-w *phonemes*) (make-phoneme-list '("ɑ" ("a" "a" "a") 160)
- '("ɛ" ("e" "e" "e") 90)
- '("i" ("i" "i" "i") 160)
- '("ɔ" ("o" "o" "o") 150)
- '("ɑː" ("ae" "ā" "-a") 120)
- '("ɛː" ("ee" "ē" "-e") 95)
- '("iː" ("ii" "ī" "-i") 125)
- '("ɔː" ("ou" "ō" "-o") 100))
- (gethash :vowel-for-y *phonemes*) (make-phoneme-list '("ɑ" ("a" "a" "a") 160)
- '("ɛ" ("e" "e" "e") 90)
- '("ɔ" ("o" "o" "o") 210)
- '("ʊ" ("u" "u" "u") 140)
- '("ɑː" ("ae" "ā" "-a") 150)
- '("ɛː" ("ee" "ē" "-e") 150)
- '("ɔː" ("ou" "ō" "-o") 150)
- '("ʊː" ("vu" "ō" "-u") 110)))
Advertisement
Add Comment
Please, Sign In to add comment