     (render [_]
             (dom/div #js {:style (player-style player)} "player"))))
 
-;; width: 50px;
-;; height: 50px;
-;; -webkit-border-radius: 25px;
-;; -moz-border-radius: 25px;
-;; border-radius: 25px;
-;; background-color:orange;
 
 ;; game view/wrapper
 ;; ----------------------------------------------------------------------------

            (dom/div nil
                     (dom/p nil (controller-keys (:controller state)))))))

;; screen coordinates
;; ----------------------------------------------------------------------------


     :-moz-border-radius radius
     :border-radius radius}))

(defn player-x
  "on-screen x position"
  [radius]
  (- (/ (screen-width) 2) (* radius physics-to-pixel)))

(defn ps-position [x y radius]
  {:bottom (js/Math.round (* physics-to-pixel y))
   :left (js/Math.round (player-x radius))})

(defn player-style
  "construct a style string from a js array. e.g position = #js [0, 9.8]"
  [player]
  (clj->js (merge {:position "absolute"
                  :background-color "orange"}
                 (ps-size (:radius player))
                 (ps-position (:x player) (:y player) (:radius player)))))


(defn player-view [player owner]
