Toot

Written by kandid on 2025-01-27 at 06:37

; GENUARY 2025 DAY 27

; PROMPT: no randomness or noise or trig

; a feedback loop

(ns lv.demo)

(use 'lv.core)

(layout "grid" [ras0 ras1])

(render 0)

; first fill with initial pattern

(hsv :ras0 [ras0]

(repeat-y 6)

(h (+ -0.05 (* 0.1 y)))

(s 0.99)

(v (* 1.5 (+ -0.5 x y)))

)

; and seconds later start the feedback loop

(hsv :ras0 [ras0]

(ty (* 0.0015625 ras0.h))

(tx (* -0.0015625 ras0.v))

(repeat-y (+ 1 (* 0.005 r)))

(hsv ras0.hsv)

)

; #Clojure #genuary27 #genuary2025

=> View attached media

=> More informations about this toot | View the thread | More toots from kandid@chaos.social

Mentions

Tags

=> View clojure tag | View genuary27 tag | View genuary2025 tag