giles
1a74d811f7
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
27 lines
788 B
Common Lisp
27 lines
788 B
Common Lisp
;; Simple Test - No external assets required
|
|
;; Just generates a color gradient that changes over time
|
|
|
|
(stream "simple_test"
|
|
:fps 30
|
|
:width 720
|
|
:height 720
|
|
:seed 42
|
|
|
|
;; Load standard primitives
|
|
(require-primitives "geometry")
|
|
(require-primitives "core")
|
|
(require-primitives "math")
|
|
(require-primitives "image")
|
|
(require-primitives "color_ops")
|
|
|
|
;; Frame pipeline - animated gradient
|
|
(frame
|
|
(let [;; Time-based color cycling (0-1 range)
|
|
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))))
|
|
;; Convert to 0-255 range and create solid color frame
|
|
color [(* r 255) (* g 255) (* b 255)]
|
|
frame (image:make-image 720 720 color)]
|
|
frame)))
|