Mercurial > vba-clojure
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 |