Author: hhubner Date: Thu Jan 17 12:09:12 2008 New Revision: 2340
Modified: branches/bos/projects/bos/m2/map.lisp Log: If no background image is available, just skip the :background operation.
Modified: branches/bos/projects/bos/m2/map.lisp ============================================================================== --- branches/bos/projects/bos/m2/map.lisp (original) +++ branches/bos/projects/bos/m2/map.lisp Thu Jan 17 12:09:12 2008 @@ -118,8 +118,9 @@ original-image))
(defmethod image-tile-process ((tile image-tile) (operation (eql :background))) - (with-store-image (original-image (image-tile-original-image tile)) - (copy-image original-image *default-image* 0 0 0 0 (image-width) (image-height)))) + (when (image-tile-original-image tile) + (with-store-image (original-image (image-tile-original-image tile)) + (copy-image original-image *default-image* 0 0 0 0 (image-width) (image-height)))))
(defmethod image-tile-process ((tile image-tile) (operation (eql :areas))) (do-rows (y)