cpBBmerge ( a: cpBB b: cpBB -- c: cpBB )

Vocabulary

chipmunk.ffi

Inputs

a	a cpBB
b	a cpBB

Outputs

c

a cpBB

Definition

USING: accessors combinators kernel math.order typed ;

IN: chipmunk.ffi

TYPED: cpBBmerge ( a: cpBB b: cpBB -- c: cpBB )
    {
        [ [ l>> ] bi@ min ]
        [ [ b>> ] bi@ min ]
        [ [ r>> ] bi@ max ]
        [ [ t>> ] bi@ max ]
    } 2cleave cpBBNew ; inline