node>quadrants ( node -- quadrants )


Vocabulary
quadtrees.private

Inputs
nodean object


Outputs
quadrantsan object


Definition
USING: accessors arrays combinators ;

IN: quadtrees.private

: node>quadrants ( node -- quadrants )
{ [ ll>> ] [ lr>> ] [ ul>> ] [ ur>> ] } cleave 4array ;