Add heavy pipeline comparison tests
This commit is contained in:
39
test_heavy_interpreted.sexp
Normal file
39
test_heavy_interpreted.sexp
Normal file
@@ -0,0 +1,39 @@
|
||||
;; Heavy Interpreted Pipeline Test
|
||||
;;
|
||||
;; Same effects as test_heavy_fused.sexp but using separate primitive calls
|
||||
|
||||
(stream "heavy_interpreted_test"
|
||||
:fps 30
|
||||
:width 1920
|
||||
:height 1080
|
||||
:seed 42
|
||||
|
||||
;; Load primitives
|
||||
(require-primitives "streaming_gpu")
|
||||
(require-primitives "geometry_gpu")
|
||||
(require-primitives "color_ops")
|
||||
(require-primitives "image")
|
||||
(require-primitives "math")
|
||||
|
||||
;; Frame pipeline - INTERPRETED (separate calls)
|
||||
(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
|
||||
angle (* t 30)
|
||||
zoom (+ 1.0 (* 0.1 (math:sin (* t 0.5))))
|
||||
phase (* t 2)
|
||||
|
||||
;; Apply 5 effects one by one (INTERPRETED - many kernel launches)
|
||||
step1 (geometry_gpu:rotate base angle)
|
||||
step2 (streaming_gpu:gpu-zoom step1 zoom)
|
||||
step3 (color_ops:hue-shift step2 30)
|
||||
step4 (geometry_gpu:ripple step3 15 :frequency 10 :decay 2 :time phase)
|
||||
step5 (color_ops:brightness step4 1.0)]
|
||||
|
||||
step5)))
|
||||
Reference in New Issue
Block a user