Wed May 24 14:17:45 CEST 2006 pdm@brailcom.org
authorpdm <pdm>
Wed, 24 May 2006 12:44:35 +0000 (12:44 +0000)
committerpdm <pdm>
Wed, 24 May 2006 12:44:35 +0000 (12:44 +0000)
  * Ensure the last intonation value extension doesn't underrun to the previous segment

czech.scm

index 04329ba..2fa57f8 100644 (file)
--- a/czech.scm
+++ b/czech.scm
             (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)))
+        (let ((last-time (car (car times-values)))
+              (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)
+          (set! times-values (cons (list (max (- (item.feat last-seg 'end) 0.01)
+                                              (+ last-time 0.001))
                                          last-value)
                                    times-values))))
     (reverse times-values)))