; SPDX-FileCopyrightText: 2023 Jummit
;
; SPDX-License-Identifier: GPL-3.0-or-later

(fn slide [entities]
  (each [_ entity (ipairs entities)]
    (case entity
      {:sliding {:x sliding-x} : x}
      (set entity.x (+ x sliding-x))
      {:sliding {:y sliding-y} : y}
      (set entity.y (+ y sliding-y)))))

{: slide}