Clojure で wav を再生

某生放送*1を聞きながら、自分でも書いてみたもの
めんどくせーー

(import 'javax.sound.sampled.AudioInputStream)
(import 'javax.sound.sampled.AudioSystem)
(import 'javax.sound.sampled.DataLine)
(import 'javax.sound.sampled.DataLine$Info)
(import 'javax.sound.sampled.SourceDataLine)

(defn play [filepath]
  (let [file (java.io.File. filepath)
        in-stream (AudioSystem/getAudioInputStream file)
        format (.getFormat in-stream)
        info (DataLine$Info. SourceDataLine format)
        #^SourceDataLine line (AudioSystem/getLine info)]
    (doto line (.open format) (.start))
    (let [buf (byte-array 1024)]
      (loop []
        (let [nb (.read in-stream buf 0, (alength buf))]
          (when (>= nb 0) (.write line buf 0 (alength buf)))
          (when (not= nb -1) (recur))))
    (doto line (.drain) (.close)))))

(defn async-play [filepath]
  (future (play filepath)))

async の方はスレッドで再生する

(play "meow.wav")
(async-play "meow.wav")

30回ならしたりするとちょっと楽しかった

 (take 30 (repeatedly #(async-play "buiin.wav")))

参考

http://www.hellohiro.com/sound.htm

*1:http://com.nicovideo.jp/community/co288981