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

            fps   (format "%0.2f" (* (/ 3600 1000)  dt )) ]


        (dom/div nil
                (om-slider "scale" game-view :scale [1 10] #(msg! :set-scale %))
                (om-slider "time" game-view :time-speed [0 5] #(msg! :set-time-speed %))
                
                )


        #_(html
          [:div
           [:p (str "ROGUEBOW ISLANDS : " msecs " " fps)]
           ])))))

;; }}}


                                :e-func func}} ))


(defn game-component [data owner]
  (reify
    om/IWillMount
