SHARE
TWEET

Untitled

a guest Mar 28th, 2019 111 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun rects-overlap (r-tl r-br r2-tl r2-br)
  2.   (not (or (< (x r2-br) (x r-tl))
  3.            (< (y r2-br) (y r-tl))
  4.            (> (x r2-tl) (x r-br))
  5.            (> (y r2-tl) (y r-br)))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top