1
2
3
4
5
6
7
8
(defn in-circle? [point width]
  (let [mid (/ width 2)
        r mid
        dx (- (point :x) mid)
        dy (- (point :y) mid)]
    (<= (+ (* dx dx)
               (* dy dy))
            (* r r))))