cpBBexpand ( bb: cpBB v: cpVect -- b: cpBB )

Vocabulary

chipmunk.ffi

Inputs

bb	a cpBB
v	a cpVect

Outputs

b

a cpBB

Definition

USING: accessors combinators kernel math.order typed ;

IN: chipmunk.ffi

TYPED: cpBBexpand ( bb: cpBB v: cpVect -- b: cpBB )
    {
        [ [ l>> ] [ x>> ] bi* min ]
        [ [ b>> ] [ y>> ] bi* min ]
        [ [ r>> ] [ x>> ] bi* max ]
        [ [ t>> ] [ y>> ] bi* max ]
    } 2cleave cpBBNew ; inline