10 lines
258 B
Common Lisp
10 lines
258 B
Common Lisp
;; Threshold effect - converts to black and white
|
|
(require-primitives "color_ops")
|
|
|
|
(define-effect threshold
|
|
:params (
|
|
(level :type int :default 128 :range [0 255])
|
|
(invert :type bool :default false)
|
|
)
|
|
(color_ops:threshold frame level invert))
|