add-subnodes ( node -- node )

Vocabulary

quadtrees.private

Inputs

node

an object

Outputs

node

an object

Definition

USING: accessors combinators kernel quadtrees ;

IN: quadtrees.private

: add-subnodes ( node -- node )
    dup bounds>> {
        [ ll-bounds <quadtree> >>ll ]
        [ lr-bounds <quadtree> >>lr ]
        [ ul-bounds <quadtree> >>ul ]
        [ ur-bounds <quadtree> >>ur ]
    } cleave f >>leaf? ;