diff options
Diffstat (limited to 'lib/voices/spanish/el_diphone/festvox/spanint.scm')
-rw-r--r-- | lib/voices/spanish/el_diphone/festvox/spanint.scm | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/lib/voices/spanish/el_diphone/festvox/spanint.scm b/lib/voices/spanish/el_diphone/festvox/spanint.scm new file mode 100644 index 0000000..6a1d44d --- /dev/null +++ b/lib/voices/spanish/el_diphone/festvox/spanint.scm @@ -0,0 +1,69 @@ +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; ;; +;;; Centre for Speech Technology Research ;; +;;; University of Edinburgh, UK ;; +;;; Copyright (c) 1996,1997 ;; +;;; 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. ;; +;;; +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;;; +;;; Using the general intonation module add flattened hat accents +;;; of Accented syllables +;;; + +(define (targ_func1 utt syl ) + "funzioi bat" + (let ((start (item.feat syl 'syllable_start)) + (end (item.feat syl 'syllable_end)) + (ulen (item.feat (utt.relation.last utt 'Segment ) 'segment_end)) + nstart nend fustart fuend fuend fstart fend) + (set! nstart (/ start ulen)) + (set! nend (/ end ulen)) + (set! fustart '130) + (set! fuend '110) + (set! fstart (+ (* (- fuend fustart) nstart) fustart)) + (set! fend (+ (* (- fuend fustart) nend) fustart)) + + (cond + ((equal? (item.feat syl "R:Intonation.daughter1.name") "Accented") + (list + (list start fstart) + (list (+ start 0.010) (+ fstart 10 )) + (list (- end 0.010) (+ fstart 8 )) + (list end fend) + )) + ((not (item.next syl)) + (list + (list end fuend))) + ((not (item.prev syl)) + (list + (list start fustart))) + (t + nil)))) + + +(provide 'spanint) |