Re: [MacPerl] Chorus

[Greenblatt & Seay <g-s@navix.net>]

Cool! There's an ancient tradition in many cultures of teaching a new
melody to instrumentalists by first teaching them to sing the tune using
non-sense syllables. Once the tune is in the student's head it is easier to
learn to play it.

Some of the Mac's built-in voices don't seem to allow control over pitch.
Zarvox, Pipe Organ, Cellos, Bad News, and Trinoids (if you don't mind the
built-in harmonies) seem to be the best singing voices.

My wife, the music major, heard me trying out your chorus program and noted
that the built-in voices 'Bad News' and 'Cellos', which were designed to
sing text to familiar melodies, have incorrect notes. Sometimes education
can be a curse.

Is there a more efficient technique of generating a list of the Mac's
built-in voices than the code at the bottom of this message?

David Seay
http://www.mastercall.com/g-s/


#!perl

# "Voice Lister" v1.0
# by David Seay <g-s@navix.net>
#
use Mac::Speech;

#!perl

# Prints alphabetized list of Mac's voices.

$count = CountVoices();
for $i (1..$count) {
 	$voice = GetIndVoice($count - $i + 1);
 	$desc  = ${GetVoiceDescription($voice)};
 	$nameLength = ord(substr($desc,16,1));
 	$name = substr($desc,17,$nameLength);
 	print "$name\n";
}





===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org