way better antique.
This commit is contained in:
@@ -165,6 +165,6 @@
|
||||
y (.y pj)]
|
||||
[x y]))
|
||||
|
||||
(defn contains? [x1 y1 width height x y]
|
||||
(defn contains-point? [x1 y1 width height x y]
|
||||
(and (< x1 x (+ x1 width))
|
||||
(< y1 y (+ y1 height))))
|
||||
|
||||
Reference in New Issue
Block a user