(fast-children-on) ( point axis children quot -- i )

Vocabulary

ui.gadgets.private

Inputs

point	an object
axis	an object
children	an object
quot	an object

Outputs

i

an object

Definition

USING: binary-search combinators kernel math.order math.vectors
;

IN: ui.gadgets.private

:: (fast-children-on) ( point axis children quot -- i )
    children [
        [ point ] dip quot ( value -- loc ) call-effect v-
        axis vdot 0 <=>
    ] search drop ; inline