3 ms·
Thanks! Here's the source: (color r2 (vec3 (fbm 8 :f (fn [q] (rotate (q * 2) (pi * sin (t / 100)) + [t 0])) (fn [q] (cos q.x + sin q.y /)) q
by ianthehenry 2y ago
Thanks! Here's the source:
(color r2 (vec3
(fbm 8 :f (fn [q] (rotate (q * 2) (pi * sin (t / 100)) + [t 0]))
(fn [q] (cos q.x + sin q.y /)) q (osc t 30 30 10) | remap+)))
Basically taking the function (1 / (cos(x) + sin(y))) and adding it to itself 8 times, each time scaling and rotating the input a little more (:f).
I'm curious if it looks the same on all GPUs because it kinda relies on floating point precision errors to give it that film-grainy textured effect. And it definitely divides by zero sometimes.