 
 (defn draw-dot-at [field x y]
   (let [color (to-color (get-in field [y x]))]
-    (apply q/stroke color) ; with-stroke doesn't work somehow
-    (q/point x y)
+    (apply q/fill color) ; with-stroke doesn't work somehow
+    (q/rect (* expand x) (* expand y) expand expand)
     ))
 
 (defn draw-state [s]


(def width 100)
(def height 100)
(def hue 100)
(def sat 200)
(def max-b 200)

  (q/frame-rate 2)
  (q/background 0)
  (enable-console-print!)
  (q/no-stroke)
  ; (q/no-loop)
  {:field (random-field width height)})

