# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1450036734 0
# Node ID 83ce53f6aac01c70f85e687b3d792bebf70b0c21
# Parent  282dc14e97d4422868a71a65dc0dd3a59c3f04d7
Temperature

diff -r 282dc14e97d4 -r 83ce53f6aac0 src/silt/core.clj
--- a/src/silt/core.clj	Sun Dec 13 19:44:51 2015 +0000
+++ b/src/silt/core.clj	Sun Dec 13 19:58:54 2015 +0000
@@ -160,8 +160,15 @@
       dest)))
 
 
-(defn affect-temp [animal] animal)
-(defn fix-temp [animal] animal)
+(defn affect-temp [animal]
+  (assoc animal :temp (float (/ (Math/abs @world-temp)
+                                (inc (Math/abs (:insulation animal)))))))
+
+(defn fix-temp [{:keys [temp] :as animal}]
+  (-> animal
+    (assoc :temp 0)
+    (update-in [:energy] - (Math/abs temp))))
+
 (defn find-resources [{:keys [loc] :as animal}]
   (let [found (->> loc
                 neighbors