USING: math.rectangles ;

IN: quadtrees

TUPLE: quadtree
{ bounds rect initial: RECT: { 0 0 } { 0 0 } } point value
ll lr ul ur leaf? ;

USING: assocs quadtrees quadtrees.private ;

M: quadtree >alist quadtree>alist ;

USING: assocs quadtrees quadtrees.private ;

M: quadtree assoc-size quadtree-size ;

USING: assocs quadtrees quadtrees.private ;

M: quadtree at* at-point ;

USING: accessors assocs kernel quadtrees ;

M: quadtree clear-assoc t >>leaf? f >>point f >>value drop ;

USING: assocs quadtrees quadtrees.private ;

M: quadtree delete-at erase ;

USING: kernel quadtrees quadtrees.private ;

M: quadtree equal? over quadtree? [ tree= ] [ 2drop f ] if ;

USING: assocs quadtrees quadtrees.private ;

M: quadtree set-at insert ;