   (mk-anim-fn 0.1 [:bub0 :bub1 :bub2 :bub3] ))
 
 
-
-(defmulti update-view! (fn [k v] k))
-
-(defmethod update-view! :dims [k v]
-  )
-
-(defmethod update-view! :zoom [k v]
-  )
-
-
 #_({:start-velocity 10
-  :target-velocity 0
-  :start-time 10
-  :target-time 100
-  })
+    :target-velocity 0
+    :start-time 10
+    :target-time 100
+    })
 
 
 (defn main []

    (v3/to-vec)
    (mapv cos-01)))

(when @first-time?
  (do
    (swap! first-time? not)
    (->
      (fn [dt]
        (swap! g-time #(+ dt %))
        (do
          ; (rp/clear! rend (funny-col @g-time))
          (put! time-chan dt)))
      (animate))))


(defn dump->> [s v]
  (println (str s " : " v))

            (kb-update! kb-handler)

            (let [dt (<! in-chan)
                  t @g-time 
                  t-secs (/ t 700)
                  c-t (* t 1.5)
                  scale (vec2 (:scale @game-view) (:scale @game-view))
