Changeset 3180

Show
Ignore:
Timestamp:
05/26/08 15:37:31 (8 months ago)
Author:
ksprotte
Message:

new function: geo-box-intersection

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/quad-tree.lisp

    r3178 r3180  
    4444   (> (geo-box-north SUPER-BOX) (geo-box-south sub-box)) ; north -> south: + -> - 
    4545   (>= (geo-box-south sub-box) (geo-box-south SUPER-BOX)))) 
     46 
     47(defun geo-box-intersection (a b) 
     48  (assert (geo-box-intersect-p a b)) 
     49  (make-geo-box (max (geo-box-west a) (geo-box-west b)) 
     50                (min (geo-box-north a) (geo-box-north b)) 
     51                (min (geo-box-east a) (geo-box-east b)) 
     52                (max (geo-box-south a) (geo-box-south b)))) 
    4653 
    4754(defun geo-point-in-box-p (box point)