Mercurial > vba-clojure
comparison clojure/com/aurellem/run/image.clj @ 493:783a09c84a28
can now display a single color :)
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Thu, 07 Jun 2012 23:03:05 -0500 |
parents | 716752719a78 |
children | 79606f173658 |
comparison
equal
deleted
inserted
replaced
492:716752719a78 | 493:783a09c84a28 |
---|---|
141 (defn write-data [target data] | 141 (defn write-data [target data] |
142 (flatten | 142 (flatten |
143 [0x3E ;; load literal to A | 143 [0x3E ;; load literal to A |
144 data | 144 data |
145 0xEA ;; load A into target | 145 0xEA ;; load A into target |
146 (disect-bytes-2 target)])) | 146 (reverse (disect-bytes-2 target))])) |
147 | 147 |
148 (defn begin-sequential-palette-write | 148 (defn begin-sequential-palette-write |
149 [palette-num palette-select-address] | 149 [palette-num palette-select-address] |
150 (assert (<= 0 palette-num max-palettes)) | 150 (assert (<= 0 palette-num max-palettes)) |
151 (assert | 151 (assert |