Add S-expression based video effects pipeline with modular effect definitions, constructs, and recipe files. Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
22 lines
848 B
Common Lisp
22 lines
848 B
Common Lisp
;; Neon glow effect - glowing edges on dark background
|
|
;; Usage: python3 plan.py effects/neon_glow.sexp -p glow_radius=20 -p glow_intensity=2 | python3 execute.py - -d . -o output.mp4
|
|
;;
|
|
;; Parameters:
|
|
;; glow_radius: glow spread in pixels (5 to 50, default: 20)
|
|
;; glow_intensity: glow brightness (0.5 to 5, default: 2)
|
|
|
|
(recipe "neon_glow"
|
|
:version "1.0"
|
|
:encoding (:codec "libx264" :crf 20 :preset "medium" :audio-codec "aac" :fps 30)
|
|
|
|
(effect neon_glow :path "sexp_effects/effects/neon_glow.sexp")
|
|
|
|
;; Default parameters (overridden by -p glow_radius=N -p glow_intensity=N)
|
|
(def glow_radius 20)
|
|
(def glow_intensity 2)
|
|
|
|
(def video (source :path "monday.webm"))
|
|
(def clip (-> video (segment :start 0 :duration 10)))
|
|
(def result (-> clip (effect neon_glow :glow_radius glow_radius :glow_intensity glow_intensity)))
|
|
result)
|