    ;; ship
    [:rect {:x (to-scale 400) :y (to-scale 240) :width (to-scale 90) :height (to-scale 50) :stroke "black" :fill "sienna"}]
    [:text {:x (to-scale 400) :y (to-scale 255) :style {:text-anchor "start" :stroke "none" :fill "black" :font-size "smaller"}} "ship"]
-
-   ;[:circle {:cx (to-scale 445) :cy (to-scale 245) :r (to-scale 4) :fill "chartreuse"}]
-   ;[:circle {:cx (to-scale 445) :cy (to-scale 285) :r (to-scale 4) :fill "chartreuse"}]
-   ;[:circle {:cx (to-scale 445) :cy (to-scale 245) :r (to-scale 4) :fill "cyan"}]
-   ;[:circle {:cx (to-scale 465) :cy (to-scale 245) :r (to-scale 4) :fill "yellow"}]
-   ;[:circle {:cx (to-scale 475) :cy (to-scale 245) :r (to-scale 4) :fill "fuchsia"}]
-   ;[:circle {:cx (to-scale 485) :cy (to-scale 245) :r (to-scale 4) :fill "red"}]
+   ;; player area
+   [:rect {:x (to-scale 600) :y 0 :width (to-scale 150) :height (to-scale 200) :stroke "black" :stroke-width "1" :fill "wheat"}]
    ])
 
 


(defn static-board []
  [;; playmat
   [:rect {:x 0 :y 0 :width 1000 :height 750 :stroke "black" :stroke-width "1" :fill "tan"}]
   ;; board
   [:rect {:x 0 :y 0 :width (to-scale 500) :height (to-scale 400) :stroke "black" :stroke-width "0.5" :fill "burlywood"}]
   ;; jail

               [space text]
               )))))

(defn main-view []
  [:center
   [:h1 "CARTAGENA"
    [:div
     (-> [:svg
          {:view-box (str "0 0" (to-scale 801) (to-scale 601))
           :width (to-scale 801)
           :height (to-scale 601)}]
         (into (static-board))
         (into (jail))
         (into (normal-spaces))
         (into (ship))
         )]]])

(defn on-error [{:keys [status status-text]}]
