[pal-cvs] CVS pal

[tneste]

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