10 lines
267 B
Common Lisp
10 lines
267 B
Common Lisp
;; Contrast effect - adjusts image contrast
|
|
;; Uses vectorized adjust primitive for fast processing
|
|
(require-primitives "color_ops")
|
|
|
|
(define-effect contrast
|
|
:params (
|
|
(amount :type int :default 1 :range [0.5 3])
|
|
)
|
|
(color_ops:adjust-contrast frame amount))
|