Changeset 3195

Timestamp:

05/27/08 11:34:25 (8 months ago)

Author:

ksprotte

Message:

new quad-tree function: collect-nodes

Files:

• trunk/projects/bos/web/quad-tree.lisp (modified) (4 diffs)

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

@@ -256 +256 @@
-      (ensure-node-with-path (ensure-child node (first path)) (rest path))))
-
-
+
+
+
+
+
-  (when function
-    (funcall function node))
-leaf-node-p
+funcall leaf-test
-    (dolist (index (intersecting-children-indices node geo-box))
-      (ensure-intersecting-children (ensure-child node index) geo-box function))))
@@ -279 +283 @@
-    nil))
-
+(defun collect-nodes (test node &key (prune-test (constantly nil)))
+  (let (nodes)
+    (map-nodes (lambda (node)
+                 (when (funcall test node)
+                   (push node nodes)))
+               node
+               :prune-test prune-test)
+    (nreverse nodes)))
+
-;;; *quad-tree*
-(defvar *quad-tree*)
@@ -287 +300 @@
-(register-store-transient-init-function 'make-quad-tree)
-
-method
+un
-  (let (prev-n path)
-    (map-nodes (lambda (n)
@@ -296 +309 @@
-                 (setq prev-n n))
-               *quad-tree*
-
-
-
-
+
+
+