leaf-in-rect* ( values rect leaf -- values )

Vocabulary

quadtrees.private

Inputs

values	an object
rect	an object
leaf	an object

Outputs

values

an object

Definition

USING: accessors combinators.short-circuit kernel
math.rectangles sequences ;

IN: quadtrees.private

:: leaf-in-rect* ( values rect leaf -- values )
    { [ leaf point>> ] [ leaf point>> rect contains-point? ] }
    0&& [ values leaf value>> suffix! ] [ values ] if ;