improving start page.

desktop/src-common/advent/utils.clj

@@ -145,3 +145,8 @@
             (f e (:total-time screen)))
           entities
           (vals tweens)))
+
+(defn intersects? [e [x y]]
+  (and (:object e)
+       (< (:x e) x (+ (:x e) (or (:width e) (.getWidth (:object e)))))
+       (< (:y e) y (+ (:y e) (or (:height e) (.getHeight (:object e)))))))