Changeset 3438

Timestamp:

07/15/08 09:45:57 (6 months ago)

Author:

ksprotte

Message:

contract-tree small refactoring

Files:

• trunk/projects/bos/web/contract-tree.lisp (modified) (5 diffs)

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

@@ -10 +10 @@
-   (image-req-count :initform 0 :accessor image-req-count)))
-
+(defun contract-node-set-timestamp-now (node)
+  (setf (timestamp node) (get-universal-time)))
+
-(defun contract-node-find-corresponding-store-image (node)  
-  (first (get-keyword-store-images (contract-node-keyword node))))
@@ -19 +22 @@
-        (setf (image node) image
-              (timestamp node) (blob-timestamp image))
-setf (timestamp node) (get-universal-time)
+contract-node-set-timestamp-now node
-
-(defvar *contract-tree* nil)
@@ -76 +79 @@
-  (let ((geo-box (contract-geo-box contract))
-        (geo-center (contract-geo-center contract)))
-
-
+
-    (let ((placemark-node (find-node-if (lambda (node) (contract-placemark-at-node-p node contract))
-                                        contract-tree
@@ -93 +95 @@
-            (delete contract (placemark-contracts node)))
-      ;; mark intersecting children as dirty
-
-
+
-
-(defun contract-tree-changed (contract-tree contract &key type)
@@ -233 +234 @@
-        (setf (cl-gd:save-alpha-p) t
-              (cl-gd:alpha-blending-p) nil)
-        ;; (cl-gd:draw-rectangle* 0 0 127 127 :filled nil :color (cl-gd:find-color 255 0 0))
-        (let ((transparent (cl-gd:find-color 255 255 255 :alpha 127))
-              (subbox (make-geo-box 0d0 0d0 0d0 0d0)))