Mercurial > vba-clojure

view clojure/com/aurellem/gb/rival_name.clj @ 513:3dbb863eb801

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
accuracy of displayed image is much improved, but there the palettes are still messed up.
author Robert McIntyre <rlm@mit.edu>
date Fri, 22 Jun 2012 18:58:47 -0500
parents 0587f266a735
children
line wrap: on
line source
     1 (ns com.aurellem.gb.rival-name



     2   (:use (com.aurellem.gb gb-driver util characters))



     3   (:import [com.aurellem.gb.gb_driver SaveState]))



     4 



     5 



     6 (def rival-name-start-address 0xD349)



     7 



     8 (def rival-name-width 12)



     9 



    10 (defn read-rival-name



    11   ([^SaveState state]



    12      (read-name (subvec (vec (memory state))



    13                         rival-name-start-address



    14                         (+ rival-name-start-address



    15                            rival-name-width))))



    16   ([] (read-rival-name @current-state)))



    17 



    18 (defn set-rival-name



    19   ([^SaveState state new-name]



    20      (assert (<= (count new-name) 10))



    21      (let [codes (str->character-codes new-name)]



    22        (set-memory-range state



    23                          rival-name-start-address



    24                          (concat codes [end-of-name-sentinel]))))



    25   ([new-name] (set-rival-name @current-state new-name)))



    26      



    27