Wed Apr 5 23:03:03 CEST 2006 pdm@brailcom.org
authorpdm <pdm>
Thu, 6 Apr 2006 08:11:02 +0000 (08:11 +0000)
committerpdm <pdm>
Thu, 6 Apr 2006 08:11:02 +0000 (08:11 +0000)
  * Extend the last intonation value to (almost) the end of the utterance
  This is a workaround of a possible Festival bug, where F0 decreases at the end
  of utterance without being ordered to do so.

czech.scm

index 78e25f0..04329ba 100644 (file)
--- a/czech.scm
+++ b/czech.scm
                 (set! times-values (cons (list time value) times-values)))))
             (set! last-seg-end seg-end)
             (set! segments (cdr segments))))))
+    ;; Festival apparently decreases F0 at the end of the utterance, prevent it
+    (if (not (null? times-values))
+        (let ((last-value (cadr (car times-values)))
+              (last-seg (item.relation.daughtern syl 'SylStructure)))
+          (set! times-values (cons (list (- (item.feat last-seg 'end) 0.01)
+                                         last-value)
+                                   times-values))))
     (reverse times-values)))
 
 ;;; Duration