Navigation

Changeset 3221

Timestamp:

05/30/08 15:18:31 (6 months ago)

Author:

ksprotte

Message:

branches/bos-trunk-sat: now using register-store-transient-init-function
for inserting sat-images into the quad-tree

Files:

r3220	r3221
58	58	(print-unreadable-object (obj stream :type t :identity t)))
59	59
60		(def~~method initialize-transient-instance :after ((sat-image sat-image)~~)
	60	(defun quad-tree-insert-sat-image (sat-image)
61	61	(let ((node (ensure-node-with-path quad-tree (path sat-image))))
62	62	(make-instance 'sat-node
…	…
64	64	:base-node node
65	65	:image sat-image)))
	66
	67	(defun quad-tree-insert-sat-images ()
	68	(mapc #'quad-tree-insert-sat-image (class-instances 'sat-image)))
	69
	70	(register-store-transient-init-function 'quad-tree-insert-sat-images
	71	'make-quad-tree)
66	72
67	73	(defmethod name ((obj sat-image))
…	…
119	125	:resize t :resample t
120	126	:dest-width tw :dest-height th)
121		(make-store-image :class-name 'sat-image
122		:name (format nil "~A-~{~D~}" name path)
123		:initargs `(:path ,path
124		:layer ,(find-sat-layer name)
125		:image-geo-box ,rounded-geo-box))))))
	127	(quad-tree-insert-sat-image
	128	(make-store-image :class-name 'sat-image
	129	:name (format nil "~A-~{~D~}" name path)
	130	:initargs `(:path ,path
	131	:layer ,(find-sat-layer name)
	132	:image-geo-box ,rounded-geo-box)))))))
126	133
127	134	(defun make-sat-layer (image geo-box name &optional (start-depth 0))