406cc7c0c7
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>
14 lines
714 B
Common Lisp
14 lines
714 B
Common Lisp
;; Retro VHS Preset
|
|
;; 80s/90s video aesthetic
|
|
|
|
(def retro-vhs-preset
|
|
(list
|
|
{:effect "crt" :params {:line_spacing 3 :vignette_amount {:bind "bass" :range [0.2 0.5]}}}
|
|
{:effect "scanlines" :params {:spacing 2 :intensity {:bind "energy" :range [0.3 0.6]}}}
|
|
{:effect "rgb_split" :params {:offset_x {:bind "bass" :range [2 12]}}}
|
|
{:effect "noise" :params {:amount {:bind "bass" :range [5 30]}}}
|
|
{:effect "saturation" :params {:amount {:bind "energy" :range [1.2 1.8]}}}
|
|
{:effect "blur" :params {:radius {:bind "bass" :range [0 3]}}}
|
|
{:effect "contrast" :params {:amount {:bind "energy" :range [1.1 1.4]}}}
|
|
{:effect "film_grain" :params {:intensity {:bind "bass" :range [0.1 0.3]}}}))
|