         right? (input/key-down? :d)
         up? (input/key-down? :space)
         down? (input/key-down? :lshift)
-        m-unit-vector (unit-movement right? left? backward? forward? down? up?)
+        m-unit-vector (unit-movement right? left? down? up? backward? forward?)
         orientation (map (fn [d] (Math/toRadians d)) (deref (:orientation player)))
         [pitch yaw roll] orientation
         [mx my mz] (rotate-vector m-unit-vector yaw)

        (GL11/glColor4f 1 0 0 1)
        (.draw sphere player-radius 30 30)))))

(defn draw [player]
  (let [phys-player (:phys player)
        pos (physics/get-position phys-player)]
    (when false (draw-sphere pos))))

    (.addRigidBody world phys-player)
    specs))

(defn unit-movement [right? left? down? up? backward? forward?]
  "Movement vector from origin position, origin rotation"
  (let [x (+ (if right? -1 0) (if left? 1 0))
        y (+ (if down? -1 0) (if up? 1 0))
