Spelling error :-(

This commit is contained in:
Simon Brooke 2014-07-25 09:57:04 +01:00
parent bdd707c4fa
commit 4949e30f69

View file

@ -85,11 +85,11 @@
;; bizarrely, the collage load-util is working for me, but the imagez version isn't.
(let [heightmap (filter-image (grayscale)(load-image imagepath))]
(map-world
(map-world world transform-altitude (list heigtmap))
(map-world world transform-altitude (list heightmap))
tag-gradient)))
([imagepath]
(let [heightmap (filter-image (grayscale)(load-image imagepath))
world (make-world (.getWidth heightmap) (.getHeight heightmap))]
(map-world
(map-world world transform-altitude (list heigtmap))
(map-world world transform-altitude (list heightmap))
tag-gradient))))