← Back to branch summary

~zeehio/festcat/ubuntu

« back to all changes in this revision

Viewing changes to src/data/festival/lib/upc_catalan/upc_ca_generic_durdata-central.scm

  • Committer: Sergio Oller
  • Date: 2013-04-13 23:18:32 UTC
  • Revision ID: git-v1:c3a2028c69228ef3f51775384ed3cfc3fb7b5b76
Adapted durdata for different dialects

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/data/festival/lib/upc_catalan/upc_ca_generic_durdata-central.scm
 
1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
2
;;;                                                                       ;;
 
3
;;;                Centre for Speech Technology Research                  ;;
 
4
;;;                     University of Edinburgh, UK                       ;;
 
5
;;;                       Copyright (c) 1996,1997                         ;;
 
6
;;;                        All Rights Reserved.                           ;;
 
7
;;;                                                                       ;;
 
8
;;;  Permission to use, copy, modify, distribute this software and its    ;;
 
9
;;;  documentation for research, educational and individual use only, is  ;;
 
10
;;;  hereby granted without fee, subject to the following conditions:     ;;
 
11
;;;   1. The code must retain the above copyright notice, this list of    ;;
 
12
;;;      conditions and the following disclaimer.                         ;;
 
13
;;;   2. Any modifications must be clearly marked as such.                ;;
 
14
;;;   3. Original authors' names are not deleted.                         ;;
 
15
;;;  This software may not be used for commercial purposes without        ;;
 
16
;;;  specific prior written permission from the authors.                  ;;
 
17
;;;                                                                       ;;
 
18
;;;  THE UNIVERSITY OF EDINBURGH AND THE CONTRIBUTORS TO THIS WORK        ;;
 
19
;;;  DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING      ;;
 
20
;;;  ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT   ;;
 
21
;;;  SHALL THE UNIVERSITY OF EDINBURGH NOR THE CONTRIBUTORS BE LIABLE     ;;
 
22
;;;  FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES    ;;
 
23
;;;  WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN   ;;
 
24
;;;  AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,          ;;
 
25
;;;  ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF       ;;
 
26
;;;  THIS SOFTWARE.                                                       ;;
 
27
;;;                                                                       ;;
 
28
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
29
;;;
 
30
;;;   A hand specified tree to predict zcore durations
 
31
;;;
 
32
;;;
 
33
 
 
34
(let ( (currphoneset (cadr (assoc_string "name" (PhoneSet.description))) ) )
 
35
(PhoneSet.select "upc_catalan-central")
 
36
 
 
37
(set! upc_ca_generic::zdur_tree-central
 
38
 '
 
39
   ((R:SylStructure.parent.R:Syllable.p.syl_break > 1 ) ;; clause initial
 
40
    ((1.5))
 
41
    ((R:SylStructure.parent.syl_break > 1)   ;; clause final
 
42
     ((1.5))
 
43
     ((1.0)))))
 
44
 
 
45
(set! upc_ca_generic::phone_durs-central
 
46
 ;; should be hand specified
 
47
 ;; '(
 
48
 ;;   (pau 0.0 0.250)
 
49
 ;;   ...  ;; the other phones
 
50
 ;;  )
 
51
 ;; But this will fake it until you build a duration model 
 
52
 (mapcar
 
53
  (lambda (p)
 
54
    (list (car p) 0.0 0.100))
 
55
  (cadr (assoc_string 'phones (PhoneSet.description ))))
 
56
)
 
57
 
 
58
(PhoneSet.select currphoneset)
 
59
)
 
60
 
 
61
(provide 'upc_ca_generic_durdata-central)