Mercurial > vba-clojure

changeset 373:a6f212ae29a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Found some tile sprites for printable characters. Neato.
author Dylan Holmes <ocsenave@gmail.com>
date Mon, 09 Apr 2012 03:46:04 -0500
parents 998702f021e3
children 143a2dfb3177
files org/rom.org save-states/oak-speaks.sav
diffstat 2 files changed, 18 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
     1.1 --- a/org/rom.org	Mon Apr 09 01:44:19 2012 -0500
     1.2 +++ b/org/rom.org	Mon Apr 09 03:46:04 2012 -0500
     1.3 @@ -1567,6 +1567,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 0x8800 (memory state))))))
    1.23 +
    1.24 +
    1.25  (comment 
    1.26  
    1.27  (def hxc-later

     2.1 Binary file save-states/oak-speaks.sav has changed