fixes issue where ego disappears.

This commit is contained in:
2015-04-17 08:39:35 -07:00
parent adbdd2ee1d
commit e6dc4a9382
3 changed files with 6 additions and 3 deletions

View File

@@ -77,6 +77,8 @@
:x x :y y
:scale-x 4
:scale-y 4
:origin-x 0
:origin-y 0
:item item
:box (zone/box (- offset-x padding) (- offset-y padding) (+ offset-x item-width padding) (+ offset-y item-width padding))))))

View File

@@ -690,8 +690,7 @@
(doseq [e (sort-by :baseline all-entities)]
(if (:parallax e)
(render-parallax screen e)
(render! screen [e])))
(render! screen [e])))
entities)))

View File

@@ -83,7 +83,9 @@
(pixmap! :get-pixel x (- 240 y))
color
(.r))]
(+ (* percent-complete (- maximum-size minimum-size)) minimum-size)))))
(if (< y 0)
maximum-size
(+ (* percent-complete (- maximum-size minimum-size)) minimum-size))))))
(defn dist [x1 y1 x2 y2 & {:keys [y-sign x-sign]}]
(let [y-sign (or y-sign 1.0)