      :cell-half-w (/ cell-w 2.0)
      :hex-w hex-w
      :hex-half-w (/ hex-w 2.0)
-     :hex-y-offset (hex/hex-y-offset hex-w)}))
+     :hex-y-offset (hex/hex-y-offset hex-w)
+     :rot-cycle-length CORAL-ROT-CYCLE
+     :rot-cycle 0
+     :rot-cycle2 0
+     :odd-col-lower true}))
 
 (defn x->col [cell-w x]
   (int (/ x cell-w)))

;; 21.25 = 30 degrees (on 0-255 scale)
(def HUE-DIFF-CLIQUEY-THRESH-MAX 21.25)

(defn is-cliquey? [coral coords this-hue]
  (if-let [occupied-under (seq
                           (occupied-coral-under coral coords))]
    (let [sum-hue (reduce (fn [memo under-coords]
                            (let [{:keys [color-hsva]} (coral under-coords)]
                              (+ memo (first color-hsva))))

                           1.0 0.0) (rand))))
    false))

(defn is-attaching? [coral coral-size
                     {:keys [x y color-hsva] :as seed}]
  (let [{:keys [num-row-bins cell-w odd-col-lower]} coral-size
        [col row :as coords] (xy->coords cell-w x y)]
    (and (not (is-occupied? coral coords))
         (not (is-occupied? coral [col (dec row)]))
         (or (and (is-bottom? num-row-bins row)
                  (> BOTTOM-ATTACH-PCT (rand)))
             (is-cliquey? odd-col-lower coral coords (first color-hsva)))
    )))

(defn remove-seeds [all-seeds seeds]
