Update for PortAudio.jl architecture and Julia 1+ (#47)
This commit is contained in:
Bill
GitHub
parent
50eb168f9a
commit
89020cafc7
1 changed files with 65 additions and 51 deletions
|
|
@ -1,90 +1,105 @@
|
|||
# Thanks to Jiahao Chen for this great example!
|
||||
using Distributed, PortAudio
|
||||
|
||||
##
|
||||
## NOTE: THIS NEEDS TO BE PORTED OVER TO THE NEW ARCHITECTURE
|
||||
##
|
||||
# Modified from Jiahao Chen's example in the obsolete AudioIO module.
|
||||
# Will use first output device found in system's listing or DEFAULTDEVICE if set below
|
||||
const DEFAULTDEVICE = -1
|
||||
|
||||
using AudioIO
|
||||
import AudioIO.play
|
||||
function paudio()
|
||||
devs = PortAudio.devices()
|
||||
if DEFAULTDEVICE < 0
|
||||
devnum = findfirst(x -> x.maxoutchans > 0, devs)
|
||||
(devnum == nothing) && error("No output device for audio found")
|
||||
else
|
||||
devnum = DEFAULTDEVICE + 1
|
||||
end
|
||||
return ostream = PortAudioStream(devs[devnum].name, 0, 2)
|
||||
end
|
||||
|
||||
type note{S<:Real, T<:Real}
|
||||
play(ostream, sample::Array{Float64,1}) = write(ostream, sample)
|
||||
play(ostr, sample::Array{Int64,1}) = play(ostr, Float64.(sample))
|
||||
|
||||
struct Note{S<:Real, T<:Real}
|
||||
pitch::S
|
||||
duration::T
|
||||
sustained::Bool
|
||||
end
|
||||
|
||||
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))
|
||||
v = Float64[shape(2π*A.pitch*t) for t in timesamples]
|
||||
function play(ostream,
|
||||
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))
|
||||
v = Float64[shape(2π * A.pitch * t) for t in timesamples]
|
||||
if !A.sustained
|
||||
decay_length = int(length(timesamples) * 0.2)
|
||||
v[end-decay_length:end-1] = v[end-decay_length:end-1] .* linspace(1, 0, decay_length)
|
||||
decay_length = div(length(timesamples), 5)
|
||||
v[end-decay_length:end-1] = v[end-decay_length:end-1] .* LinRange(1, 0, decay_length)
|
||||
end
|
||||
play(v)
|
||||
play(ostream, v)
|
||||
sleep(A.duration)
|
||||
end
|
||||
|
||||
function parsevoice(melody::String; tempo=132, beatunit=4, lyrics=nothing)
|
||||
play([0]) #Force AudioIO to initialize
|
||||
lyrics_syllables = lyrics==nothing? nothing : split(lyrics)
|
||||
|
||||
ostream = paudio() # initialize audio for output
|
||||
lyrics_syllables = lyrics == nothing ? nothing : split(lyrics)
|
||||
lyrics_syllables != nothing && (lyrics_syllables[end] *= "\n")
|
||||
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])
|
||||
percent_idx = findfirst('%', line) # Trim comment
|
||||
percent_idx == nothing || (line = line[1:percent_idx-1])
|
||||
for token in split(line)
|
||||
pitch, duration, dotted, sustained =parsetoken(token)
|
||||
duration==nothing && (duration = oldduration)
|
||||
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])
|
||||
if lyrics_syllables != nothing && 1 <= note_idx <= length(lyrics_syllables)
|
||||
# Print the lyrics, omitting hyphens
|
||||
if lyrics_syllables[note_idx][end] == '-'
|
||||
print(join(split(lyrics_syllables[note_idx][:], "")[1:end-1]), "")
|
||||
else
|
||||
print(lyrics_syllables[note_idx], ' ')
|
||||
end
|
||||
end
|
||||
play(note(pitch, (beatunit/duration)*(60/tempo), sustained))
|
||||
play(ostream, Note(pitch, (beatunit / duration) * (60 / tempo), sustained))
|
||||
note_idx += 1
|
||||
end
|
||||
println()
|
||||
end
|
||||
end
|
||||
|
||||
function parsetoken(token::String, Atuning::Real=220)
|
||||
function parsetoken(token, 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)
|
||||
scale_idx = something(findfirst(char, String(collect('a':'g'))), 0) +
|
||||
something(findfirst(char, String(collect('A':'G'))), 0)
|
||||
if scale_idx != 0
|
||||
halfsteps = [12, 14, 3, 5, 7, 8, 10]
|
||||
pitch = Atuning * 2 ^ (halfsteps[scale_idx] / 12)
|
||||
state = :findlength
|
||||
elseif char=='r'
|
||||
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
|
||||
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
|
||||
# Check for "is" and "es" suffixes for sharps and flats
|
||||
if length(lengthbuf) >= 2
|
||||
if lengthbuf[end-1:end] == "is"
|
||||
pitch *= 2^(1/12)
|
||||
pitch *= 2^(1 / 12)
|
||||
lengthbuf = lengthbuf[1:end-2]
|
||||
elseif lengthbuf[end-1:end] == "es"
|
||||
pitch /= 2^(1/12)
|
||||
pitch /= 2^(1 / 12)
|
||||
lengthbuf = lengthbuf[1:end-2]
|
||||
end
|
||||
end
|
||||
|
|
@ -92,8 +107,8 @@ function parsetoken(token::String, Atuning::Real=220)
|
|||
end
|
||||
end
|
||||
#finalize length
|
||||
lengthstr = convert(String, lengthbuf)
|
||||
duration = isempty(lengthstr) ? nothing : parseint(lengthstr)
|
||||
lengthstr = String(lengthbuf)
|
||||
duration = isempty(lengthstr) ? nothing : tryparse(Int, lengthstr)
|
||||
return (pitch, duration, sustain, dotted)
|
||||
end
|
||||
|
||||
|
|
@ -111,17 +126,17 @@ al- le mensch- en wer- den Brü- der wo dein sanf- ter Flü- - gel weilt.
|
|||
|
||||
# And now with harmony!
|
||||
|
||||
soprano = @async parsevoice("""
|
||||
soprano = @spawn 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("""
|
||||
alto = @spawn parsevoice("""
|
||||
a. a. a. a. a. a. a. a~ g8 f#.4 a. a. a. a.~ a a8 a4~ a2
|
||||
""")
|
||||
tenor = @async parsevoice("""
|
||||
tenor = @spawn 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("""
|
||||
bass = @spawn parsevoice("""
|
||||
d. d. d. d. a,. a,. a,. b,~ c8 d. a., a., a., a., a, a8, a,4 a,2
|
||||
""")
|
||||
wait(soprano)
|
||||
|
|
@ -129,19 +144,18 @@ wait(alto)
|
|||
wait(tenor)
|
||||
wait(bass)
|
||||
|
||||
soprano = @async parsevoice("""
|
||||
soprano = @spawn 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("""
|
||||
alto = @spawn parsevoice("""
|
||||
a.4 a. b. c'. c'. b. a. g. f#. f#. g. f#. g.~ g4 f#8 f#~ f#2
|
||||
""")
|
||||
tenor = @async parsevoice("""
|
||||
tenor = @spawn parsevoice("""
|
||||
d.4 d. d. d. d. d. d. d. d. d. c#. d. c#.~ c# d8 d d2
|
||||
""")
|
||||
bass = @async parsevoice("""
|
||||
bass = @spawn 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)
|
||||
|
|
|
|||
Loading…
Reference in a new issue