Author: ksprotte Date: Tue Jan 22 06:06:34 2008 New Revision: 2386 Modified: branches/bos/projects/bos/m2/allocation-cache.lisp branches/bos/projects/bos/m2/allocation.lisp Log: number of m2 not in cache: Modified: branches/bos/projects/bos/m2/allocation-cache.lisp ============================================================================== --- branches/bos/projects/bos/m2/allocation-cache.lisp (original) +++ branches/bos/projects/bos/m2/allocation-cache.lisp Tue Jan 22 06:06:34 2008 @@ -205,7 +205,7 @@ (for count = (length cache-entries)) (unless (zerop count) (format t "~5D~10T~5D~%" size count))) - (format t "~%Area size ignored by cache: ~A~%" (ignored-size *allocation-cache*))) + (format t "~%number of m2 not in cache: ~A~%" (ignored-size *allocation-cache*))) (defun rebuild-cache () (setq *allocation-cache* (make-allocation-cache)) Modified: branches/bos/projects/bos/m2/allocation.lisp ============================================================================== --- branches/bos/projects/bos/m2/allocation.lisp (original) +++ branches/bos/projects/bos/m2/allocation.lisp Tue Jan 22 06:06:34 2008 @@ -196,6 +196,7 @@ (bos.m2.allocation-cache:rebuild-cache) area) +;;; FIXME can be optimized (defun map-edges (fn vertices) (loop for i from 0 below (length vertices) @@ -203,6 +204,7 @@ for b = (elt vertices i) do (funcall fn a b))) +;; http://www.ics.uci.edu/~eppstein/161/960307.html (defun in-polygon-p (x y vertices) (let ((c 0)) (map-edges (lambda (a b)