Mercurial > vba-clojure

     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)))
author	Dylan Holmes <ocsenave@gmail.com>
date	Sun, 01 Apr 2012 21:47:04 -0500
parents	0587f266a735
children