12 lines
413 B
Common Lisp
12 lines
413 B
Common Lisp
;; Pixelsort effect - glitch art pixel sorting
|
|
|
|
(define-effect pixelsort
|
|
:params (
|
|
(sort_by :type string :default "lightness")
|
|
(threshold_low :type int :default 50 :range [0 255])
|
|
(threshold_high :type int :default 200 :range [0 255])
|
|
(angle :type int :default 0 :range [0 180])
|
|
(reverse :type bool :default false)
|
|
)
|
|
(pixelsort frame sort_by threshold_low threshold_high angle reverse))
|