julia. play audio in pluto

audio.jl

begin
	import WAV
	import MIMEs
	import URIs

	function load_audio(audio, sr, html_attributes::Pair...)
		buf = IOBuffer()
		WAV.wavwrite(Int.(trunc.(0.99999999999 * audio * 2^23)), buf, Fs=sr, nbits=24)
		mime = MIME("audio/wav")
		src = "data:$( 
			    string(something(mime,""))
			);base64,$(
			    base64encode(take!(buf))
		    )"
		PlutoUI.Resource(src, mime, html_attributes)
	end
end

# usage

begin
	sr = 48000.0
	time = 1
	f = 220
	x = 0.0:1.0/sr:time

	y =  sin.(2 * pi * f * x)
	load_audio(y, sr, :autoplay => true)
end