                                  :left     0
                                  :right    0
                                  :zIndex   1
-                                 :height   1000}}
+                                 }}
                         (scroll-view {:onScroll            handle-scroll
                                       :scrollEventThrottle 16
                                       :key                 1
                                       :style               {:flex          1
                                                             :flexDirection "column"
-                                                            :opacity 0.8}}
-
-                                     (nested-n-square** w h nn)))
+                                                            :opacity       1}}
+
+                                     (nested-n-square** scenar palette rr w h nn highlight)))
 
                   (view {:key   2
                          :style {:position "absolute"

    (map flatten)
    (mapv vec)))

(comment
  (blocks 500 20 5 5)
  )

#_(defn row-n-m
    "Layout for row of length m with n icons showing"
    [n m]
    (let [row []]
      (for [col (range m)]
        (loop [row []
               i 0]
          (if (< i m)
            (recur (conj row (if (and (pos? i) (mod i 6)) 1 0)) (inc i))
            row)))))

(comment
  (row-n-m 3 5)
  ; => [1 1 1 0 0]
  (block-n-k 3 5)

                                    }} content))

        padding 10
        cols (count ((dicen nn highlight) 0))
        rows (count (dicen nn highlight))
        a (/ (- w (* 2 padding)) cols)
        ]

