 
         (html
           [:div
-                (om-slider "scale" game-view :scale [1 10] #(msg! :set-scale %))
-                (om-slider "time" game-view :time-speed [0 5] #(msg! :set-time-speed %))
+                (om-slider "scale" game-view :scale [1 10] 1000 #(msg! :set-scale %))
+                (om-slider "time" game-view :time-speed [0 5] 100 #(msg! :set-time-speed %))
 
            [:p (str "ROGUEBOW ISLANDS : " msecs " " fps)] ])))))
 

                    :style {:width "100px"}
                    :value value
                    :min min :max max
                    :on-change #(put! ch (js/parseFloat (.. % -target -value)))}]
           [:span value]])))))
;; }}} 

 
;; =============================================================================
;; {{{ Some stuff for the game view
(defn slider [view owner {:keys [e-range e-key e-label e-func e-steps]}]
  (let [[min max] e-range
        e-label (or e-label "NO LABEL!")
        e-steps (or e-steps 30)
        ]
    (reify
      om/IInitState
      (init-state [_]
