(ns sampl.core
  (:use quil.core))

(def cell-size 10)
(def w (* 80 cell-size))
(def h (* 60 cell-size))

(def X (atom 0))
(def Y (atom 0))

(defn draw []
  (do
    (stroke-weight 1)
    (stroke 0)
    (fill 255)
    (swap! X + cell-size)
    (swap! Y + cell-size)
    (rect @X @Y cell-size cell-size)))

(defn mouse-handler []
      (redraw)
)

(defn setup []
  (background 40)
  (no-loop))

(defn field []
  (sketch
    :title "sample"
    :draw draw
    :setup setup
    :mouse-pressed mouse-handler
    :size [w h]))

(field)