10 lines
276 B
Common Lisp
10 lines
276 B
Common Lisp
;; Saturation effect - adjusts color saturation
|
|
;; Uses vectorized shift-hsv primitive for fast processing
|
|
(require-primitives "color_ops")
|
|
|
|
(define-effect saturation
|
|
:params (
|
|
(amount :type int :default 1 :range [0 3])
|
|
)
|
|
(color_ops:adjust-saturation frame amount))
|