           n (int (q/map-range size
                               200 500
                               15 25))]
-     {:points (generate-points n size)
-      :running? true
-      :dragging nil
-      :n n
-      :size size})))
+      {:points (generate-points n size)
+       :running? true
+       :dragging nil
+       :n n
+       :size size})))
 
 ;;;
 ;;; Draw
 ;;;
 
 (defn draw-point [p]
-  (q/point (:x p) (:y p)))
+  (do
+    (q/stroke (:r p) (:g p) (:b p))
+    (q/point (:x p) (:y p))))
 
 (defn find-points
   "Finds all points in 10-pixel approximity of point (x,y)."



(defn- setup []
  ; ; Set frame rate to 30 frames per second.
  ; (q/frame-rate 30)
  ; ; Set color mode to HSB (HSV) instead of default RGB.
  ; (q/color-mode :hsb)
  ; setup function returns initial state. It contains
  ; circle color and position.
  {
    :running? false
   })

; (defn- setup
;   "Standard quil function which sets up a sketch and returns initial state."
;   []
;   (q/frame-rate 30)
;   (let [size (q/width)
;         n (int (q/map-range size
;                             200 500
;                             15 25))]
;    {:points (generate-points n size)
;     :running? true
;     :dragging nil
;     :n n
;     :size size}))

;;;
;;; Update logic

;;; Constants
;;;

(def speed 5)
(def eps 1)

;;;
