10 lines
253 B
Common Lisp
10 lines
253 B
Common Lisp
;; Edge detection effect - highlights edges
|
|
(require-primitives "image")
|
|
|
|
(define-effect edge_detect
|
|
:params (
|
|
(low :type int :default 50 :range [10 100])
|
|
(high :type int :default 150 :range [50 300])
|
|
)
|
|
(image:edge-detect frame low high))
|