within-neighborhood? ( self other behavior -- ? )

Vocabulary

boids.simulation

Inputs

self	an object
other	an object
behavior	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel ;

IN: boids.simulation

:: within-neighborhood? ( self other behavior -- ? )
    self other {
        [ eq? not ]
        [ behavior radius>> in-radius? ]
        [ behavior angle-cos>> in-view? ]
    } 2&& ; inline