 (defn flat-trajectory [md x y z plot-angle]
   (let [next-fn (fn [[md0 x0 y0 z0]]
                   (let [step (typical-trajectory-md-length)
-                        step-angle (tuc/draw-normal plot-angle (/ plot-angle 10))]
+                        step-angle (tuc/draw-normal plot-angle 14)]
                     [(+ md0 step)
                      (+ x0 (* step (Math/cos (* (/ step-angle 180) Math.PI))))
                      (+ y0 (* step (Math/sin (* (/ step-angle 180) Math.PI))))
-                     (tuc/draw-normal z (/ z 10))]))]
+                     (tuc/draw-normal z 4)]))]
     (iterate next-fn [md x y z])))
 
 (defn typical-treatment-times []

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


      (rem (+ minute-0 duration-minute) 60)
      duration-seconds]]))

(defn typical-stage-separation []
  (tuc/draw-normal 45 3))

