                stop-duration-s]]
      [start stop])))
 
-(defn treatment-times 
+(defn treatment-times
   ([] (treatment-times (typical-treatment-time-range)))
   ([start-treatment-time-range]
    (let [[start-0 stop-0] start-treatment-time-range

(ns test-utils.sandbox
  (:require [test-utils.core :as tuc]
            [test-utils.word-source :as ws]))

;; Stuff I'm trying out


                    [top bottom]))]
    (iterate next-fn extent-0)))

(defn typical-inter-well-distance [plot-angle]
  (let [euclidean-distance (tuc/draw-normal 874 37)
        x-distance (* euclidean-distance (Math/cos (* (/ (+ plot-angle 90) 180) #?(:cljs Math.PI))))
        y-distance (* euclidean-distance (Math/sin (* (/ (+ plot-angle 90) 180) #?(:cljs Math.PI))))]
