 ;; 21.25 = 30 degrees (on 0-255 scale)
 (def HUE-DIFF-CLIQUEY-THRESH-MAX 21.25)
 
-(defn is-cliquey? [coral coords this-hue]
+(defn is-cliquey? [odd-col-lower coral coords this-hue]
   (if-let [occupied-under (seq
-                           (occupied-coral-under coral coords))]
+                           (occupied-coral-under odd-col-lower coral coords))]
     (let [sum-hue (reduce (fn [memo under-coords]
                             (let [{:keys [color-hsva]} (coral under-coords)]
                               (+ memo (first color-hsva))))

(def NUM-CORAL-COL-BINS 110.0)
(def HEX-W 7.6)

(defn coral-size [display-w display-h]
  (let [col-bins NUM-CORAL-COL-BINS
        cell-w (/ display-w col-bins)

     :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)
     :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)))
