(defn up [screen]
  "Returns the up vector of the camera in `screen`."
  (let [^Camera camera (u/get-obj screen :camera)]
    (. camera up)))