                                                       ;todo: grab handles
                                                       ])
                                                    (:walls desc))]
+                                             [:g {:key "object-starts"}
+                                              (map (fn [[id {x :x y :y w :w h :h state :state}]]
+                                                     [:g {:key id :opacity "0.25"}
+                                                      [:rect {:x     x :y (- world-h h y)
+                                                              :width w :height h
+                                                              :fill  "brown"
+                                                              :key   "sprite"}]
+                                                      (when (contains? sel [:objects id])
+                                                        [:rect {:x            x :y (- world-h h y)
+                                                                :width        w :height h
+                                                                :fill         "url(#diagonal-stripe-1)"
+                                                                :opacity      "0.5"
+                                                                :stroke       "black"
+                                                                :stroke-width 2
+                                                                :key          "selected"}])
+                                                      [:text {:width    200 :x x :y (- world-h y 5)
+                                                              :fontSize 8
+                                                              :fill     "lightgrey"
+                                                              :key      "name"}
+                                                       (str id " " state)]])
+                                                   ha-starts)]
                                              [:g {:key "objects"}
                                               (map (fn [{{x :x y :y w :w h :h} :v0 id :id :as ha}]
                                                      [:g {:key id}

  {:width         320
   :height        240
   :camera-width  320
   :camera-height 120
   :scroll-x      0
   :scroll-y      0
   :walls         {0 {:type :white :x 0 :y 0 :w 256 :h 8}

                                                                              (fn [w]
                                                                                (let [[sx sy] (view->world props (.-scrollLeft n) (+ (.-scrollTop n) container-h))]
                                                                                  #_(println "update from scroll:"
                                                                                             (.-scrollLeft n) (+ (.-scrollTop n) container-h)
                                                                                             "->" sx sy)
                                                                                  (assoc w :scroll-x sx
                                                                                           :scroll-y sy))))))}
                                            [:svg {:width               (* world-w x-scale)
