; Test recipe using user-defined construct
(recipe "construct-test"
  :version "1.0"
  :encoding (:codec "libx264" :crf 22 :preset "fast" :audio-codec "aac" :fps 30)

  (analyzer beats :path "../artdag-analyzers/beats/analyzer.py")
  (construct beat-alternate :path "constructs/beat-alternate.sexp")

  (def video-a (source :path "monday.webm" :description "Video A"))
  (def video-b (source :path "new.webm" :description "Video B"))

  (def audio (-> (source :path "dizzy.mp3" :description "Audio input")
                 (segment :start 0 :duration 10)))

  (def beats-data (-> audio (analyze beats)))

  ;; Use the beat-alternate construct instead of slice-on
  (def segments (beat-alternate beats-data (list video-a video-b)))

  ;; Concatenate with resize normalization
  (def synced-video (-> segments
                        (sequence :resize-mode :fit :priority :width)))

  (mux synced-video audio))