Mercurial > vba-clojure

view clojure/com/aurellem/run/sound.clj @ 530:8d3177d19d5f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added full recording function.
author Robert McIntyre <rlm@mit.edu>
date Sun, 24 Jun 2012 16:47:18 -0500
parents 2620d6318e8d
children
line wrap: on
line source
     1 (ns com.aurellem.run.sound



     2   (:use (com.aurellem.gb saves gb-driver util constants



     3                          items vbm characters money



     4                          rlm-assembly))



     5   (:use (com.aurellem.run util music title save-corruption



     6                           bootstrap-0 bootstrap-1))



     7   (:require clojure.string)



     8   (:import [com.aurellem.gb.gb_driver SaveState])



     9   (:import java.awt.image.BufferedImage)



    10   (:import java.io.File)



    11   (:import com.aurellem.gb.WaveWriter))



    12 



    13 (defn sound-test []



    14   (step (mid-game))



    15   (println (frequencies (sound-bytes)))



    16   (run-moves @current-state (repeat 10 []))



    17   (println (frequencies (sound-bytes))))



    18 



    19 (defn record-sound!



    20   ([^File target-file state n]



    21      (set-state! state)



    22      (let [writer (WaveWriter. target-file)]



    23        (dorun



    24         (for [y (range n)]



    25           (do (step)



    26               (.process writer



    27                         (sound-bytes)



    28                         gb-sound-format))))



    29        (.cleanup writer)



    30        (Thread/sleep 1000)



    31        (clojure.java.shell/sh



    32         "aplay"



    33         (.getCanonicalPath target-file))))



    34   ([n] (record-sound!



    35         (File. "/home/r/proj/vba-clojure/sounds/test-sound.wav")



    36         (play-midi pony-csv) n)))



    37 



    38 (defn gen-pony! []



    39   (record-sound!



    40    (File. user-home "proj/vba-clojure/sounds/pony.wav")



    41    (play-midi pony-csv)



    42    1800))



    43 



    44 (defn gen-regret! []



    45   (record-sound!



    46    (File. user-home "proj/vba-clojure/sounds/regret.wav")



    47    (play-midi regret-csv)



    48    3380))



    49 



    50 (defn gen-mother! []



    51   (record-sound!



    52    (File. user-home "proj/vba-clojure/sounds/mother.wav")



    53    (play-midi mother-csv)



    54    2200))



    55 



    56