 
 (defn collided?
   [a b]
-  (< (magnitude (map - a b)) 20))
+  (< (magnitude (map - a b)) particle-diameter))
 
 (defn handle-collisions!
   []

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

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


                  dir (map #(/ % mag) dir)]
              (map + a
                   (if (> mag 0)
                     (map #(* % (/ gravity-multiplier
                                   (* mag mag))) dir)
                     [0 0 0]))))
          [0 0 0]
          all))
