14 lines
530 B
Common Lisp
14 lines
530 B
Common Lisp
;; Color adjustment effect - replaces TRANSFORM node
|
|
(require-primitives "color_ops")
|
|
|
|
(define-effect color-adjust
|
|
:params (
|
|
(brightness :type int :default 0 :range [-255 255] :desc "Brightness adjustment")
|
|
(contrast :type float :default 1 :range [0 3] :desc "Contrast multiplier")
|
|
(saturation :type float :default 1 :range [0 2] :desc "Saturation multiplier")
|
|
)
|
|
(-> frame
|
|
(color_ops:adjust-brightness brightness)
|
|
(color_ops:adjust-contrast contrast)
|
|
(color_ops:adjust-saturation saturation)))
|