cpBBcontainsBB ( bb: cpBB other: cpBB -- ? )

Vocabulary

chipmunk.ffi

Inputs

bb	a cpBB
other	a cpBB

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel math typed ;

IN: chipmunk.ffi

TYPED: cpBBcontainsBB ( bb: cpBB other: cpBB -- ? )
    {
        [ [ l>> ] bi@ < ]
        [ [ r>> ] bi@ > ]
        [ [ b>> ] bi@ < ]
        [ [ t>> ] bi@ > ]
    } 2&& ; inline