 
 (defn mesh-from-particle
   [p]
-  (let [geometry (THREE.SphereGeometry. 20 20 20)
+  (let [geometry (THREE.SphereGeometry.
+                  particle-radius particle-radius particle-radius)
         material (THREE.MeshNormalMaterial.)
         mesh (THREE.Mesh. geometry material)]
     (set-position! mesh (:pos p))

(ns physim.core
  (:require [THREE :as THREE]))

(def particle-count 10)
(def gravity-multiplier 100)
(def speed-limit 5)
(def initial-speed 0)



(defn collided?
  [a b]
  (< (magnitude (map - a b)) particle-diameter))

(defn handle-collisions!
  []
