In [10]:

    

using AudioIO
import AudioIO.play

type note{S<:Real, T<:Real}
	pitch::S
	duration::T
	sustained::Bool
end


    

    




invalid redefinition of constant note
while loading In[10], in expression starting on line 4

In [17]:

    

function play(A::note, samplingfreq::Real=44100, shape::Function=t->0.6sin(t)+0.2sin(2t)+.05*sin(8t))
	timesamples=0:1/samplingfreq:(A.duration*(A.sustained ? 0.98 : 0.9))
    play(Float64[shape(2π*A.pitch*t) for t in timesamples])
	sleep(A.duration)
end


    

    
Out[17]:





play (generic function with 9 methods)

In [18]:

    

play(note(440, 1, true))


    

In [6]:

    

function parsevoice(melody::String; tempo=132, beatunit=4, lyrics=nothing)
	play([0]) #Force AudioIO to initialize
	lyrics_syllables = lyrics==nothing? nothing : split(lyrics)

    note_idx = 1
    oldduration = 4
	for line in split(melody, '\n')
		percent_idx = findfirst(line, '%') #Trim comment
		percent_idx == 0 || (line = line[1:percent_idx-1])
		for token in split(line)
            pitch, duration, dotted, sustained =parsetoken(token)
            duration==nothing && (duration = oldduration)
            oldduration = duration
            dotted && (duration *= 1.5)
            if lyrics_syllables!=nothing && 1<=note_idx<=length(lyrics_syllables) #Print the lyrics, omitting hyphens
                if lyrics_syllables[note_idx][end]=='-'
                    print(lyrics_syllables[note_idx][1:end-1])
                else
                    print(lyrics_syllables[note_idx], ' ')
                end
            end
			play(note(pitch, (beatunit/duration)*(60/tempo), sustained))
			note_idx += 1
		end
		println()
	end
end

function parsetoken(token::String, Atuning::Real=220)
	state = :findpitch
	pitch = 0.0
    sustain = dotted = false
	lengthbuf = Char[]
	for char in token
		if state == :findpitch
			scale_idx = findfirst('a':'g', char) + findfirst('A':'G', char)
            if scale_idx!=0
                const halfsteps = [12, 14, 3, 5, 7, 8, 10]
                pitch = Atuning*2^(halfsteps[scale_idx]/12)
                state = :findlength
            elseif char=='r'
                pitch, state = 0, :findlength
            else
                error("unknown pitch: $char")
            end
		elseif state == :findlength
			if     char == '#' ; pitch *= 2^(1/12) #sharp
			elseif char == 'b' ; pitch /= 2^(1/12) #flat
			elseif char == '\''; pitch *= 2        #higher octave
            elseif char == ',' ; pitch /= 2        #lower octave
            elseif char == '.' ; dotted = true     #dotted note
            elseif char == '~' ; sustain = true    #tied note
			else
				push!(lengthbuf, char)
				#Check for "is" and "es" suffixes for sharps and flats
                if length(lengthbuf) >= 2
					if lengthbuf[end-1:end] == "is"
						pitch *= 2^(1/12)
						lengthbuf = lengthbuf[1:end-2]
					elseif lengthbuf[end-1:end] == "es"
						pitch /= 2^(1/12)
						lengthbuf = lengthbuf[1:end-2]
					end
				end
			end
		end
	end
	#finalize length
	lengthstr = convert(String, lengthbuf)
	duration = isempty(lengthstr) ? nothing : parseint(lengthstr)
    return (pitch, duration, sustain, dotted)
end


    

    
Out[6]:





parsetoken (generic function with 2 methods)

In [7]:

    

parsevoice("""
f# f# g a a g f# e d d e f# f#~ f#8 e e2
f#4 f# g a a g f# e d d e f# e~ e8 d d2
e4 e f# d e f#8~ g8 f#4 d e f#8~ g f#4 e d e a,
f#2 f#4 g a a g f# e d d e f# e~ e8 d8 d2""",
lyrics="""
Freu- de, schö- ner Göt- ter- fun- ken, Toch- ter aus E- li- - si- um!
Wir be- tre- ten feu- er- trun- ken, Himm- li- sche, dein Hei- - lig- thum!
Dei- ne Zau- ber bin den - wie- der, was die - Mo- de streng ge- theilt,
al- le mensch- en wer- den Brü- der wo dein sanf- ter Flü- - gel weilt.
""")


    

    




Freude, schöner Götterfunken, Tochter aus Elisium! 
Wir betreten feuertrunken, Himmlische, dein Heiligthum! 





    




interrupt
while loading In[7], in expression starting on line 1
 in play at In[1]:13
 in play at In[1]:11
 in parsevoice at In[6]:22

In [9]:

    

parsevoice("""
c''8 b' g'4 c''8 b' g'4 g'8 f' e' f'4 e'8 d' e'4 g' g'8~ g'2
c4 b,8 g, c c b, g, r
c''8 b' g'4  c''8 b' g'4 g'8 f' e' f'4 e'8 d' e'4 g' g'8~ g'2
c4 b,8 g, c c b, g, r
a4, a, e8 e f e r8 c c a, c4 c r
""")


    

In [19]:

    

soprano = @async parsevoice("""
f'#. f'#. g'. a'. a'. g'. f'#. e'~ e'8 d.'4 d.' e.' f#'. f#'.~ f#' e'8 e'4~ e'2
""", lyrics="Freu- de, schö- ner Göt- ter- fun- ken, Toch- ter aus E- li- - si- um!"
)
alto = @async parsevoice("""
a. a. a. a.  a.  a. a. a~ g8 f#.4 a.  a.  a. a.~ a a8 a4~ a2
""")
tenor = @async parsevoice("""
d. d. e. f#. f#. e. d. d~ e8 f#.4 f#. a,. d. d.~ d c#8 c#4 c#2
""")
bass = @async parsevoice("""
d. d. d. d. a,. a,. a,. b,~ c8 d. a., a., a., a., a, a8, a,4 a,2
""")
wait(soprano)
wait(alto)
wait(tenor)
wait(bass)

soprano = @async parsevoice("""
f'#.4 f'#. g'. a'. a'. g'. f'#. e'. d'. d'. e'. f'#. e'.~ e' d'8 d'4~ d'2
""", lyrics="Wir be- tre- ten feu- er- trun- ken, Himm- li- sche, dein Hei- - lig- thum!")
alto = @async parsevoice("""
a.4 a. b. c'. c'. b. a. g. f#. f#. g. f#. g.~ g4 f#8 f#~ f#2 
""")
tenor = @async parsevoice("""
d.4 d. d. d. d. d. d. d. d. d. c#. d. c#.~ c# d8 d d2  
""")
bass = @async parsevoice("""
d.4 d. d. d. a,. a,. a,. a., a., a., a., a., a.,~ a, a,8 d, d,2
""")

wait(soprano)
wait(alto)
wait(tenor)
wait(bass)


    

    




Freude, schöner Götterfunken, Tochter aus Elisium! 







Wir betreten feuertrunken, Himmlische, dein Heiligthum! 

In [ ]:

    

3