#!perl

# Author: David Seay <http://www.mastercall.com/g-s>
# Modifed by Charles Albrecht to add accidentals & sing "Daisy Bell"
# Further modified by Jim Miner <jfm@winternet.com> to normalize tempo
# Still Further Modifications by Brian McNett <brianmc@telebyte.net>
# (removed messy string concatenation, added quit-if-runtime)
#
# Daisy Bell (A Bicycle Built for Two), Henry Darce, 1892
# v 1.2

use Mac::Speech;

@noteNames    = split("  ", "c  d  e  f  g  a  b  C  D  E  F  G  A  B  C1");
@scalePitches = split(",",  "48,50,52,53,55,57,59,60,62,64,65,67,69,71,72");

for $p (0..$#scalePitches) {
	$pitch{$noteNames[$p]} = $scalePitches[$p];
}

$tempo_factor = .3; # Increase if song is too fast or ends of words are clipped


# NOTE DURATIONS
$dur{e}   = .50 * $tempo_factor;  # eighth note
$dur{de}  = .75 * $tempo_factor;  # dotted eighth note
$dur{'q'} = 1.0 * $tempo_factor;  # quarter note
$dur{dq}  = 1.5 * $tempo_factor;  # dotted quarter note
$dur{h}   = 2.0 * $tempo_factor;  # half note
$dur{he}  = 2.5 * $tempo_factor;  # half note + an eighth
$dur{dh}  = 3.0 * $tempo_factor;  # dotted half note
$dur{dhe} = 3.5 * $tempo_factor;  # dotted half note + an eighth
$dur{w}   = 4.0 * $tempo_factor;  # whole note

# ACCIDENTALS
$acc{'s'} = 1;    # sharp
$acc{n} = 0;      # natural
$acc{f} = -1;     # flat

# FORMAT FOR '$song' = syllable pitch accidental duration
$song = <<SONG;
. c n h, daay A s dh, zeee G n dh, daay D s dh, zeee a s dh,
give c n q, me d n q, your d s q, aaan c n h, sir d s q, doooo a s w,
I'm F n dh, halff A s dh, craay G n dh, zeee D s dh,
alll c n q, for d n q, the d s q, love f n h, of g n q, you f n w,
it g n q, won't g s q, be g n q, uh f n q, sty a s h, lish g n q,
mare f n q, ridge d s w,
I f n q, can't g n h, uh d s q, ford c n h,
uh d s q, care c n q, ridge a s w,
but a s q, you'll d s h, look g n q, sweet f n q, . c n h,
upon d s h, the g n q, seat f n q, of g n e, uh g s e,
buyy a s q, sick g n q, ul d s q, built f n h, for a s q, two d s w
SONG

@song = split(",",$song);
$voice = $Voice{Zarvox};
# some voices won't change pitch
# try 'Zarvox' or 'Pipe Organ' or 'Cellos' or 'Bad News'

$channel = NewSpeechChannel($voice) or die $^E;
for $n (0..$#song) {
	($word,$note,$sharp,$dur) = split(" ",$song[$n]);
	SetSpeechPitch $channel, $pitch{$note} + $acc{$sharp};
	SpeakText $channel, $word or die $^E;
	select(undef, undef, undef, $dur{$dur});
}
DisposeSpeechChannel $channel;