                     [top bottom]))]
     (iterate next-fn extent-0)))
 
-(defn typical-interwell-distance [plot-angle]
+(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))))]

         duration-minute (int (* 60 (- duration-hours duration-hour)))
         duration-seconds (rand-nth (range 60))]
    [start
     [year-0 month-0 day-0 
      (rem (+ hour-0 duration-hour) 24)
      (rem (+ minute-0 duration-minute) 60)
      duration-seconds]]))

         start-duration-h (int start-duration)
         start-duration-min (int (* 60 (- start-duration start-duration-h)))
         start-duration-s (rand-nth (range 60))
         start [start-a start-mo start-d
                (rem (+ start-h start-duration-h) 24)
                (rem (+ start-min start-duration-min) 60)
                start-duration-h]
         stop-duration (tuc/draw-normal 2.52 0.17)
         stop-duration-h (int stop-duration)
