life out create-osc and R into wobble ns for sharing

src/shimmers/math/wobble.cljc

@@ -1,6 +1,8 @@
 (ns shimmers.math.wobble
-  (:require [shimmers.math.deterministic-random :as dr]
-            [shimmers.math.equations :as eq]))
+  (:require
+   [shimmers.math.deterministic-random :as dr]
+   [shimmers.math.equations :as eq]
+   [shimmers.math.vector :as v]))
 
 (defn create
   ([r] (create r (dr/random-tau)))
@@ -29,3 +31,13 @@
 
 (defn cube-tcos [osc p t]
   (eq/cube (tcos osc p t)))
+
+(defn R [f p a s]
+  (v/polar a (* eq/TAU (+ (* s f) p))))
+
+(defn O [f p v d s]
+  (+ v (* d (Math/sin (* eq/TAU (+ (* s f) p))))))
+
+(defn create-osc [f v d]
+  {:f f :v v :d d
+   :fe (fn [p s] (O f p v d s))})

src/shimmers/sketches/display_tree.cljs

@@ -14,7 +14,7 @@
    [shimmers.math.geometry.collisions :as collide]
    [shimmers.math.geometry.triangle :as triangle]
    [shimmers.math.vector :as v]
-   [shimmers.math.wobble :as mw]
+   [shimmers.math.wobble :as mw :refer [create-osc R]]
    [shimmers.sketch :as sketch :include-macros true]
    [thi.ng.geom.circle :as gc]
    [thi.ng.geom.core :as g]
@@ -272,16 +272,6 @@
           (g/scale-size (scale t))
           (qdg/draw)))))
 
-(defn R [f p a s]
-  (v/polar a (* eq/TAU (+ (* s f) p))))
-
-(defn O [f p v d s]
-  (+ v (* d (Math/sin (* eq/TAU (+ (* s f) p))))))
-
-(defn create-osc [f v d]
-  {:f f :v v :d d
-   :fe (fn [p s] (O f p v d s))})
-
 (defn make-spinner [bounds]
   (let [radius (min (g/width bounds) (g/height bounds))
         direction (* (dr/random-sign) (dr/gaussian 0.7 0.06))