;; Rotate effect - rotates image

(require-primitives "geometry")

(define-effect rotate
  :params (
    (angle :type int :default 0 :range [-360 360])
    (speed :type int :default 0 :desc "rotation per second")
  )
  (let ((total-angle (+ angle (* speed t))))
    (geometry:rotate-img frame total-angle)))
