       ; mangio un pesce
       (let [squalo-grasso (incrementa-energia animale)]
         (muovi-animale celle
-            rc-pesce squalo-grasso
-            [r c]    nil)
-
-        )
-
+                       rc-pesce squalo-grasso
+                       [r c]    nil))
 
       ; nulla da mangiare
       (let [nuovacella (nuovopunto [r c] (mossa-casuale))]
         (if (cella-vuota? celle nuovacella)
           (muovi-animale celle
-              nuovacella squalo
-              [r c]      nil)
-
+                         nuovacella squalo
+                         [r c]      nil)
           celle)))))
-
-
-
 
 
 

   :GDX  [ 1  1]
})

(defn somma-circolare [pos offset massimo]
  (let [p (+ pos offset)
        m (dec massimo)]

      (swap! app-state update-in [:turn] inc)
      (swap! app-state join-val :n_pesci (:PESCE tipi-celle))
      (swap! app-state join-val :n_squali (:SQUALO tipi-celle))
      (swap! app-state join-val :loop_ms dur))))



