cpArbiterGetShapes ( arb: cpArbiter -- a: cpShape b: cpShape )

Vocabulary

chipmunk.ffi

Inputs

arb	a cpArbiter

Outputs

a	a cpShape
b	a cpShape

Definition

USING: accessors kernel typed ;

IN: chipmunk.ffi

TYPED: cpArbiterGetShapes
    ( arb: cpArbiter -- a: cpShape b: cpShape )
    dup swappedColl>> 0 =
    [ [ a>> ] [ b>> ] bi ] [ [ b>> ] [ a>> ] bi ] if ; inline