Mercurial > vba-clojure

comparison clojure/com/aurellem/run/image.clj @ 516:7eac27143ab9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cosmetic change. need to investigate why switching pallet and tile assembly does not work.
author Robert McIntyre <rlm@mit.edu>
date Fri, 22 Jun 2012 21:24:44 -0500
parents f68d600b089c
children bc24e4d605e9
comparison
equal deleted inserted replaced
515:f68d600b089c 516:7eac27143ab9
610 (map gb-tile->bytes (:tiles gb-image)))) 610 (map gb-tile->bytes (:tiles gb-image))))
611 (select-LCD-bank 1)] 611 (select-LCD-bank 1)]
612 B (flatten B) 612 B (flatten B)
613 613
614 614
615 C [;; [ ] write image to the screen in terms of tiles 615 C [;; [X] specifiy pallets for each character
616 (write-image 616 (write-image
617 (+ base-address (+ (count A) (count B))) 617 (+ base-address (+ (count A) (count B)))
618 BG-1-address 618 BG-1-address
619 (map second (:data gb-image))) 619 (map second (:data gb-image)))
620 (select-LCD-bank 0)] 620 (select-LCD-bank 0)]
621 621
622 C (flatten C) 622 C (flatten C)
623 623
624 D [;; [ ] specifiy pallets for each character 624 D [;; [X] write image to the screen in terms of tiles
625
626 (write-image 625 (write-image
627 (+ base-address (+ (count A) (count B) (count C))) 626 (+ base-address (+ (count A) (count B) (count C)))
628 BG-1-address 627 BG-1-address
629 (map first (:data gb-image))) 628 (map first (:data gb-image)))
630 629