 ;; using the initial paint amount as the stroke-weight. This allows
 ;; for a smooth decrease in the width of the path.
 
+(defn mass-to-weight [mass]
+  (* 50 mass))
+
 (defn draw-path [path]
   (doall
    (map-2 (fn [[position1 _ mass] [position2 _ _]]
-            (q/stroke-weight mass)
+            (q/stroke-weight (mass-to-weight mass))
             (apply q/line (concat (position-to-pixel position1) (position-to-pixel position2))))
           path)))
 

;; points. Also defined is a minimum force for us to consider whether
;; some paint could splatter.

(def min-impact-force-for-splatter 50)

(defn does-impact-splatter? [mass velocity]
  (and (> (impact-force mass velocity) min-impact-force-for-splatter)


(defn draw-splats [path]
  (doall (map (fn [[position _ mass]]
                (q/stroke-weight (mass-to-weight mass))
                (apply q/point (position-to-pixel position)))
              path)))

