fixes issue where ego disappears.

2015-04-17 08:39:35 -07:00
parent adbdd2ee1d
commit e6dc4a9382
3 changed files with 6 additions and 3 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -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)