13 lines
372 B
Common Lisp
13 lines
372 B
Common Lisp
;; Hue shift effect - rotates hue values
|
|
;; Uses vectorized shift-hsv primitive for fast processing
|
|
|
|
(require-primitives "color_ops")
|
|
|
|
(define-effect hue_shift
|
|
:params (
|
|
(degrees :type int :default 0 :range [0 360])
|
|
(speed :type int :default 0 :desc "rotation per second")
|
|
)
|
|
(let ((shift (+ degrees (* speed t))))
|
|
(color_ops:shift-hsv frame shift 1 1)))
|