Gone back (hopefully temporarily) to using collage load-image function

while I try to sort out the resources issue. This isn't very satisfactory,
as the collage distribution is compiled using Java 7, which is going to
break for some people, and because I'm bloating my code with two separate
image libraries.
This commit is contained in:
Simon Brooke 2014-07-30 12:33:45 +01:00
parent c0d26f7cc7
commit cd99f8fd0b
4 changed files with 15 additions and 9 deletions

View file

@ -251,7 +251,7 @@ do
fi
# if nothing broke so far, clean up...
# rm -rf "${tmp}"
rm -rf "${tmp}"
popd
done

View file

@ -15,4 +15,5 @@
:dependencies [[org.clojure/clojure "1.5.1"]
[org.clojure/math.combinatorics "0.0.7"]
[org.clojure/tools.trace "0.7.8"]
[net.mikera/imagez "0.3.1"]])
[net.mikera/imagez "0.3.1"]
[fivetonine/collage "0.2.0"]])

View file

@ -6,10 +6,10 @@
(ns mw-engine.heightmap
(:import [java.awt.image BufferedImage])
(:use mw-engine.utils
mw-engine.world
[mikera.image.core :only [load-image filter-image get-pixels]]
[mikera.image.filters]
))
mw-engine.world)
(:require [fivetonine.collage.util :as collage]
[mikera.image.core :as imagez :only [filter-image get-pixels]]
[mikera.image.filters :as filters]))
(defn- abs
"Surprisingly, Clojure doesn't seem to have an abs function, or else I've
@ -70,12 +70,16 @@
a world the size of the heightmap will be created.
* `imagepath` a file path or URL which indicates an image file."
([world imagepath]
(let [heightmap (filter-image (grayscale)(load-image imagepath))]
(let [heightmap (imagez/filter-image
(filters/grayscale)
(collage/load-image imagepath))]
(map-world
(map-world world tag-altitude (list heightmap))
tag-gradient)))
([imagepath]
(let [heightmap (filter-image (grayscale)(load-image imagepath))
(let [heightmap (imagez/filter-image
(filters/grayscale)
(collage/load-image imagepath))
world (make-world (.getWidth heightmap) (.getHeight heightmap))]
(map-world
(map-world world tag-altitude (list heightmap))

View file

@ -1,11 +1,12 @@
(ns mw-engine.heightmap-test
(:use clojure.java.io)
(:require [clojure.test :refer :all]
[mw-engine.heightmap :refer :all]
[clojure.math.combinatorics :as combo]))
(deftest apply-heightmap-test
(testing "Heightmap functionality"
(let [world (apply-heightmap "heightmaps/test9x9.png")
(let [world (apply-heightmap (as-file "resources/heightmaps/test9x9.png"))
altitudes (map #(:altitude %) (flatten world))
gradients (map #(:gradient %) (flatten world))]
(is (= (count world) 9) "World should be 9x9")