         diff (v2/sub desired-pos current-pos)
         add (v2/div diff scaler)
         new-pos (v2/add current-pos add) ]
-    new-pos))
+    new-pos
+    ))
 
 (defn camera [current-pos desired-pos]
   (->

                  c-t (* t 1.5)
                  scale (vec2 (:scale @game-view) (:scale @game-view))
                  mid-scr (v2/div mid-scr scale)
                  ]

              (doto rend
                (rp/clear! [1 0 1])
                (rp/identity! )
                (rp/scale! scale) 

                (rp/translate! (->
                                 (v2/sub (vec2 0 0) cam-pos) 
                                 (v2/add mid-scr)
                                 ))
                (rp/spr! level-spr (vec2 0 0)))

              (doseq [[img pos uniq] positions]
                (let [final-pos (v2/add pos (funny-vec t-secs uniq))]
                  (rp/spr! spr-printer img final-pos)))

              (rp/spr! spr-printer (get-bub-frm t-secs) pos))

            (let [actions (my-decide kb-handler)
                  mv (get combo-vec actions (vec2 0 0))]
              (recur (v2/add mv pos)
                     (camera cam-pos pos)
                     ) )
            )))))



;; }}}


;; =============================================================================
;; {{{ Main
(def log-chan (chan))
(defonce time-chan (chan (dropping-buffer 10)))
(defonce time-chan-mult (mult time-chan))
