Add composable ASCII art with per-cell effects and explicit effect loading

Implements ascii_fx_zone effect that allows applying arbitrary sexp effects
to each character cell via cell_effect lambdas. Each cell is rendered as a
small image that effects can operate on.

Key changes:
- New ascii_fx_zone effect with cell_effect parameter for per-cell transforms
- Zone context (row, col, lum, sat, hue, etc.) available in cell_effect lambdas
- Effects are now loaded explicitly from recipe declarations, not auto-loaded
- Added effects_registry to plan for explicit effect dependency tracking
- Updated effect definition syntax across all sexp effects
- New run_staged.py for executing staged recipes
- Example recipes demonstrating alternating rotation and blur/rgb_split patterns

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>
This commit is contained in:
gilesb
2026-01-19 21:58:05 +00:00
parent 406cc7c0c7
commit 6ceaa37ab6
62 changed files with 2687 additions and 185 deletions

View File

@@ -6,8 +6,10 @@
;; (def segments (beat-alternate beats-data (list video-a video-b)))
(define-construct beat-alternate
"Alternate between sources on each beat"
(analysis sources)
:params (
(analysis :type any :desc "Analysis data with :times")
(sources :type any :desc "List of source nodes to alternate between")
)
;; Body: map over time pairs, return segment descriptors
(let [times (get analysis :times)
pairs (zip-pairs (cons 0 times))

View File

@@ -8,8 +8,13 @@
;; Binding specs {:bind "analyzer" :range [min max]} are resolved to actual bindings
(define-construct cycle-effects-preset
"Cycle through effects from a data preset, with automatic binding resolution"
()
:params (
(preset :type any :desc "List of effect preset definitions")
(videos :type any :desc "List of video source nodes")
(video_infos :type any :desc "List of video info analysis results")
(beats :type any :desc "Beat analysis data with :times")
(beats_per_segment :type int :default 4 :desc "Number of beats per segment")
)
(let [num-effects (len preset)
num-videos (len videos)
;; Extract durations from video-info analysis results

View File

@@ -12,9 +12,12 @@
;; Groups every N analysis times into one segment, calling reducer once per group
(define-construct slice-every-n
"Group every N analysis beats into segments"
(analysis n)
;; 'init' and 'reducer' come from keyword args
:params (
(analysis :type any :desc "Analysis data with :times")
(n :type int :default 4 :desc "Number of beats per segment")
(init :type any :default 0 :desc "Initial accumulator value")
(reducer :type any :desc "Reducer function (fn [acc i start end] ...)")
)
;; Reducer receives: (acc, i, start, end) where start/end are audio beat times
;; Reducer returns: {:source src :effects fx :acc new-acc}
;; Optionally include :start/:end to override (e.g., for wrapping/randomizing)

View File

@@ -15,9 +15,11 @@
;; - :reducer as 'reducer' (the reducer lambda)
(define-construct slice-on
"Iterate over analysis times, calling reducer for each slice"
(analysis)
;; 'init' and 'reducer' come from keyword args
:params (
(analysis :type any :desc "Analysis data with :times")
(init :type any :default 0 :desc "Initial accumulator value")
(reducer :type any :desc "Reducer function (fn [acc i start end] ...)")
)
;; Get times from analysis data
(let [times (get analysis :times)
pairs (zip-pairs (cons 0 times))]