playing with interesting inner radius cuts

dgtized · Mar 11, 2024 · 0d78ec0 · 0d78ec0
1 parent c91c07e
commit 0d78ec0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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))))