     (println "Sorry, there is no room for" (:name @object)
              "on" (:name @support))))
 
-(defn put [o s]
-  (put-on (block_map o) (block_map s))
-  (draw))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; (do (reset-world)
-;;     (println "------------------------->>")
-;;     (print (put-on w7 b3))
-;;     (println "------------------------->>")
-;;     (print (put-on b2 b4))
-;;     (println "------------------------->>")
-;;     (print (put-on w5 b2)))
-
-;; (pprint w7)
-;; (pprint "suckit")
-;; (pprint (assoc w7 :position '(999 999)))
-;; (print (* 8 8))
-
-;; (println (top-location @hh))
-;; (println (top-location @(second *blocks*)))
-;; (println (get-space @(second *blocks*)  @(nth *blocks* 3)))
-;; (println @(block_map "tt"))
-
-;; (println  (m/run* [q]
-;;             (membero q [1 2 3])
-;;             (membero q [2 3 4])))
-
-;;(print (put-on (block_map "b1") (block_map "b2")))
-
-;; (println "------------------------->>")
-;; (print (put-on (block_map "b2") (block_map "w7")))
-;; (println "------------------------->>")
-;; (print (put-on (block_map "b1") (block_map "b2")))
-;; (println "------------------------->>")
-;; (print (put-on (block_map "b2") (block_map "b6")))
-;; (println "------------------------->>")
-
-(println (:name @(:supported-by @(block_map "b1"))))
-
+(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"))

    (.lineTo context tx ty)
    (.stroke context)))

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

(defn deg->rad [d]
  (* Math/PI (/ d 360)))

(set! (.-onresize js/window) resized)

(resized)
