diff clojure/com/aurellem/run/image.clj @ 486:3f0156038802

added image.clj
author Robert McIntyre <rlm@mit.edu>
date Mon, 07 May 2012 11:15:44 -0500
parents
children 09b3bc0b71b5
line wrap: on
line diff
     1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/clojure/com/aurellem/run/image.clj	Mon May 07 11:15:44 2012 -0500
     1.3 @@ -0,0 +1,39 @@
     1.4 +(ns com.aurellem.run.music
     1.5 +  (:use (com.aurellem.gb saves gb-driver util constants
     1.6 +                         items vbm characters money
     1.7 +                         rlm-assembly))
     1.8 +  (:use (com.aurellem.run util title save-corruption
     1.9 +                          bootstrap-0 bootstrap-1))
    1.10 +  (:require clojure.string)
    1.11 +  (:import [com.aurellem.gb.gb_driver SaveState])
    1.12 +  (:import java.io.File))
    1.13 +
    1.14 +
    1.15 +
    1.16 +
    1.17 +
    1.18 +;; want to display an image onto the screen.
    1.19 +;; probably will be the six ponies, possibly with scrolling. 
    1.20 +
    1.21 +;; probably don't need hi-color mode since the images shuld be
    1.22 +;; simple. 
    1.23 +
    1.24 +;; use background tiles?  they provide greater color depth than
    1.25 +;; sprites, and can still be scrolled, so why not? 
    1.26 +
    1.27 +
    1.28 +;; First of all, RGB colors in an image are not the same as those in a
    1.29 +;; GameBoy, so I need to convert them.  Fortunately, this code is
    1.30 +;; already written for me in this C-code from the public domain
    1.31 +;; hi-color converter by Glen Cook, Jeff Frohwein, and Rob Jones.
    1.32 +
    1.33 +;; the code snipped itself is by Brett Bibby and is translated here
    1.34 +;; from C into clojure.
    1.35 +
    1.36 +;; TODO include original code
    1.37 +
    1.38 +
    1.39 +(def intensity [
    1.40 +
    1.41 +(defn rgb->gb-rb [[r g b]]
    1.42 +  
    1.43 \ No newline at end of file