# HG changeset patch # User Robert McIntyre # Date 1336407344 18000 # Node ID 3f01560388028462292a9759a1d4f3a9eaf0bba9 # Parent 346b91ae503ad154cbe4eaf0590109f6b769ff04 added image.clj diff -r 346b91ae503a -r 3f0156038802 clojure/com/aurellem/run/image.clj --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/clojure/com/aurellem/run/image.clj Mon May 07 11:15:44 2012 -0500 @@ -0,0 +1,39 @@ +(ns com.aurellem.run.music + (:use (com.aurellem.gb saves gb-driver util constants + items vbm characters money + rlm-assembly)) + (:use (com.aurellem.run util title save-corruption + bootstrap-0 bootstrap-1)) + (:require clojure.string) + (:import [com.aurellem.gb.gb_driver SaveState]) + (:import java.io.File)) + + + + + +;; want to display an image onto the screen. +;; probably will be the six ponies, possibly with scrolling. + +;; probably don't need hi-color mode since the images shuld be +;; simple. + +;; use background tiles? they provide greater color depth than +;; sprites, and can still be scrolled, so why not? + + +;; First of all, RGB colors in an image are not the same as those in a +;; GameBoy, so I need to convert them. Fortunately, this code is +;; already written for me in this C-code from the public domain +;; hi-color converter by Glen Cook, Jeff Frohwein, and Rob Jones. + +;; the code snipped itself is by Brett Bibby and is translated here +;; from C into clojure. + +;; TODO include original code + + +(def intensity [ + +(defn rgb->gb-rb [[r g b]] + \ No newline at end of file