cpBBintersects ( a: cpBB b: cpBB -- ? )

Vocabulary

chipmunk.ffi

Inputs

a	a cpBB
b	a cpBB

Outputs

?

an object

Definition

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

IN: chipmunk.ffi

TYPED: cpBBintersects ( a: cpBB b: cpBB -- ? )
    {
        [ [ l>> ] [ r>> ] bi* <= ]
        [ [ r>> ] [ l>> ] bi* > ]
        [ [ b>> ] [ t>> ] bi* <= ]
        [ [ t>> ] [ b>> ] bi* > ]
    } 2&& ; inline