Changeset 3254

Show
Ignore:
Timestamp:
06/04/08 12:49:10 (6 months ago)
Author:
ksprotte
Message:

fixed bug in sat-layer-top-level-nodes

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3253 r3254  
    404404      '(:min 512 :max -1))) 
    405405 
    406 (defconstant +max-local-draw-order+ 10) 
     406(defconstant +max-num-of-local-draw-order-levels+ 10) 
    407407 
    408408(defun compute-draw-order (node local-draw-order) 
    409409  (+ local-draw-order 
    410      (* (depth node) +max-local-draw-order+))) 
     410     (* (depth node) +max-num-of-local-draw-order-levels+))) 
    411411 
    412412(register-store-transient-init-function 'make-quad-tree) 

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

    r3253 r3254  
    3636                        (when layer-node 
    3737                          (push layer-node nodes)                           
    38                           (setq state 'got-top-level-layer-node))) 
    39                        (got-top-level-layer-node 
    40                         (unless top-level-depth 
    41                           (setq top-level-depth (depth n))) 
     38                          (setq state 'got-top-level-layer-node) 
     39                          (setq top-level-depth (depth n)))) 
     40                       (got-top-level-layer-node                         
    4241                        (if (and layer-node (= (depth n) top-level-depth)) 
    4342                            (push layer-node nodes)