Update of /project/pal/cvsroot/pal In directory clnet:/tmp/cvs-serv929

Modified Files: vector.lisp Log Message: Few trivial functions added.

--- /project/pal/cvsroot/pal/vector.lisp 2007/07/09 18:17:44 1.3 +++ /project/pal/cvsroot/pal/vector.lisp 2007/07/18 19:26:31 1.4 @@ -245,4 +245,14 @@ (y (vy pos))) (if (and (> x x1) (< x x2) (> y y1) (< y y2)) - t nil))) \ No newline at end of file + t nil))) + +(declaim (inline point-inside-circle)) +(defun point-inside-circle (co r p) + (declare (type vec co p) (type component r)) + (<= (v-distance co p) r)) + +(declaim (inline circles-overlap)) +(defun circles-overlap (c1 r1 c2 r2) + (declare (vec c1 c2) (component r1 r2)) + (<= (v-distance c1 c2) (+ r2 r1))) \ No newline at end of file