     (.lineTo context tx ty)
     (.stroke context)))
 
-(defn fill_circ [x y w h];; colour]
+(defn fill_circ [x y w];; colour]
   (set! (.-fillStyle context) red)
   (set! (.-strokeStyle context) yellow)
   (let [r (/ (* cell-size w) 2)

(def world (atom {}))

(defn resized []
  (set! (.-width canvas) (* @width cell-size)) ;;(.-innerWidth js/window))
  (set! (.-height canvas) (* @height cell-size)) ;;(.-innerHeight js/window))
  ;; (reset! width (/ (.-width canvas) cell-size))
  ;; (reset! height (/ (.-height canvas) cell-size))
  )

(defn fill_sq [x y w h];; colour]
  (set! (.-fillStyle context) red)
  (set! (.-strokeStyle context) yellow)
  ;; (.fillRect context
  ;;            (* x cell-size)
  ;;            (* y cell-size)
  ;;            (* w cell-size)
  ;;            (* h cell-size))
  (.strokeRect context
               (* x cell-size)
               (* y cell-size)
               (* w cell-size)
               (* h cell-size))
  )

(defn fill_tri [x y w h];; colour]
  (set! (.-fillStyle context) red)

    (println "Sorry, there is no room for" (:name @object)
             "on" (:name @support))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(def black "#000000")
(def yellow "#FFDB7F")
(def red "#E88E7F")
(def purple "#DA98FF")
(def blue "#88BAE8")
(def green "#7FFFA5")

(def canvas (.getElementById js/document "canvas"))
(def context (.getContext canvas "2d"))
