Josha von Gizycki 7 years ago
commit 43da44c0ab

@ -46,7 +46,7 @@
:w (assoc obj :x (+ ox ow 1)) :w (assoc obj :x (+ ox ow 1))
:e (assoc obj :x (dec (- ox w))) :e (assoc obj :x (dec (- ox w)))
:n (assoc obj :y (+ oy oh 1)) :n (assoc obj :y (+ oy oh 1))
:s (assoc obj :y (dec (- oy h))) :s (assoc obj :y (dec (- oy h)))
obj))) obj)))
(defn bump-inside-container [obj container] (defn bump-inside-container [obj container]

Loading…
Cancel
Save