;; Heavy Fused Pipeline Test
;;
;; Tests with many effects to show the full benefit of kernel fusion

(stream "heavy_fused_test"
  :fps 30
  :width 1920
  :height 1080
  :seed 42

  ;; Load primitives
  (require-primitives "streaming_gpu")
  (require-primitives "image")
  (require-primitives "math")

  ;; Define heavy effects pipeline (5 effects fused into one kernel)
  (def heavy-pipeline
    [{:op "rotate" :angle 0}
     {:op "zoom" :amount 1.0}
     {:op "hue_shift" :degrees 30}
     {:op "ripple" :amplitude 15 :frequency 10 :decay 2 :phase 0 :center_x 960 :center_y 540}
     {:op "brightness" :factor 1.0}])

  ;; Frame pipeline
  (frame
    (let [;; Create base image
          r (+ 0.5 (* 0.5 (math:sin (* t 1))))
          g (+ 0.5 (* 0.5 (math:sin (* t 1.3))))
          b (+ 0.5 (* 0.5 (math:sin (* t 1.7))))
          color [(* r 255) (* g 255) (* b 255)]
          base (image:make-image 1920 1080 color)

          ;; Dynamic parameters
          angle1 (* t 30)
          angle2 (* t -20)
          zoom1 (+ 1.0 (* 0.1 (math:sin (* t 0.5))))
          zoom2 (+ 1.0 (* 0.05 (math:cos (* t 0.7))))
          phase1 (* t 2)
          phase2 (* t 3)]

      ;; 10 effects in ONE kernel call!
      (streaming_gpu:fused-pipeline base heavy-pipeline
        :rotate_angle angle1
        :zoom_amount zoom1
        :ripple_phase phase1))))