Mercurial > vba-clojure
comparison org/rom.org @ 373:a6f212ae29a3
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 | 8eb674700f15 |
comparison
equal
deleted
inserted
replaced
| 372:998702f021e3 | 373:a6f212ae29a3 |
|---|---|
| 1565 ;; The first instance is for Machines; the second, for stones. | 1565 ;; The first instance is for Machines; the second, for stones. |
| 1566 | 1566 |
| 1567 ;; 0x251A (in indexable mem): image decompression routine seems to begin here. | 1567 ;; 0x251A (in indexable mem): image decompression routine seems to begin here. |
| 1568 | 1568 |
| 1569 | 1569 |
| 1570 ;; Note: There are two tile tables, one from 8000-8FFF, the other from | |
| 1571 ;; 8800-97FF. The latter contains symbols, possibly map tiles(?), with some japanese chars and stuff at the end. | |
| 1572 (defn print-pixel-letters! | |
| 1573 "The pixel tiles representing letters. Neat!" | |
| 1574 ([] (print-pixel-letters! (read-state "oak-speaks"))) | |
| 1575 ([state] | |
| 1576 (map | |
| 1577 (comp | |
| 1578 println | |
| 1579 (partial map #(if (zero? %) \space 0)) | |
| 1580 #(if (< (count %) 8) | |
| 1581 (recur (cons 0 %)) | |
| 1582 %) | |
| 1583 reverse bit-list) | |
| 1584 | |
| 1585 (take 0xFFF (drop 0x8800 (memory state)))))) | |
| 1586 | |
| 1587 | |
| 1570 (comment | 1588 (comment |
| 1571 | 1589 |
| 1572 (def hxc-later | 1590 (def hxc-later |
| 1573 "Running this code produces, e.g. hardcoded names NPCs give | 1591 "Running this code produces, e.g. hardcoded names NPCs give |
| 1574 their pokemon. Will sort through it later." | 1592 their pokemon. Will sort through it later." |