Changeset 3257

Show
Ignore:
Timestamp:
06/04/08 14:01:29 (7 months ago)
Author:
ksprotte
Message:

make-sat-layer now allows for specifying local-draw-order

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/bos-trunk-sat/projects/bos/web/sat-tree.lisp

    r3256 r3257  
    166166        (make-sat-image-tiles-for-depth image geo-box layer (1+ start-depth)))))) 
    167167 
    168 (defun make-sat-layer (image geo-box name &optional (start-depth 0)) 
     168(defun make-sat-layer (image geo-box name local-draw-order &optional (start-depth 0)) 
    169169  (check-type name symbol) 
    170170  (assert (not (find-sat-layer name)) (name) 
    …… 
    173173  (assert (geo-box-encloses-p *m2-geo-box* geo-box)) 
    174174  (check-type start-depth (integer 0)) 
    175   (let ((layer (make-object 'sat-layer :name name :geo-box geo-box))) 
     175  (check-type local-draw-order (integer 0)) 
     176  (assert (< local-draw-order +max-num-of-local-draw-order-levels+)) 
     177  (when (find local-draw-order (class-instances 'sat-layer) :key #'local-draw-order) 
     178    (cerror "create the new layer anyway" "There is already a sat-layer with the same local-draw-order '~A'." local-draw-order)) 
     179  (let ((layer (make-object 'sat-layer :name name :geo-box geo-box :local-draw-order local-draw-order))) 
    176180    (make-sat-image-tiles-for-depth image geo-box layer start-depth))) 
    177181