Add deterministic debug logging to fused pipeline
This commit is contained in:
38
test_gpu_effects.sexp
Normal file
38
test_gpu_effects.sexp
Normal file
@@ -0,0 +1,38 @@
|
|||||||
|
;; GPU Effects Performance Test
|
||||||
|
;; Tests rotation, zoom, hue-shift, ripple
|
||||||
|
|
||||||
|
(stream "gpu_effects_test"
|
||||||
|
:fps 30
|
||||||
|
:width 1920
|
||||||
|
:height 1080
|
||||||
|
:seed 42
|
||||||
|
|
||||||
|
;; Load primitives
|
||||||
|
(require-primitives "geometry")
|
||||||
|
(require-primitives "core")
|
||||||
|
(require-primitives "math")
|
||||||
|
(require-primitives "image")
|
||||||
|
(require-primitives "color_ops")
|
||||||
|
|
||||||
|
;; Frame pipeline - test GPU effects
|
||||||
|
(frame
|
||||||
|
(let [;; Create a base gradient 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)
|
||||||
|
|
||||||
|
;; Apply rotation (this is the main GPU bottleneck we optimized)
|
||||||
|
angle (* t 30)
|
||||||
|
rotated (geometry:rotate base angle)
|
||||||
|
|
||||||
|
;; Apply hue shift
|
||||||
|
hue-shift (* 180 (math:sin (* t 0.5)))
|
||||||
|
hued (color_ops:hue-shift rotated hue-shift)
|
||||||
|
|
||||||
|
;; Apply brightness based on time
|
||||||
|
brightness (+ 0.8 (* 0.4 (math:sin (* t 2))))
|
||||||
|
bright (color_ops:brightness hued brightness)]
|
||||||
|
|
||||||
|
bright)))
|
||||||
Reference in New Issue
Block a user