       (when (> (- end start) 0)
         [:g
          [:path {:d      (arc-path
-                          (update m :r #(* % (if @over? 1.1 1.02)))
+                          (update m :r #(* % (if @over? 1.1 1.04)))
                           (- start 0.2)
-                          (+ end 0.2))
+                          (+ end 0.2)
+                          {:reverse? (> 0.75 (+ start (/ (- end start) 2)) 0.25)})
                  :id     id
                  :fill   :none
                  :stroke :none}]

           {:xlink-href   (str "#" id)
            :start-offset "50%"
            :style        {:text-anchor :middle
                           :font-size   (if @over? "1rem" "0.75rem")
                           :font-weight :normal}}
           (if @over?
             (str name " (" hours-per-day " / day)")
             name)]]]))))

(def colors (cycle ["Tomato"

  [(* r (Math/cos theta))
   (* r (Math/sin theta))])

(defn arc-path [{:keys [x y r] :as m} pct0 pct1 {:keys [reverse?]}]
  (let [[x0 y0]           (-> (if reverse? pct1 pct0)
                              pct-to-angle
                              angle-to-cart
                              (scale m)
                              (invert-y m)
                              (move-to-origin m))
        [x1 y1]           (-> (if reverse? pct0 pct1)
                              pct-to-angle
                              angle-to-cart
                              (scale m)
