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