(defmethod update ((object scene))
  "Update the physics of the scene"
  (with-slots (accumulator dt) object
    (loop while (>= accumulator dt)
          do (map-nodes #'update)
             (decf accumulator dt))))