rlm@486: (ns com.aurellem.run.music
rlm@486:   (:use (com.aurellem.gb saves gb-driver util constants
rlm@486:                          items vbm characters money
rlm@486:                          rlm-assembly))
rlm@486:   (:use (com.aurellem.run util title save-corruption
rlm@486:                           bootstrap-0 bootstrap-1))
rlm@486:   (:require clojure.string)
rlm@486:   (:import [com.aurellem.gb.gb_driver SaveState])
rlm@486:   (:import java.io.File))
rlm@486: 
rlm@486: 
rlm@486: 
rlm@486: 
rlm@486: 
rlm@486: ;; want to display an image onto the screen.
rlm@486: ;; probably will be the six ponies, possibly with scrolling. 
rlm@486: 
rlm@486: ;; probably don't need hi-color mode since the images shuld be
rlm@486: ;; simple. 
rlm@486: 
rlm@486: ;; use background tiles?  they provide greater color depth than
rlm@486: ;; sprites, and can still be scrolled, so why not? 
rlm@486: 
rlm@486: 
rlm@486: ;; First of all, RGB colors in an image are not the same as those in a
rlm@486: ;; GameBoy, so I need to convert them.  Fortunately, this code is
rlm@486: ;; already written for me in this C-code from the public domain
rlm@486: ;; hi-color converter by Glen Cook, Jeff Frohwein, and Rob Jones.
rlm@486: 
rlm@486: ;; the code snipped itself is by Brett Bibby and is translated here
rlm@486: ;; from C into clojure.
rlm@486: 
rlm@486: ;; TODO include original code
rlm@486: 
rlm@486: 
rlm@486: (def intensity [
rlm@486: 
rlm@486: (defn rgb->gb-rb [[r g b]]
rlm@486: