(quadrant) ( pt node -- quadrant )


Vocabulary
quadtrees

Inputs
ptan object
nodean object


Outputs
quadrantan object


Definition
USING: accessors kernel math sequences ;

IN: quadtrees

: (quadrant) ( pt node -- quadrant )
swap [ first 0.0 < ] [ second 0.0 < ] bi
[ [ ll>> ] [ lr>> ] if ] [ [ ul>> ] [ ur>> ] if ] if ;