[bknr-cvs] r2386 - branches/bos/projects/bos/m2

[ksprotte at common-lisp.net]

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)