giles
1a74d811f7
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 2m33s
Merges full history from art-dag/mono.git into the monorepo under the artdag/ directory. Contains: core (DAG engine), l1 (Celery rendering server), l2 (ActivityPub registry), common (shared templates/middleware), client (CLI), test (e2e). Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com> git-subtree-dir: artdag git-subtree-mainline:1a179de547git-subtree-split:4c2e716558
24 lines
1.0 KiB
Common Lisp
24 lines
1.0 KiB
Common Lisp
;; Neon Glow effect - glowing edge effect
|
|
(require-primitives "image" "blending")
|
|
|
|
(define-effect neon_glow
|
|
:params (
|
|
(edge_low :type int :default 50 :range [10 200])
|
|
(edge_high :type int :default 150 :range [50 300])
|
|
(glow_radius :type int :default 15 :range [1 50])
|
|
(glow_intensity :type int :default 2 :range [0.5 5])
|
|
(background :type float :default 0.3 :range [0 1])
|
|
)
|
|
(let* ((edge-img (image:edge-detect frame edge_low edge_high))
|
|
(glow (image:blur edge-img glow_radius))
|
|
;; Intensify the glow
|
|
(bright-glow (map-pixels glow
|
|
(lambda (x y c)
|
|
(rgb (clamp (* (red c) glow_intensity) 0 255)
|
|
(clamp (* (green c) glow_intensity) 0 255)
|
|
(clamp (* (blue c) glow_intensity) 0 255))))))
|
|
(blending:blend-mode (blending:blend-images frame (make-image (image:width frame) (image:height frame) (list 0 0 0))
|
|
(- 1 background))
|
|
bright-glow
|
|
"screen")))
|