From 0d78ec0f18ddedab41e8e77068e4ff3e69d4ccd1 Mon Sep 17 00:00:00 2001
From: Charles Comstock <dgtized@gmail.com>
Date: Mon, 11 Mar 2024 07:03:32 -0500
Subject: [PATCH] playing with interesting inner radius cuts

---
 src/shimmers/sketches/concentric_orbits.cljs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/shimmers/sketches/concentric_orbits.cljs b/src/shimmers/sketches/concentric_orbits.cljs
index 0130e4eaf..cda1600e8 100644
--- a/src/shimmers/sketches/concentric_orbits.cljs
+++ b/src/shimmers/sketches/concentric_orbits.cljs
@@ -17,13 +17,13 @@
   (gv/vec2 (* width x) (* height y)))
 
 (defn max-radius [r n]
-  (min (/ (* r 0.99) (max 2 (Math/sqrt (+ n 3))))))
+  (/ r (+ Math/E (Math/sin (/ eq/TAU n)))))
 
 (defn orbit [{:keys [p r]} n phase]
   (for [t (butlast (tm/norm-range n))]
     (let [radius (max-radius r n)]
       (gc/circle (v/+polar p
-                           (- r (+ radius 1.0))
+                           (- r radius)
                            (+ phase (* eq/TAU t)))
                  radius))))