# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1339128678 18000
# Node ID 79606f17365832f03c0a5432726586bf487b1f83
# Parent  783a09c84a28f7456fffe8f5a34407305aef7b62
improbed color display kernel.

diff -r 783a09c84a28 -r 79606f173658 clojure/com/aurellem/run/image.clj
--- a/clojure/com/aurellem/run/image.clj	Thu Jun 07 23:03:05 2012 -0500
+++ b/clojure/com/aurellem/run/image.clj	Thu Jun 07 23:11:18 2012 -0500
@@ -176,23 +176,18 @@
    gameboy rgb."
   [[r g b]]
   ;; construct a kernel that displays a single color
-  (let [palettes (repeat 8 [r g b])
-        kernel-address 0xC000
-        kernel
-        (flatten
-         [0xF3 ;; disable interrupts
-          (frame-metronome)
-          (set-palettes
-           obj-palette-select
-           obj-palette-data
-           palettes)
-          (set-palettes
-           bg-palette-select
-           bg-palette-data
-           palettes)
-          (infinite-loop)])]
+  (let
+      [palettes (repeat 8 [r g b])
+       kernel-address 0xC000
+       kernel
+       [0xF3 ;; disable interrupts
+        (clear-music-registers)
+        (frame-metronome)
+        (set-palettes obj-palette-select obj-palette-data palettes)
+        (set-palettes bg-palette-select bg-palette-data palettes)
+        (infinite-loop)]]
     (-> (set-memory-range (second (music-base))
-                          kernel-address kernel)
+                          kernel-address (flatten kernel))
         (PC! kernel-address))))