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
729 B
Common Lisp
14 lines
729 B
Common Lisp
;; Glitch-Only Preset
|
|
;; Just the aggressive digital artifacts
|
|
|
|
(def glitch-only-preset
|
|
(list
|
|
{:effect "datamosh" :params {:corruption {:bind "bass" :range [0.3 0.9]} :block_size 16}}
|
|
{:effect "pixelsort" :params {:threshold_low 20 :threshold_high 200}}
|
|
{:effect "rgb_split" :params {:offset_x {:bind "bass" :range [10 60]}}}
|
|
{:effect "noise" :params {:amount {:bind "energy" :range [20 100]}}}
|
|
{:effect "scanlines" :params {:spacing 2 :intensity {:bind "bass" :range [0.3 0.8]}}}
|
|
{:effect "pixelate" :params {:block_size {:bind "bass" :range [8 48]}}}
|
|
{:effect "threshold" :params {:level {:bind "energy" :range [80 180]}}}
|
|
{:effect "posterize" :params {:levels {:bind "bass" :range [2 6]}}}))
|