                                      ha-defs (:ha-defs wld)
                                      cfg (current-config wld)
                                      has (:objects cfg)
+                                     ha-starts (:objects desc)
                                      polys (apply concat (vals (:seen-polys wld)))
 
                                      editor (get props :editor)

                                                                              (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)

                   3 {:type :white :x 160 :y 8 :w 8 :h 16}}
   :objects       {:ga {:type  :goomba
                        :state :right
                        :x     8 :y 8
                        :w     16 :h 16}
                   :gb {:type  :goomba
                        :state :right
                        :x     32 :y 8
                        :w     16 :h 16}
                   :gc {:type  :goomba
                        :state :right
                        :x     12 :y 35
                        :w     16 :h 16}
                   :gd {:type  :goomba
                        :state :right
                        :x     64 :y 8
                        :w     16 :h 16}
                   :ge {:type  :goomba
                        :state :right
                        :x     96 :y 32
                        :w     16 :h 16}
                   :m  {:type  :mario
                        :state :idle-right
                        :x     200 :y 8
                        :w     16 :h 16}}})

(set! heval/frame-length (/ 1 30))
(set! heval/time-units-per-frame 10000)
