-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathaddfeats.scm
33 lines (31 loc) · 1.49 KB
/
addfeats.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
;;Phrase breaks on words
(define (add_word_feats ttd)
(mapcar (lambda (x)
(set! u (utt.load nil (format nil "festival/utts/%s.utt" (car x))))
(set! wf (load (format nil "prosody_feats/%s.break" (car x)) t))
(mapcar (lambda (w wf)
(item.set_feat w (car wf) (cadr wf)))
(utt.relation.items u 'Word) wf)
(utt.save u (format nil "festival/utts/%s.utt" (car x)))) (load ttd t) ))
;;Prominence on syllables
(define (add_syl_feats ttd)
(mapcar (lambda (x)
(set! u (utt.load nil (format nil "festival/utts/%s.utt" (car x))))
(set! wf (load (format nil "prosody_feats/%s.prom" (car x)) t))
(mapcar (lambda (w wf)
(item.set_feat w (car wf) (cadr wf)))
(utt.relation.items u 'Syllable) wf)
(utt.save u (format nil "festival/utts/%s.utt" (car x)))) (load ttd t) ))
;;Intensity peaks and valleys on phones
(define (add_phone_feats ttd)
(mapcar (lambda (x)
(set! u (utt.load nil (format nil "festival/utts/%s.utt" (car x))))
(set! Ipf (load (format nil "prosody_feats/%s.Ipeak" (car x)) t))
(set! Ivf (load (format nil "prosody_feats/%s.Ivalley" (car x)) t))
(mapcar (lambda (Ip Ipf)
(item.set_feat Ip (car Ipf) (cadr Ipf)))
(utt.relation.items u 'Segment) Ipf)
(mapcar (lambda (Iv Ivf)
(item.set_feat Iv (car Ivf) (cadr Ivf)))
(utt.relation.items u 'Segment) Ivf)
(utt.save u (format nil "festival/utts/%s.utt" (car x)))) (load ttd t) ))