Author: ksprotte Date: Fri Jan 18 12:41:19 2008 New Revision: 2359 Modified: branches/bos/projects/bos/m2/allocation-cache.lisp Log: allocation-cache uses now ensure-m2 instead of get-m2 to retrieve a m2 instance for a point that is inside the polygon 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 Fri Jan 18 12:41:19 2008 @@ -29,7 +29,7 @@ (loop for y from top upto (1- (+ top height)) do (loop for x from left upto (1- (+ left width)) for spot = (when (point-in-polygon-p x y vertices) - (get-m2 x y)) + (ensure-m2 x y)) for x0 = (- x left) for y0 = (- y top) do (setf (aref array x0 y0) spot)))