giles
1a74d811f7
All checks were successful
Build and Deploy / build-and-deploy (push) Successful in 2m33s
Merges full history from art-dag/mono.git into the monorepo under the artdag/ directory. Contains: core (DAG engine), l1 (Celery rendering server), l2 (ActivityPub registry), common (shared templates/middleware), client (CLI), test (e2e). Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com> git-subtree-dir: artdag git-subtree-mainline:1a179de547git-subtree-split:4c2e716558
39 lines
1.2 KiB
Common Lisp
39 lines
1.2 KiB
Common Lisp
;; 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 4 effects one by one (INTERPRETED - many kernel launches)
|
|
step1 (geometry_gpu:rotate base angle)
|
|
step2 (color_ops:hue-shift step1 30)
|
|
step3 (geometry_gpu:ripple step2 15 :frequency 10 :decay 2 :time phase)
|
|
step4 (color_ops:brightness step3 1.0)]
|
|
|
|
step4)))
|