Mercurial > vba-clojure

view clojure/com/aurellem/gb/text_speed.clj @ 347:ff65ee0944fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more progess: now rom.org tangles into hxc.clj; i'll be subdividing the code blocks as I write more.
author Dylan Holmes <ocsenave@gmail.com>
date Sun, 08 Apr 2012 06:13:39 -0500
parents 0587f266a735
children
line wrap: on
line source
     1 (ns com.aurellem.gb.text-speed



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



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



     4 



     5 (def text-speed-address 0xD354)



     6 



     7 (def text-speed->code



     8   {:slow 69



     9    :mid 67



    10    :fast 65



    11    :ultra 64



    12    })



    13 



    14 (def code->text-speed



    15   (zipmap (vals text-speed->code)



    16           (keys text-speed->code)))



    17   



    18 (defn read-text-speed



    19   ([^SaveState state]



    20      (code->text-speed (aget (memory state)



    21                              text-speed-address)))



    22   ([] (read-text-speed @current-state)))



    23 



    24 (defn set-text-speed



    25   ([^SaveState state new-speed]



    26      (set-memory 



    27       state 



    28       text-speed-address



    29       (text-speed->code new-speed new-speed)))



    30   ([new-speed] (set-text-speed @current-state new-speed)))