                                  (get-hlines) 
                                  (get-vlines)
                                  (get-htext)
+                                 (get-vtext)
                                  (get-stones moves)))
                     (str "resources/" f-n))
     f-n))


(defn get-hlines []
  (map 
    (fn [i] [:line {:stroke :black :width 1} [i 10] [i 190]])  
    (range 10 200 10)))

(defn get-vlines []
  (map 
    (fn [i] [:line {:stroke :black :width 1} [10 i] [190 i]])  
    (range 10 200 10)))

(defn get-htext []
  (map
    (fn [i] [:text {:font-family "sans-serif" :font-size 10 :x (+ 10 (* i 10)) :y 10}  
             (-> i (+ 97) char str)])
    (range 19)))


  (let [style (if (= color :black) 
                {:fill :black} 
                {:stroke :black :fill :white :width 1})]
    [:circle style (vec (map #(-> % (* 100) (+ 100)) xy)) 45]))

(defn get-stones [moves]
  (map (fn [{:keys [mv bid]}] 
