14 lines
480 B
Common Lisp
14 lines
480 B
Common Lisp
;; Emboss effect - creates raised/3D appearance
|
|
(require-primitives "blending")
|
|
|
|
(define-effect emboss
|
|
:params (
|
|
(strength :type int :default 1 :range [0.5 3])
|
|
(blend :type float :default 0.3 :range [0 1])
|
|
)
|
|
(let* ((kernel (list (list (- strength) (- strength) 0)
|
|
(list (- strength) 1 strength)
|
|
(list 0 strength strength)))
|
|
(embossed (convolve frame kernel)))
|
|
(blending:blend-images embossed frame blend)))
|