190 lines
7.7 KiB
Scheme
190 lines
7.7 KiB
Scheme
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; ;;
|
|
;;; Centre for Speech Technology Research ;;
|
|
;;; University of Edinburgh, UK ;;
|
|
;;; Copyright (c) 2003, 2004 ;;
|
|
;;; All Rights Reserved. ;;
|
|
;;; ;;
|
|
;;; Permission is hereby granted, free of charge, to use and distribute ;;
|
|
;;; this software and its documentation without restriction, including ;;
|
|
;;; without limitation the rights to use, copy, modify, merge, publish, ;;
|
|
;;; distribute, sublicense, and/or sell copies of this work, and to ;;
|
|
;;; permit persons to whom this work is furnished to do so, subject to ;;
|
|
;;; the following conditions: ;;
|
|
;;; 1. The code must retain the above copyright notice, this list of ;;
|
|
;;; conditions and the following disclaimer. ;;
|
|
;;; 2. Any modifications must be clearly marked as such. ;;
|
|
;;; 3. Original authors' names are not deleted. ;;
|
|
;;; 4. The authors' names are not used to endorse or promote products ;;
|
|
;;; derived from this software without specific prior written ;;
|
|
;;; permission. ;;
|
|
;;; ;;
|
|
;;; THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK ;;
|
|
;;; DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ;;
|
|
;;; ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT ;;
|
|
;;; SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE ;;
|
|
;;; FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES ;;
|
|
;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN ;;
|
|
;;; AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ;;
|
|
;;; ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF ;;
|
|
;;; THIS SOFTWARE. ;;
|
|
;;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;
|
|
;;; unilex phoneset
|
|
;;;
|
|
|
|
|
|
(defPhoneSet
|
|
unilex
|
|
;;; Phone Features
|
|
(;; vowel or consonant
|
|
(vc + -)
|
|
;; vowel length: short long dipthong schwa
|
|
(vlng s l d a 0)
|
|
;; vowel height: high mid low
|
|
(vheight 1 2 3 0)
|
|
;; vowel frontness: front mid back
|
|
(vfront 1 2 3 0)
|
|
;; lip rounding
|
|
(vrnd + - 0)
|
|
;; consonant type: stop fricative affricative nasal liquid approximant
|
|
(ctype s f a n l t r 0)
|
|
;; place of articulation: labial alveolar palatal labio-dental
|
|
;; dental velar glottal
|
|
(cplace l a p b d v g 0)
|
|
;; consonant voicing
|
|
(cvox + - 0)
|
|
)
|
|
(
|
|
(SIL - 0 0 0 0 0 0 -) ;; slience ...
|
|
(# - 0 0 0 0 0 0 -) ;; slience ...
|
|
(B_10 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_20 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_30 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_40 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_50 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_100 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_150 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_200 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_250 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_300 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(B_400 - 0 0 0 0 0 0 -) ;; Pauses
|
|
(IGNORE - 0 0 0 0 0 0 -) ;; Pauses
|
|
|
|
|
|
;; insert the phones here, see examples in
|
|
;; festival/lib/*_phones.scm
|
|
|
|
;(name vc vling vheight vfront vrnd ctype cplace cvox)
|
|
|
|
;;; Rob guesed these values for Edinburgh English
|
|
;;; Not to be taken too seriously.
|
|
|
|
(p - 0 0 0 0 s l -)
|
|
(t - 0 0 0 0 s a -)
|
|
(? - 0 0 0 0 s g +) ;;; ???
|
|
(t^ - 0 0 0 0 t a +) ;;; ???
|
|
(k - 0 0 0 0 s v -)
|
|
(x - 0 0 0 0 f v -)
|
|
(b - 0 0 0 0 s l +)
|
|
(d - 0 0 0 0 s a +)
|
|
(g - 0 0 0 0 s v +)
|
|
(ch - 0 0 0 0 a p -)
|
|
(jh - 0 0 0 0 a p +)
|
|
(s - 0 0 0 0 f a -)
|
|
(z - 0 0 0 0 f a +)
|
|
(sh - 0 0 0 0 f p -)
|
|
(zh - 0 0 0 0 f p +)
|
|
(f - 0 0 0 0 f b -)
|
|
(v - 0 0 0 0 f b +)
|
|
(th - 0 0 0 0 f d -)
|
|
(dh - 0 0 0 0 f d +)
|
|
(h - 0 0 0 0 f 0 -) ;;; ???
|
|
(m - 0 0 0 0 n l +)
|
|
(m! - 0 0 0 0 n l +)
|
|
(n - 0 0 0 0 n a +)
|
|
(n! - 0 0 0 0 n a +)
|
|
(ng - 0 0 0 0 n v +)
|
|
(l - 0 0 0 0 r a +)
|
|
(ll - 0 0 0 0 r a +)
|
|
(lw - 0 0 0 0 r a +)
|
|
(l! - 0 0 0 0 r a +)
|
|
(r - 0 0 0 0 r a +)
|
|
(y - 0 0 0 0 l p +)
|
|
(w - 0 0 0 0 l l +)
|
|
(hw - 0 0 0 0 l l +)
|
|
(e + s 2 1 - 0 0 0)
|
|
(ao + s 3 1 - 0 0 0)
|
|
(a + s 3 1 - 0 0 0)
|
|
(ah + s 3 1 - 0 0 0)
|
|
(oa + s 3 1 - 0 0 0)
|
|
(aa + s 3 1 - 0 0 0)
|
|
(ar + s 3 1 - 0 0 0)
|
|
(eh + s 3 1 - 0 0 0) ;;; ?
|
|
(oul + d 2 3 + 0 0 0) ;;; ?
|
|
(ou + d 2 3 + 0 0 0)
|
|
(ouw + d 2 3 + 0 0 0)
|
|
(oou + l 3 3 + 0 0 0)
|
|
(o + l 3 3 + 0 0 0)
|
|
(au + l 3 3 + 0 0 0)
|
|
(oo + l 3 3 + 0 0 0)
|
|
(or + l 3 3 + 0 0 0)
|
|
(our + d 2 3 + 0 0 0)
|
|
(ii + l 1 1 - 0 0 0)
|
|
(ihr + s 1 1 - 0 0 0)
|
|
(iy + l 1 1 - 0 0 0)
|
|
(i + s 1 1 - 0 0 0)
|
|
(ie + l 1 1 - 0 0 0) ;;; ?
|
|
(iii + s 1 1 - 0 0 0) ;;; was ii;
|
|
(@r + a 2 2 - r a +)
|
|
(@ + a 2 2 - 0 0 0)
|
|
(uh + s 2 2 - 0 0 0)
|
|
(uhr + s 2 2 - 0 0 0)
|
|
(u + l 1 3 + 0 0 0)
|
|
(uu + l 1 3 + 0 0 0)
|
|
(iu + l 1 3 + 0 0 0)
|
|
(uuu + l 1 3 + 0 0 0) ;;; was uu;
|
|
(uw + l 1 3 + 0 0 0) ;;; ???
|
|
(uul + l 1 3 + 0 0 0) ;;; ???
|
|
(ei + d 2 1 - 0 0 0)
|
|
(ee + d 2 1 - 0 0 0)
|
|
(ai + d 3 2 - 0 0 0) ;;; ???
|
|
(ae + d 3 2 - 0 0 0) ;;; ???
|
|
(aer + d 3 2 - 0 0 0) ;;; ???
|
|
(aai + d 3 2 - 0 0 0) ;;; ???
|
|
(oi + d 2 3 + 0 0 0) ;;; ???
|
|
(oir + d 2 3 + 0 0 0) ;;; ???
|
|
(ow + d 3 2 - 0 0 0)
|
|
(owr + d 3 2 - 0 0 0) ;;; ???
|
|
(oow + d 3 2 - 0 0 0) ;;; ???
|
|
(i@ + l 1 1 - 0 0 0) ;;; iy + @ ?
|
|
(ir + s 1 1 - 0 0 0)
|
|
(irr + s 1 1 - 0 0 0) ;;; was ir;
|
|
(iir + s 1 1 - 0 0 0)
|
|
(@@r + a 2 2 - 0 0 0)
|
|
(er + s 2 1 - 0 0 0)
|
|
(eir + s 2 1 - 0 0 0) ;;; ???
|
|
(ur + s 1 3 + 0 0 0) ;;; ???
|
|
(urr + s 1 3 + 0 0 0) ;;; ???
|
|
(iur + s 1 3 + 0 0 0) ;;; ???
|
|
)
|
|
)
|
|
|
|
(PhoneSet.silences '( # SIL))
|
|
|
|
(define (unilex::select_phoneset)
|
|
"(unilex::select_phoneset)
|
|
Set up phone set for unilex"
|
|
(Parameter.set 'PhoneSet 'unilex)
|
|
(PhoneSet.select 'unilex)
|
|
)
|
|
|
|
(define (unilex::reset_phoneset)
|
|
"(unilex::reset_phoneset)
|
|
Reset phone set for unilex."
|
|
t
|
|
)
|
|
|
|
(provide 'unilex_phones)
|