46 lines
1.3 KiB
Common Lisp
46 lines
1.3 KiB
Common Lisp
;; 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))))
|