     :or   {size 100 draw? true key nil}}]
   (view {:key   key
          :style {:backgroundColor "orange"
+                 :paddingTop 1
                  :aspectRatio     1
                  :opacity         (if draw? 1 0)
                  :justifyContent  "space-around"

                 :width           size                      ;size
                 :borderRadius    (/ size 2)
                 }}
        (ionicon {:name  "ios-wine"                         ;"ios-radio-button-on"
                  :size  100
                  :flex  1
                  :style {:color           "white"
                          :backgroundColor "rgba(0,0,0,0)"
                          :transform       [{:scale (/ size 100)}]
                          }})))

(defn draw-n-square
  [n]

                  (draw-square {:size 50}))))
        ))

(def testn 40)

(def row0 [0 0 0 0 0])
(def row1 [0 0 1 0 0])
(def row2 [0 1 0 1 0])
(def row3 [1 0 1 0 1])
(def row4 [1 1 0 1 1])
(def row5 [1 1 1 1 1])
(def row10 (vec (concat row5 [0] row5)))
(def rown [row0 row1 row2 row3 row4 row5])
(def block10 [row5 row5])
(defn append-block [b n] (if (< n 6)
                           (conj b row0 (rown n))
                           (conj (append-block b 5) (rown (- n 5)))))
(def block20 (append-block block10 10))
(def block30 (append-block block20 10))
;(def block40 (append-block block30 10))

(def block40 (into [] (-> nil
                         (append-block 8)
                         (append-block 10)
                         (append-block 10)
                         (append-block 10))))

(def dice {1  [[1]]
           2  [[1 0]
               [0 1]]
