1.1 --- a/clojure/com/aurellem/gb/hxc.clj	Tue Apr 10 09:17:47 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/hxc.clj	Wed Apr 11 09:14:51 2012 -0500
     1.3 @@ -926,6 +926,24 @@
     1.4  ;; 0x251A (in indexable mem): image decompression routine seems to begin here.
     1.5  
     1.6  
     1.7 +;; Note: There are two tile tables, one from 8000-8FFF, the other from
     1.8 +;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end. 
     1.9 +(defn print-pixel-letters!
    1.10 +  "The pixel tiles representing letters. Neat!"
    1.11 +  ([] (print-pixel-letters! (read-state "oak-speaks"))) 
    1.12 +  ([state] 
    1.13 +     (map
    1.14 +      (comp
    1.15 +       println
    1.16 +       (partial map #(if (zero? %) \space 0))
    1.17 +       #(if (< (count %) 8)
    1.18 +          (recur (cons 0 %))
    1.19 +          %)
    1.20 +       reverse bit-list)
    1.21 +      
    1.22 +      (take 0xFFF (drop 0x88000 (memory state))))))
    1.23 +
    1.24 +
    1.25  (comment 
    1.26  
    1.27  (def hxc-later