   
   (js/Processing. (sel1 :#stage) (s/sketch-init {:setup setup
                                                  :draw draw
-                                                 :mouse-pressed mouse-pressed
+                                                 :mouse-released mouse-released
                                                  :mouse-dragged mouse-dragged})))

    
    (draw-cursor mx my)))

(defn mouse-pressed []
  (when-let [thing (w/get-thing-at-location world [(s/mouse-x) (s/mouse-y)])]
    (say @thing (str "My name is " (:name @thing)))))


  (let [mx (s/mouse-x)
        my (s/mouse-y)]
    (when-let [thing (w/get-thing-at-location world [mx my])]
      (w/move-thing thing [mx my]))))

(defn init []
