;; 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)))