406cc7c0c7
Add S-expression based video effects pipeline with modular effect definitions, constructs, and recipe files. Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
9 lines
260 B
Common Lisp
9 lines
260 B
Common Lisp
;; Rotate effect - rotates image
|
|
;; @param angle float [-360, 360] default 0
|
|
;; @param speed float default 0 - rotation per second
|
|
|
|
(define-effect rotate
|
|
((angle 0) (speed 0))
|
|
(let ((total-angle (+ angle (* speed t))))
|
|
(rotate-img frame total-angle)))
|