(node-in-rect*) ( values rect node -- values )

Vocabulary

quadtrees.private

Inputs

values	an object
rect	an object
node	an object

Outputs

values

an object

Definition

USING: accessors kernel math.rectangles ;

IN: quadtrees.private

: (node-in-rect*) ( values rect node -- values )
    2dup bounds>> contains-rect? [ in-rect* ] [ 2drop ] if ;