59 lines
3.4 KiB
Scheme
59 lines
3.4 KiB
Scheme
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; ;;;
|
|
;;; Language Technologies Institute ;;;
|
|
;;; Carnegie Mellon University ;;;
|
|
;;; Copyright (c) 2004 ;;;
|
|
;;; 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. ;;;
|
|
;;; ;;;
|
|
;;; CARNEGIE MELLON UNIVERSITY 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 CARNEGIE MELLON UNIVERSITY 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. ;;;
|
|
;;; ;;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;;; Some test the basic arctic/hts voices
|
|
|
|
(format t "cmu_us_awb_arctic_hts\n")
|
|
(voice_cmu_us_awb_arctic_hts)
|
|
(set! utt1 (SynthText "A whole joy was reaping, but they've gone south, you should fetch azure mike."))
|
|
(utt.save.segs utt1 "-")
|
|
(format t "%l\n" (wave.info (utt.wave utt1)))
|
|
|
|
(format t "cmu_us_bdl_arctic_hts\n")
|
|
(voice_cmu_us_bdl_arctic_hts)
|
|
(set! utt1 (SynthText "A whole joy was reaping, but they've gone south, you should fetch azure mike."))
|
|
(utt.save.segs utt1 "-")
|
|
(format t "%l\n" (wave.info (utt.wave utt1)))
|
|
|
|
(format t "cmu_us_jmk_arctic_hts\n")
|
|
(voice_cmu_us_jmk_arctic_hts)
|
|
(set! utt1 (SynthText "A whole joy was reaping, but they've gone south, you should fetch azure mike."))
|
|
(utt.save.segs utt1 "-")
|
|
(format t "%l\n" (wave.info (utt.wave utt1)))
|
|
|
|
(format t "cmu_us_slt_arctic_hts\n")
|
|
(voice_cmu_us_slt_arctic_hts)
|
|
(set! utt1 (SynthText "A whole joy was reaping, but they've gone south, you should fetch azure mike."))
|
|
(utt.save.segs utt1 "-")
|
|
(format t "%l\n" (wave.info (utt.wave utt1)))
|
|
|