comparison clojure/com/aurellem/run/choreo.clj @ 535:2de44c6184ee

refactored functionality of play-midi into midi-bytes for reuse.
author Robert McIntyre <rlm@mit.edu>
date Mon, 25 Jun 2012 14:15:38 -0500
parents bad7b7430245
children c2ee7222a3c4
comparison
equal deleted inserted replaced
534:3f2072b8e457 535:2de44c6184ee
7 (:require clojure.string) 7 (:require clojure.string)
8 (:import [com.aurellem.gb.gb_driver SaveState]) 8 (:import [com.aurellem.gb.gb_driver SaveState])
9 (:import java.io.File)) 9 (:import java.io.File))
10 10
11 11
12
13 ;; take over game
14 ;; [X] silence noise
15 ;; [ ] construct writing/playing kernel
16 ;; [ ] play pony song while writing picture-program
17 ;; [ ] run picture program to display pinkie pie mark
18
19
20
21 (defn-memo silence-noise
22 ([] (silence-noise (launch-main-bootstrap-program)))
23 ([script]
24 (->> script
25 (write-RAM 0xFF1A [0 0 0]))))
26
27
28 (defn-memo write-pony-music-data
29 ([] (write-pony-music-data (silence-noise)))
30 ([script]
31 (->> script
32 (write-RAM 0xA000
33
34
35